procedure getAllLinks2(WB: TWebBrowser; var InnerText,Links: TStringList);
//needs unit as :shDocVw,Classes,MSHTML,variants
var
Htmldoc : IHtmlDocument2;
AllLinks : IhtmlElementCollection;
Len,I : Integer;
//HtmlItem2 : Olevariant;
HtmlItem: IHTMLElement;
begin
HtmlDoc := WB.document as Ihtmldocument2;
// AllLinks := HtmlDoc.get_links;
AllLinks := HtmlDoc.links;
Len := AllLinks.length ;
Links.BeginUpdate;
Innertext.BeginUpdate;
For I :=0 To Len-...[ 查看全文 ]