| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В TWebBrowser загружаю страницу, как после окончания загрузки зап [D6, Win2k]

DN ©   (2005-11-21 13:31:00) 

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

---

DN   (2005-11-22 12:48:00) [1]

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

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

---

mfender   (2005-11-21 15:25:00) [2]

Форма:
<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;

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

---

Наверх