Twebbrowser

Тема в разделе "Delphi - Сети", создана пользователем Rampl, 12 май 2008.

Статус темы:
Закрыта.
  1. Rampl

    Rampl Гость

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

    etc Гость

    TWebBrowser.Navigate + F1
     
  3. Rampl

    Rampl Гость

    Код (Text):
    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?
     
  4. etc

    etc Гость

    InnerText тут для поиска? вы прочитали справку по указанному методу?
     
  5. Rampl

    Rampl Гость

    Мне надо найти ссылку в WebBrowser1 и нажать на неё.
    Нашёл решение.
    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей