| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не могу понять, в чем причина IHtmlDocument2 [D7]
Wadim © (2015-03-20 14:58:00)Создаю объект
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-24 04:01:00) [1]
> кгшзх © (23.03.15 11:05) [3]
спасибо за ссылку, нашел для себя полезное.
кгшзх (2015-03-23 11:05:00) [2]http://habrahabr.ru/post/252851/
первая библиотека в списке
KilkennyCat (2015-03-22 20:44:00) [3]если всякие клики по страницам - чисто для автоматизации, без визуального контроля, то решение через актив-икс-оле-или-как-там-его не самое оптимальное, так как доставит еще массу разных веселых моментов. Особенно где требуемые дллки отсутствуют.
KilkennyCat (2015-03-22 20:40:00) [4]http://www.vbforums.com/showthread.php?708571-Counting-Particular-Letter-Occurrences-in-a-String
| |
