|
#1
|
|||
|
|||
WebBrowser1
Плиз! помагите разобратся с кликом по кнопке не могу понять почему не получается делаю так.
Код:
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 Код HTML:
|
#2
|
||||
|
||||
Исправь на:
Код:
ovElements := EmbeddedWB1.OleObject.Document.forms.Item(0).elements; Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#3
|
|||
|
|||
Цитата:
Не помагло также вылетает ошибка Invalid variant operation |
#4
|
||||
|
||||
Тогда сделайте ещё так:
Код:
if String(ovElements.item(i).style) = 'margin-top: 8px;' then Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
#5
|
|||
|
|||
Цитата:
страно но так вопще кнопка не на какае действия не реагирует почему так непонятно. |
#6
|
|||
|
|||
Что не ужели невозможно так кликнуть на неё?
|
#7
|
||||
|
||||
вот пример:
-загружает http://ya.ru/ -вставляет в строку поиска текст из TEdit (по кнопке Open url & set string) -жмет кнопку "Найти" (по кнопке Start search) Пишу программы за еду. __________________ |
#8
|
|||
|
|||
Цитата:
Слушай тоже самое вылетает ошибка 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/ только не на первой странице а там где водишь логин и пароль! |
#9
|
|||
|
|||
Ну какже её нажать!
|
#10
|
||||
|
||||
выложи минимальный проект воспроизводящий ошибку (архивом)...
Пишу программы за еду. __________________ |
#11
|
|||
|
|||
Всё всем спасибо кто пытался помочь но уже разобрался с этим просто было нужно использовать этот модуль http://jqbook.narod.ru/delphi_JavaScript.html
|