Twebbrowser

  • Автор темы Rampl
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

Rampl

#1
Подскажите как программно нажать на ссылку с определенным InnerText, в Twebbrowsere?
 
R

Rampl

#3
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
HtmlDocument: IHtmlDocument2;
HtmlCollection: IHtmlElementCollection;
HtmlElement: IHtmlElement;
I: Integer;
begin
HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
HtmlCollection := HtmlDocument.All;
HtmlCollection := HtmlCollection.Tags('A') as IHTMLElementCollection;
for I := 0 to HtmlCollection.Length - 1 do begin
HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;



end;
end;
Что дальше надо написать чтобы произошел click с определенным InnerText?
 
E
#4
InnerText тут для поиска? вы прочитали справку по указанному методу?
 
R

Rampl

#5
Мне надо найти ссылку в WebBrowser1 и нажать на неё.
Нашёл решение.
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
HtmlDocument: IHtmlDocument2;
HtmlCollection: IHtmlElementCollection;
HtmlElement: IHtmlElement;
I: Integer;
begin
HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
HtmlCollection := HtmlDocument.All;
HtmlCollection := HtmlCollection.Tags('A') as IHTMLElementCollection;
for I := 0 to HtmlCollection.Length - 1 do begin
HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
if  HtmlElement.InnerText = 'текст ссылки' then
begin
HtmlElement.click;
end;
end;
end;
 
Статус
Закрыто для дальнейших ответов.