Hallo xe0n,
schön, dass du den für dich passenden Code gefunden hast. Ich lasse mir die Links lieber vom
HTML Parser geben und das sieht dann so oder ähnlich aus:
Delphi-Quellcode:
procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings);
var
all: IHTMLElementCollection;
e: IHTMLElement;
i: integer;
info: TStrings;
url: Variant;
begin
info := TStringList.Create;
all := doc.all;
for i := 0
to Pred(all.length)
do
begin
e := all.item(i, 0)
as IHTMLElement;
url := e.getAttribute('
href', 0);
if not VarIsNull(
url)
then
begin
info.Add(e.innerText);
info.Add(
url);
info.Add(e.tagName);
s.Add(info.CommaText);
info.Clear;
end;
end;
info.Free;
end;
Im Gegensatz zu deinem Code "aus der Schweiz" werden damit auch relative Links gefunden, wobei ich gleich noch die Informationen mit einsammle, die der FireFox in seiner PageInfo unter Links anbietet.
Grüße vom marabu