如何获取本地HTML文件的标题,超级链接

720笑傲江湖

720笑傲江湖

2016-02-19 21:29

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐如何获取本地HTML文件的标题,超级链接,希望大家看完后也有个好心情,快快行动吧!

  本文用于提取本地网页的标签元素如TITLE/TITLE,IMG,A/A...的内容,非常实用于批量文件的操作,这是按一般文件进行文本查找替换无法比拟的,,而这是使用TWEBBROWSER控件无法做到的。类似的,
  你可以把本地的HTML文件转换成MHT文件(这是个大家觉得很棘手的问题,本人已经搞定)。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  //uses activex,mshtml

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  function Html_GetTitleFromFile(const HtmlFile:TFileName;var FileTitle:String):Boolean;
  var
  Idoc     : IHtmlDocument2;
  //ElementGroup : IhtmlElementCollection;
  //HtmlItem: IHTMLElement;
  PersistFile: IPersistFile;
  begin
  Result:=False;
  if not fileexists(HtmlFile) then
  exit;
    FileTitle:='';

    try
         Idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
         PersistFile := IDoc as IPersistFile;
         if PersistFile.Load(StringToOleStr(HTMLFile),1)S_OK then
         exit;
         IDoc.designMode := 'on';  //This will disable script execution.
      {   while IDoc.readyState 'complete' do  //if it dead here,how to do it?
         begin
         application.ProcessMessages;
         end;
      }
      //   Showmessage(IDoc.readyState);
         Application.ProcessMessages;
         sleep(1000);
      //   Showmessage(IDoc.readyState);
         if IDoc.readyState'complete' then
         begin
         Application.ProcessMessages;
         sleep(1000);
         end;
         if IDoc.readyState'complete' then
         begin
         IDoc:=nil;
         Result:=False;
         exit;
         end;
          Result:=True;
         FileTitle:=IDoc.title;
         {  //This code also works
         ElementGroup:=IDoc.all.tags('TITLE') As IhtmlElementCollection;
         HtmlItem:=ElementGroup.item(0,0) As IHtmlElement;
         FileTitle:=HtmlItem.innerText;
         }

     finally
          IDoc := nil;
     end;
  end;


展开更多 50%)
分享

猜你喜欢

如何获取本地HTML文件的标题,超级链接

编程语言 网络编程
如何获取本地HTML文件的标题,超级链接

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

编程语言 网络编程
如何获取TWebBrowser控件的超级链接

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用好超级链接标记—A

Html CSS布局 Div+CSS XHTML
用好超级链接标记—A

建立Excel超级链接

办公软件
建立Excel超级链接

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用Delphi实现超级链接

编程语言 网络编程
用Delphi实现超级链接

Word文档的自动超级链接

办公软件
Word文档的自动超级链接

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Delphi编程辨别显示分辨率

Delphi编程辨别显示分辨率

电脑提示C盘空间不足后哪些文件可以删除呢?

电脑提示C盘空间不足后哪些文件可以删除呢?
下拉加载更多内容 ↓