Скачать: CL | DM;

В TWebBrowser загружаю страницу, как после окончания загрузки зап   Найти похожие ветки 

← →
DN ©   (2005-11-21 13:31) [0]

В TWebBrowser загружаю страницу, как после окончания загрузки программно заполнить 2 поля на странице и нажать кнопку, что-то совсем не въезжаю, пробовал в WebBrowser1BeforeNavigate2, как передать в TWebBrowser действия?

---

← →
mfender ©   (2005-11-21 15:25) [1]

Форма:
<form name=frm method=Post>
<input type=text name=txt1 value=ksdjgfk>
<input type=text name=txt2>
</form>

тогда отправить её можно так:
var
 frmBrowser: TfrmBrowser;
 IDoc: IHTMLDocument2;

procedure browserNavigateComplete2(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin
 IDoc := browser.Document as IHTMLDocument2;
 (IDoc.all.item("txt1",0) as IHTMLInputElement).value := "Значение первого";
 (IDoc.all.item("txt2",0) as IHTMLInputElement).value := "Значение второго";
 (IDoc.forms.item("frm",0) as IHTMLFormElement).submit;
end;

Главное - не возвращаться, а то будет посылать форма сама себя до бесконечности ^)))

---

← →
DN ©   (2005-11-22 12:48) [2]

Спасибо, с этим уже разобрался, в-общем то же самое, возник другой вопрос: из открытого окна нужно программно нажать на ссылку и открывающуюся в новом окне страницу загнать во второй WebBrowser

текст из кода html:
<a href="newpage.php?r=129" target="_blank">

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c