Вывести список ссылок страницы в TWebBrowser

Советы » Браузер » Вывести список ссылок страницы в TWebBrowser

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

; {*****************} { if there are frames } procedure

TForm1.Button2Click(Sender: TObject); var

u : variant; v : IDispatch; s : string

; procedure

RecurseLinks(htmlDoc: variant); var

BodyElement : variant; ElementCo: variant; HTMLFrames: variant; HTMLWnd : variant; j, i : integer; begin

if

VarIsEmpty(htmlDoc) then

exit; BodyElement := htmlDoc.body; if

BodyElement.tagName = 'BODY' then

begin

ElementCo := htmlDoc.links; j := ElementCo.Length - 1; for

i := 0 to

j do

begin

u := ElementCo.item(i); s := u.href; listLinks.Items.Add(s); end

; end

; HTMLFrames := htmlDoc.Frames; j := HTMLFrames.length - 1; for

i := 0 to

j do

begin

HTMLWnd := HTMLFrames.Item(i); RecurseLinks(HTMLWnd.Document); end

; end

; // RecurseLinks begin

v := WebBrowser1.document; listLinks.Clear; RecurseLinks(v); end

;

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

Категории

Статьи

Советы

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