TWebBrowser нажать кнопку) - Работа с сетью в Delphi

Terikon · 11.11.2010, 02:30

Ни в какую не хочет нажиматься кнопка, подскажите что упустил)

PHP код:


			
<thead>

<tr>

<th class="fe">err:</th>

<th class="Account"><a href="/login=1">logins</a></th>

<th class="fghnt"><a href="gh?stat=1" id="rrrrrr">oooooo</a></th>

</tr>

</thead>

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (ovElements.Length - 1) do
    if (ovElements.item(i).id='rrrrrr') then ovElements.item(i).Click;
end;

mihali4 · 11.11.2010, 02:58

Упущено обязательное требование - перед тем, как создавать тему, воспользоваться поиском по форуму !
Гляньте-ка вниз, в "Похожие темы"...
Например
http://www.programmersforum.ru/showthread.php?t=38191

11.11.2010, 02:30	#1
Terikon Форумчанин Регистрация: 22.02.2009 Сообщений: 174	TWebBrowser нажать кнопку) Ни в какую не хочет нажиматься кнопка, подскажите что упустил) PHP код: `<thead> <tr> <th class="fe">err:</th> <th class="Account"><a href="/login=1">logins</a></th> <th class="fghnt"><a href="gh?stat=1" id="rrrrrr">oooooo</a></th> </tr> </thead>` Код: `procedure TForm1.Button1Click(Sender: TObject); var ovElements: OleVariant; i: Integer; begin ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements; for i := 0 to (ovElements.Length - 1) do if (ovElements.item(i).id='rrrrrr') then ovElements.item(i).Click; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
TWebBrowser нажать на чекбоксы	Selestis	Работа с сетью в Delphi	1	13.10.2010 01:13
Как нажать кнопку в TWebBrowser	duhduhduh	Компоненты Delphi	0	03.05.2010 13:49
нажать кнопку	Screame	Microsoft Office Excel	1	30.08.2009 22:20
Нажать кнопку	Dron_kss	Работа с сетью в Delphi	1	28.03.2009 17:33
Как нажать на кнопку в TWebBrowser да и вообще хоть на что-то..	postal2	Работа с сетью в Delphi	9	08.02.2009 22:45

11.11.2010, 02:58	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Упущено обязательное требование - перед тем, как создавать тему, воспользоваться поиском по форуму ! Гляньте-ка вниз, в "Похожие темы"... Например http://www.programmersforum.ru/showthread.php?t=38191