Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Программно нажать на ссылку в Webrowser

Автор: Archangelus 5.12.2008, 13:52

Я нашёл пример:

Код


procedure LinkClick(LinkName:String);
var
  HtmlDocument: IHtmlDocument2;
  HtmlCollection: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  I: Integer;
begin
  HtmlDocument := form1.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 = LinkName then
    begin
     HtmlElement.click;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 HtmlElement: IHtmlElement;
begin
LinkClick(edit3.Text);   {в edit нужно пихать название ссылки, а не саму ссылку}
end;

но почему-то на некоторые названия нажимает, а некоторые просто не видит :( Ну это ладно, мне б тогда сделать так, что б в edit можно было совать не название, а саму ссылку типа (http://сайт.ru) и нажимать на неё программно...
помогите пожалуйста кодом!

M
Alexeis

Модератор: используйте подсветку кода

Автор: hkdkest 5.12.2008, 17:33

http://codingrus.ru/readarticle.php?article_id=560 надеюсь поймешь как в едит )

Автор: Archangelus 5.12.2008, 17:51

мне не нужно вывести в edit
мне нужен клик по ссылке, которая есть на загруженой странице webbrowser1

Автор: hkdkest 6.12.2008, 02:07

Цитата(Archangelus @ 5.12.2008, 17:51)

мне не нужно вывести в edit
мне нужен клик по ссылке, которая есть на загруженой странице webbrowser1

Она что там одна на странице?

в обработчике окончания загрузки страницы Вытаскиваешь ссылку, затем
Webbrowser.Navigate('links')

и все