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 &nbs...
[ 查看全文 ]