Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.01.15;
Скачать: CL | DM;

Вниз

Не могу понять, в чем причина 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1308823507
Тимофей Ю.
2011-06-23 14:05
2017.01.15
ado и access


15-1454051466
KSergey
2016-01-29 10:11
2017.01.15
Тормоза с EnterCriticalSection в 32-х битном приложении на x64 ОС


2-1426368587
SvetaZ1
2015-03-15 00:29
2017.01.15
вопрос по Case


15-1454623843
KilkennyCat
2016-02-05 01:10
2017.01.15
Задачка про сеть.


3-1310747259
Дмитрий
2011-07-15 20:27
2017.01.15
Вылет при изменении данных в гриде (Eh)