Форум: "Начинающим";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Вниз

Не могу понять, в чем причина 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/

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

---

← →
KilkennyCat ©   (2015-03-24 04:01) [4]

> кгшзх ©   (23.03.15 11:05) [3]

спасибо за ссылку, нашел для себя полезное.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2017.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c