Extract all links?

[barvinog]

Sorry, this code doesn't extract all links from html source:

procedure Test(html); var LHtml: IHtmlElement; LList: IHtmlElementList; begin LHtml := ParserHTML(html); if LHtml <> nil then begin LList := LHtml.SimpleCSSSelector('a'); for LHtml in LList do Memo1.Lines.Add('url:' + LHtml.Attributes['href']); end; end;