Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Внизtwebbrowser Найти похожие ветки
← →
megatrend (2002-10-31 15:20) [0]Имеется twebbrowser на форме. На странице html (в этой форме) есть кнопка. Как программно на нее кликнуть?
← →
blgr (2002-10-31 21:14) [1]Аналогичный вопрос! Мне тоже понадобился бы ответ на него!
← →
Дмитрий К.К. (2002-11-01 08:54) [2]Программно кликнуть - енто значит послать серверу запрос <FORM ACTION= ... тра-ля-ля, тополя...
← →
int64 (2002-11-01 13:00) [3]Дмитрий К.К. (01.11.02 08:54)
Это можеи быть отдельная кнопка, не из <FORM...
megatrend © (31.10.02 15:20)
uses ..., MSHTML;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Coll : IHTMLElementCollection;
Doc: IHTMLDocument2;
i: integer;
begin
Doc:= IHTMLDocument2(WebBrowser1.Document);
if assigned(Doc) then
begin
//получаем коллекцию всех INPUT-элементов
Coll:=IHTMLElementCollection(Doc.All.Tags("INPUT"));
//вот так кликаем по всем button
for i:=0 to Coll.length-1 do
if HTMLInputElement(Coll.item(i,varEmpty)).type_="button"
then
HTMLInputElement(Coll.item(i,varEmpty)).Click;
//а вот так кликаем по всем submit
for i:=0 to Coll.length-1 do
if HTMLInputElement(Coll.item(i,varEmpty)).type_="submit"
then
HTMLInputElement(Coll.item(i,varEmpty)).Click;
end;
end;
Можно проверять не только на type_ или порядковый номер, но и на id, name, value ...
← →
Opuhshii (2002-11-01 13:06) [4]
procedure TForm1.Button1Click(Sender:Tobject);
begin
EmbeddedWB1.Navigate("about:<input%20type=submit%20value="Click%20me!!!"%20onClick="alert(""Click!!!"");">");
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Document:Variant;
Button:Variant;
I:Dword;
begin
Document:=EmbeddedWB1.Document;
for i:= 0 to Document.all.Length -1 do begin
Button:=Document.all.item(I);
if SameText(Button.tagName,"INPUT") then begin
Button.Click;
break;
end;
end;
end;
вариации на тему клика,..
← →
megatrend (2002-11-01 14:52) [5]Большое спасибо. Эту тему надо бы в ФАК занести.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c