Найти все линки в WEBBrowser

Delphi , Интернет и Сети , Браузер

Найти все линки в WEBBrowser

Депрессия - это когда включаешь интернет и не знаешь куда пойти.

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do 
    Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); 
end;

Статья Найти все линки в WEBBrowser раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Браузер ::

19.04.2024 06:23:02/0.035974025726318/2