ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.06.2009, 10:58
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
Как выделить память для PChar?
и ещё =)
Код:
var
c: PChar;
begin
new(c);
|
|
|
22.06.2009, 11:53
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
Нужно скопировать текст из edit в буфер обмена.Как это можно осуществить?
|
|
|
|
22.06.2009, 11:59
|
|
Новичок
Регистрация: 03.06.2009
Сообщений: 7
Провел на форуме:
46558
Репутация:
1
|
|
Сообщение от Nizhegorodets
Нужно скопировать текст из edit в буфер обмена.Как это можно осуществить?
Clipboard.AsText := edit1.text;
в разделе Uses должен быть прописан модуль ClipBrd
|
|
|
|
22.06.2009, 12:07
|
|
Новичок
Регистрация: 03.06.2009
Сообщений: 7
Провел на форуме:
46558
Репутация:
1
|
|
Нужно занести данные на web страницу через TWebBrowser
выдает ошибку:
Подскажите что не так.
И поделитесь ссылкой на подробную статью о работе c TWebBrowser если есть у кого
Код:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw, MSHTML_TLB;
procedure TForm1.Button1Click(Sender: TObject);
var
v: Variant;
form : variant;
f,i:Integer;
begin
WebBrowser1.Navigate('http://id.rambler.ru/sсriрt/newuser.cgi');
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='login' then
form.item(i).value:='test1'
else
if form.item(i).name='firstname' then
form.item(i).value:='test2';
end; end;
вылетает здесь:
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
а если заменить WebBrowser1.OleObject.Document.forms.Length-1 просто на цифру то здесь:
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements; |
|
|
|
22.06.2009, 13:03
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
Сообщение от Lazar88
Clipboard.AsText := edit1.text;
в разделе Uses должен быть прописан модуль ClipBrd
+1
|
|
|
|
22.06.2009, 13:13
|
|
Познающий
Регистрация: 04.01.2009
Сообщений: 94
Провел на форуме:
404716
Репутация:
145
|
|
Сообщение от Nizhegorodets
Нужно скопировать текст из edit в буфер обмена.Как это можно осуществить?
Кстати не обязательно использовать отдельный класс Clipboard
Т.е.у некоторых компонентов есть свои методы.
Например:
Код:
Edit1.CopyToClipboard //копировать в буфер
Edit1.CutToClipboard //вырезать
|
|
|
|
22.06.2009, 12:56
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
работа тут идет в асинхронном режиме и по этому
WebBrowser1.Navigate('http://id.rambler.ru/sсriрt/newuser.cgi'); - заставляет грузить страницу
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin - пытается обратиться к еще незагруженным данным, так что ожидай события OnDocumentComplete
|
|
|
|
22.06.2009, 13:37
|
|
Новичок
Регистрация: 03.06.2009
Сообщений: 7
Провел на форуме:
46558
Репутация:
1
|
|
Сообщение от slesh
работа тут идет в асинхронном режиме и по этому
WebBrowser1.Navigate('http://id.rambler.ru/sсriрt/newuser.cgi'); - заставляет грузить страницу
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin - пытается обратиться к еще незагруженным данным, так что ожидай события OnDocumentComplete
можно по подробнее об использовании события? желательно на примере.
|
|
|
|
22.06.2009, 13:54
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
зафикач код
Код:
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='login' then
form.item(i).value:='test1'
else
if form.item(i).name='firstname' then
form.item(i).value:='test2';
в обработчик события. (события - там где свойства компонента, тока на другйо вкладке) |
|
|
|
22.06.2009, 14:00
|
|
Новичок
Регистрация: 03.06.2009
Сообщений: 7
Провел на форуме:
46558
Репутация:
1
|
|
Сообщение от slesh
зафикач код
Код:
for f:=0 to WebBrowser1.OleObject.Document.forms.Length-1 do begin
form:=WebBrowser1.OleObject.Document.forms.Item(f) .elements;
for i:=0 to form.Length-1 do
if form.item(i).name='login' then
form.item(i).value:='test1'
else
if form.item(i).name='firstname' then
form.item(i).value:='test2';
в обработчик события. (события - там где свойства компонента, тока на другйо вкладке) все разобрался. все работает. спасибо
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид