Delphi idhttp下载html的代码(含错误处理)

本文整理自网络，侵删。

 IdHTTP_Thread := TIDHTTP.Create;
IdHTTP_Thread.ReadTimeout := 240000;
IdHTTP_Thread.ConnectTimeout := 240000;
IdHTTP_Thread.Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)';
try
try
TStmHtml := TStringStream.Create('');
IdHTTP_Thread.Get(FGetURL,TStmHtml);
strHtml := TStmHtml.DataString ;
//strHtml := FParameter;
except
on E:EIdSocketError do
begin
FImpInfo := IntToStr(iLoop)+' 获得'+FGetURL+'职位信息时出现错误丢失一页 错误原因: '+SysErrorMessage(E.LastError );
FErrCode := E.LastError;
ReGetHtml := True;
end;
else
begin
FImpInfo := IntToStr(iLoop)+' 获得'+FGetURL+'职位信息时出现错误丢失一页 错误原因: 打开网页失败';
FErrCode := 1 ;
ReGetHtml := True;
end;
end;
finally
IdHTTP_Thread.Disconnect ;
IdHTTP_Thread.Free ;
TStmHtml.Free ;
end; 

相关阅读 >>

Delphi idhttp post中文的问题

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

Delphi 数组竟然可以这样定义

Delphi 调用百度地图api

Delphi 判断端口(port)是否被占用

Delphi文件复制函数

Delphi webbrowser 无法调用当前浏览器的版本

Delphi捕获u盘插入或者拔出

Delphi xe5 for android 退出提示

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi idhttp下载html的代码(含错误处理)