[trdfnbcc]

Плиз! помагите разобратся с кликом по кнопке не могу понять почему не получается делаю так.

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  I: Integer;
  ovElements: OleVariant;
begin
  ovElements := EmbeddedWB1.OleObject.Document.forms.Item.elements;
  for I := 0 to ovElements.Length - 1 do
begin
  if ovElements.item(i).style='margin-top: 8px;' then
  ovElements.item(i).click
end;
end;

end.

но вместо клика получаю ошибку вот эту Invalid variant operation

<center><span class='button-blue' onclick="login(document);" style="margin-top: 8px;">ВОЙТИ</span></center>

[Karsh]

Исправь на:

Код:

ovElements := EmbeddedWB1.OleObject.Document.forms.Item(0).elements;

Должно помочь.

[trdfnbcc]

Сообщение от Karsh

Исправь на:

Код:

ovElements := EmbeddedWB1.OleObject.Document.forms.Item(0).elements;

Должно помочь.

Не помагло также вылетает ошибка Invalid variant operation

[Karsh]

Тогда сделайте ещё так:

Код:

if String(ovElements.item(i).style) = 'margin-top: 8px;' then

[trdfnbcc]

Сообщение от Karsh

Тогда сделайте ещё так:

Код:

if String(ovElements.item(i).style) = 'margin-top: 8px;' then

страно но так вопще кнопка не на какае действия не реагирует почему так непонятно.

[trdfnbcc]

Что не ужели невозможно так кликнуть на неё?

[NumLock]

вот пример:
-загружает http://ya.ru/
-вставляет в строку поиска текст из TEdit (по кнопке Open url & set string)
-жмет кнопку "Найти" (по кнопке Start search)

[trdfnbcc]

Сообщение от NumLock

вот пример:
-загружает http://ya.ru/
-вставляет в строку поиска текст из TEdit (по кнопке Open url & set string)
-жмет кнопку "Найти" (по кнопке Start search)

Слушай тоже самое вылетает ошибка Invalid variant operation

Зделал я вотак

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
 WebBrowser.Navigate('http://www.vip-prom.net/');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Document2: IHTMLDocument2;
  ElementCollection: IHTMLElementCollection;
  i: Integer;
begin
  Document2:=WebBrowser.Document as IHTMLDocument2;
  ElementCollection:=Document2.all as IHTMLElementCollection;
  for i:=0 to ElementCollection.length-1 do
    if (ElementCollection.item(i, Null) as IHTMLElement).onclick='login(document);' then
      (ElementCollection.item(i, Null) as IHTMLElement).click;
end;

Вотетот сайт http://www.vip-prom.net/ только не на первой странице а там где водишь логин и пароль!

[trdfnbcc]

Ну какже её нажать!

[NumLock]

выложи минимальный проект воспроизводящий ошибку (архивом)...

[trdfnbcc]

Всё всем спасибо кто пытался помочь но уже разобрался с этим просто было нужно использовать этот модуль http://jqbook.narod.ru/delphi_JavaScript.html