Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Может ли кто-нибудь объяснить?   Найти похожие ветки 

 
Николай Быков ©   (2003-01-10 11:04) [0]

Здравствуйте.
Нашел ответ на свой вопрос про TWebBrowser (в разделе "Основной вопрос есть") Не могли бы вы объяснить как он работает, а то просто так перекатывать неинтересно+охота на это основе еще фишечек модных сделать?

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags("FORM").Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

ЗЫ
А как можно было до такого догадаться без единного слово в хелпе про это?


 
Николай Быков ©   (2003-01-10 11:19) [1]

up


 
Opuhshii ©   (2003-01-10 11:28) [2]

не в том хэлпе смотрели,... МСДН купите... Николай,. не скупитесь.. или перепишите у кого-нибудь... а вообще известно что,.. Variant может в себе хранить ссылку на объект автоматизации и что IE является сервером автоматизации,... так что хэлп нужно было смотреть по работе с IE,..

можно было бы конечно реализовать используя MSHTML

_________________________________________________________
примерно так,.. поправьте если что не так,..


 
Darts   (2003-01-10 11:33) [3]

Ищет тэги, содержащие слово "FORM". Если их нет - выход из процедуры. Если есть, перебирает в цикле на предмет нахождения FieldName. Если нашел, присваивает Value и возвращает победоносный результат в виде True.

Более подробно, раз тебе уж так хочется. Набери TWebBrowser в поиске и гуляй на Королеве Дельфи.

Теперь изучению С++ дана отставка?


 
Николай Быков ©   (2003-01-10 12:08) [4]

можно поподробнее чуть чуть?
Непонятен кусочек, который ищет контрол и изменяет его вэлью


 
Darts   (2003-01-10 12:17) [5]

> Непонятен кусочек, который ищет контрол и изменяет его вэлью

Контрол? Сильно сказано. Я бы сказал - документ. А так данный кусочек просто меняет свойства документа (примерно так, как в поиске с заменой по всему тексту). Аналогию понял?


 
Николай Быков ©   (2003-01-10 13:49) [6]


> Darts (10.01.03 12:17)

Я про то, что здесь Итем из докУмента присваивается какой-то левой переменной. Все пробразования идут только с ней, а в результате изменяется вэлью из докУмента..
Ни черта не понимаю.


 
gek ©   (2003-01-10 13:59) [7]


> Николай Быков © (10.01.03 13:49)


Вообще-то именно документ, именно так ищется и в JScript
т.е. проход по всему документу


> присваивается какой-то левой переменной


Ну какая она левая, передана как параметр.

Николай, ты калькулятор написал?


 
Opuhshii ©   (2003-01-10 14:27) [8]

var
i, j: Integer;
FormItem: Variant; // -Это что-ли левая переменная???


 
Николай Быков ©   (2003-01-13 17:11) [9]


> Opuhshii © (10.01.03 14:27)

А какая еще? Мы можем у ней изменить value, а это самое value поменяется у <input type="..."...> в браузере.
ну разве так можно ?
это все равно, что написать
var
a,b:integer;
begin
a:=1;
b:=a;
b:=2;
end.
и на выходе получить а=2



Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.019 c
1-96789
Alex G
2003-01-22 19:24
2003.01.30
Handle


6-96911
virginkiller
2002-12-02 13:38
2003.01.30
ClientSocket/ServerSocket


6-96932
lamachok
2002-12-04 18:17
2003.01.30
winsock


3-96524
Flagman
2003-01-10 17:37
2003.01.30
Maximum


14-97021
Polevi
2003-01-11 19:27
2003.01.30
Про хакеров