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

Советы » Браузер » Найти все линки в 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com