首页 相关文章 如何获取TWebBrowser控件的超级链接

如何获取TWebBrowser控件的超级链接

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

2016-02-19 标签:

如何获取TWebBrowser控件的超级链接的相关文章

手机页面
收藏网站 回到头部