Hallo.
Da es sich bei dem Text offensichtlich um
HTML-Code handelt, würde ich ihn auch als solchen behandeln. Mit der Prozedur ExtractLinks() werden alle hyperlinks aus einem
HTML-Document heraus geholt, auch wenn sie nicht Attributwert eines Anchor-Elements sind:
Delphi-Quellcode:
procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings);
var
ec: IHTMLElementCollection;
e: IHTMLElement;
i: integer;
url: Variant;
begin
ec := doc.links;
for i := 0
to Pred(
ec.length)
do
begin
e :=
ec.item(i, 0)
as IHTMLElement;
url := VarToStr(e.getAttribute('
href', 0));
if url <> '
'
then
s.Add(
url);
end;
end;
Grüße vom marabu