Нажатие кнопки в WebBrouser

[Monarh01]

Добрый день. Необходима помощь, столкнулся с тем, что не могу написать код на нажатие кнопки в webBrouser на кнопку, вернее код есть но кнопка не нажимается, вся сложность в том, что кнопка находится во всплывающем окне.

Код кнопки (с помощью инспектора в мазиле):
<div state="up" tabindex="0" dataquery="#undefined" class="wysiwyg_viewer_skins_button_ ShinyButtonIISkinecom_ap1 focusable " skin="wysiwyg.viewer.skins.button.S hinyButtonIISkin" styleid="ecom_ap1" id="vwprxyi416pf5f" height="40" propertyquery="#wixApps3au" comp="wixapps.integration.component s.SiteButton" style="box-sizing: border-box; position: absolute; visibility: visible; min-height: 40px; width: 380px; height: 40px;" vcfield="addToCartTitle" vcview="ProductZoomAddToCartButton" vctype="ProductBundle"><div style="overflow: hidden; text-align: center;" class="wysiwyg_viewer_skins_button_ ShinyButtonIISkinecom_ap1-link" skinpart="link"><span style="line-height: 40px;" class="wysiwyg_viewer_skins_button_ ShinyButtonIISkinecom_ap1-label font_7" skinpart="label">Добавить в корзину</span></div></div>

Сама ссылка:
http://www.kosher.in.ua/#!product/pr...B2%D0%B5%D1%81

Ну и сам код в дельфе:

...
var HtmlDocument, HtmlCollection: Variant;
i: integer;
...
HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
HtmlCollection := HtmlDocument.All;
for i:=0 to (HtmlCollection.Length - 1) do
begin
if((HtmlCollection.item(i).tagName= 'Div') and
(HtmlCollection.item(i).className='wysiwyg_viewer_skins_button_ShinyButtonIISkinecom_ap1-link'))
then HtmlCollection.item(i).Click;
end;

Но кнопку не нажимает. Кто может и знает помогите, заранее спасибо.

[милт]

Какую именно кнопку там надо нажать? объясни словами или выдели на скриншоте

[Stilet]

if((HtmlCollection.item(i).tagName= 'Div')

Не пойму я почему ты решил что это кнопка...
И кстати почему ты с большой буквы написал. Так у тебя больная вероятность появилась, что условие это не выполнится никогда, потому что просто имена тега не совпадут.
Поставь бряк на HtmlCollection.item(i).Click; и посмотри дойдет ли программа до него.

[Monarh01]

к сожалению ничего не помогло(break не помог после нажатия кнопки ничего не происходит, даже тег с маленькой буквы тоже не дал реакции), может есть еще предложение?
Ну я не уверен что именно этот код должен нажать кнопку (с имитировать нажатие). Я выложил код который показал мне инспектор в лисе.
P.S. Милт - в 1-ом посте есть ссылка на страницу где находится кнопка.

[Stilet]

break не помог

Программа тормознулась на вызове клика?
Или ты меня не так понял?

[Monarh01]

var
 HtmlDocument   : IHtmlDocument2;
 HtmlCollection : IHtmlElementCollection;
 HtmlElement    : IHtmlElement;
 I             : Integer;
begin
 HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
 HtmlCollection := HtmlDocument.All;
 for I := 0 to HtmlCollection.Length - 1 do
 begin
   HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
   if HtmlElement.tagName='div' then
   begin
     if pos('Добавить в корзину', WebBrowser1.oleobject.document.body.innerhtml)>0 then
     begin
       HtmlElement.click;
          break;
    end;
   end;
 end;
end;

делал так и Break ставил до и после (эффекта 0, иногда выскакивала ошибка invalid variant operation) вроде так понял, если нет то подскажите куда его вставить Break.
И в этом коде тоже:

...
var HtmlDocument, HtmlCollection: Variant;
i: integer;
...
HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
HtmlCollection := HtmlDocument.All;
for i:=0 to (HtmlCollection.Length - 1) do
begin
if((HtmlCollection.item(i).tagName= 'div') and
(HtmlCollection.item(i).className='wysiwyg_viewer_skins_button_ShinyButtonIISkinecom_ap1-link'))
then HtmlCollection.item(i).Click;
break;
end;

[Stilet]

Хе ))
Ты меня не понял.
Что такое точки прерывания в отладчике ты видимо не знаешь.
Поясняю: По стандарту Делфи чтоб программа в режиме отладки остановилась в нужном месте нужно стать курсором редактора на нужную строку и нажать F5. Слева появится красная точка-маркер бряка. Бряк это и есть точка прерывания.
После чего запускай отладчик, проделавай в программе нужны действия и смотри не упадет ли программа на этой точке остановив свое выполнение.
Если остановится - IF выполняется. Иначе не выполняется.
Оператор break тут ни при чем.
Ну или если не понимаешь как с отладкой работать просто напиши:

if((HtmlCollection.item(i).tagName= 'div') and
(HtmlCollection.item(i).className='wysiwyg_viewer_skins_button_ShinyButtonIISkinecom_ap1-link'))
then begin
 HtmlCollection.item(i).Click;
 ShowMessage('HtmlCollection.item(i).Click выполнился');
end;

И посмотри вылезет ли сообщение

[Monarh01]

Вообщем сделал все как вы говорите поставил бряк (F5) на строку - HtmlCollection.item(i).Click; - запустил Run to cursor и сделал действие в программе - посмотрел на строку где стоит бряк, там красная точка с зеленой галочкой, сделал без бряка с ShowMessage('HtmlCollection.item(i) .Click выполнился'); -при нажатии кнопки, табличка не выскочила.

 then begin
 HtmlCollection.item(i).Click;
 ShowMessage('HtmlCollection.item(i).Click выполнился');
end;

А если поставить ShowMessage('HtmlCollection.item(i) .Click выполнился'); в код ниже, тогда табличка вылетает, но кнопка естественно не нажимается.

for i:=0 to (HtmlCollection.Length - 1) do
begin
if((HtmlCollection.item(i).tagName= 'div') and
(HtmlCollection.item(i).className='wysiwyg_viewer_skins_button_ShinyButtonIISkinecom_ap1-link'))
then
begin
HtmlCollection.item(i).Click;
end;
end;
ShowMessage('HtmlCollection.item(i).Click выполнился');
end;

[Stilet]

Так,все ясно. Пока ты не научишься использовать отладчик дальше можешь не пытаться что-то делать. Не получится. Без обид.
Свое мнение я выше сказал: Твой if не выполняется.

[Monarh01]

ок спасибо и на этом.