nochmal danke auch dieses prob habe ich gelöst habe die funktion so um gebaut:
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); <-- einfach raus
info.Add(
url);
// info.Add(e.tagName); <-- einfach raus
s.Add(info.CommaText);
info.Clear;
end;
end;
info.Free;
end;