Форум: "Сети";
Текущий архив: 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.033 c