Получить все URLs фреймов в TWebBrowser

Советы » Браузер » Получить все URLs фреймов в TWebBrowser

procedure

TForm1.Button2Click(Sender: TObject); var

i: Integer; begin

Listbox1.Clear; //if frames available if

Webbrowser1.OleObject.Document.Frames.Length <> 0 then

begin

//walk through all frames and get the url //to the Listbox for

i := 0 to

Webbrowser1.OleObject.Document.Frames.Length - 1 do

begin

Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Document.URL); end

; end

; end

;

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

Категории

Статьи

Советы

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