Chyba nie ma innej możliwości tylko pętla po IHTMLElementCollection
coś w stylu:
var
elems: IHTMLElementCollection;
elem: IHTMLElement;
i: Integer;
s: string;
begin
ListBox1.Items.Clear;
elems:= IHTMLDocument2(WebBrowser1.Document).all;
if elems <> nil then
begin
for i:= 0 to elems.length -1 do
begin
elem:= elems.item(i, Null) as IHTMLElement;
if not VarIsNull(elem.getAttribute('src', 0)) then
begin
s:= elem.GetAttribute('src', 0);
if Length(s) > 0 then
ListBox1.Items.Add(s);
end;
end;
end;
end;
Na pewno to nie jest dobry sposób, bo pobiera tylko te, które mają atrybut src
) na pewno to pominie CSS (trzeba by sprawdzać czy element to link
i wtedy wyciągać `href``) i pewnie pomija coś jeszcze a o takich przypadkach jak np. coś będzie miało obrazek tła ustawiony w CSS już nawet nie wspominam ale chyba nie ma żadnej innej możliwości tylko takie zabawy.