[推荐]--如何获取本地HTML文件的标题,超级链接。。。?
来源:互联网 发布:中国汽车产销量数据 编辑:程序博客网 时间:2024/04/30 08:14
本文用于提取本地网页的标签元素如<TITLE></TITLE>,<IMG>,<A></A>...的内容,非常实用于批量文件的操作,这是按一般文件进行文本查找替换无法比拟的,,而这是使用TWEBBROWSER控件无法做到的。类似的,
你可以把本地的HTML文件转换成MHT文件(这是个大家觉得很棘手的问题,本人已经搞定)。
//uses activex,mshtml
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;
- [推荐]--如何获取本地HTML文件的标题,超级链接。。。?
- 如何获取TWebBrowser控件的超级链接
- c#winform中如何获取网页中HTML的标题
- html超级链接<a>的click事件之后,改变页面标题等
- HTML标记【超级链接的使用】!
- 如何获取当前编译的文件标题和行数
- QTP如何获取本地Excel文件的行和列
- 使用fresco如何获取本地缓存图片的文件
- 新版本使用fresco如何获取本地缓存图片的文件
- Android浏览器如何打开本地html文件
- Android浏览器如何打开本地html文件
- webView如何加载本地html文件
- html文件如何加载iOS本地图片
- iOS 如何加载本地html文件
- 如保获取超级链接列的文本?
- Html:如何固定表格的标题行和标题列
- html之超级链接
- HTML 超级链接详细讲解
- Working Principles of CLR
- 二周年纪念日
- 數據庫設計范式
- 国内已经没有什么安全论坛值得留念了
- wincvs 配置
- [推荐]--如何获取本地HTML文件的标题,超级链接。。。?
- 姐姐怀孕 了^o^
- 如何将Office文件转化为PDF文件
- 安装jstl中的web.xml配置问题
- 常用服务器软件
- 读《程序员》(2005.10期)
- Online Acquisition System For M Co.Ltd(1)
- 微软首席开发大师 查尔斯-西蒙尼
- 虚拟驱动程序的安装