Заполнение html-форм через TWebBrowser?

← →
DocSS © (2003-06-19 19:15) [0]

Собственно тема, только хочу уточнить: именно заполнение, оправлять их не надо!

← →
Vlad Oshin © (2003-06-20 11:46) [1]

Coll:=IHTMLElementCollection(Doc.All.Tags("textarea"));
for i:=0 to Coll.length-1 do
if (HTMLInputElement(Coll.item(i,varEmpty)).name="SM")
then begin
HTMLInputElement(Coll.item(i,varEmpty)).Click;
( Coll.item(i,varEmpty) Coll:=IHTMLElementCollection(Doc.All.Tags("textarea"));
for i:=0 to Coll.length-1 do
if (HTMLInputElement(Coll.item(i,varEmpty)).name="SM")
then begin
HTMLInputElement(Coll.item(i,varEmpty)).Click;
HTMLInputElement(Coll.item(i,varEmpty)).Value:=WideString(memo1.Text);
end;

Coll : IHTMLElementCollection;
Doc: IHTMLDocument2;

← →
Тих (2003-06-20 21:00) [2]

Почему varEmpty? В общем-то несмертельно, потому что varEmpty = $0 (это константа), но для "пустых" параметров используют специальную переменную EmptyParam.

← →
Тих (2003-06-20 21:01) [3]

или NULL

Заполнение html-форм через TWebBrowser? Найти похожие ветки