Не могу понять, в чем причина IHtmlDocument2

← →
Wadim (2015-03-20 14:58) [0]

Создаю объект
WBS:=CoInternetExplorer.Create;
WBS.Visible:=True;
WBSocks.Navigate("http://www.com/",
EmptyParam, EmptyParam, EmptyParam, EmptyParam);

далее идет заполнение нужных полей, нажимается кнопка, все норм

затем

procedure ClickToButtonFromWebBrowser(WBp: IWebBrowser2; ButtonIdent:String); var HtmlDocument : IHtmlDocument2; HtmlCollection : IHtmlElementCollection; HtmlElement : IHtmlElement; I : Integer; begin HtmlDocument := WBP.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="INPUT" then begin if pos(ButtonIdent, HtmlElement.outerHTML)>0 then begin HtmlElement.click; break; end; end; end; end;

HtmlElement.click; - выполняется и в WIN8 и в WinXP
но после именно выполнения в WIN8 далее объект WBS сбрасывается, вернее сказать теряет свой указатель что-ли, тек пустой, даже WBS.quit не работает. в WINXP все работает.

Delphi 7

← →
KilkennyCat © (2015-03-22 20:40) [1]

http://www.vbforums.com/showthread.php?708571-Counting-Particular-Letter-Occurrences-in-a-String

← →
KilkennyCat © (2015-03-22 20:44) [2]

если всякие клики по страницам - чисто для автоматизации, без визуального контроля, то решение через актив-икс-оле-или-как-там-его не самое оптимальное, так как доставит еще массу разных веселых моментов. Особенно где требуемые дллки отсутствуют.

← →
кгшзх © (2015-03-23 11:05) [3]

http://habrahabr.ru/post/252851/

первая библиотека в списке

Не могу понять, в чем причина IHtmlDocument2 Найти похожие ветки