delphi HttpGet 判断链接是否可以访问

function HttpGet(idhttp:tidhttp;url,cookies:widestring;var html:string):boolean;

begin

result:=true;

try

idhttp.Disconnect;

except

end;

idhttp.HandleRedirects:=true;

idhttp.AllowCookies:=false;

idhttp.HTTPOptions:=[hoForceEncodeParams];

idhttp.OnStatus:=frm_work.HttpStatus;

idhttp.OnWork:=frm_work.HttpWork;

idhttp.OnWorkBegin:=frm_work.HttpWorkBegin;

idhttp.OnDisconnected:=frm_work.HttpDisconnected;

idhttp.Port:=80;

idhttp.ReadTimeout:=1000*c_timeout;

idhttp.Request.UserAgent:=DataBase.userAgent;

idhttp.Request.Referer:=url;

idhttp.Request.CustomHeaders.Clear;

idhttp.Request.CustomHeaders.Append(cookies);

httpproxyinit(idhttp);

try

if stopaction(orderstop) then

begin

result:=false;

exit;

end;

timeoutstart;

try

html:=idhttp.get(EnURLstr(url));

except

html:='';

result:=false;

end;

finally

idhttp.Disconnect;

timeoutend;

end;

推荐分享