本文整理自网络，侵删。
在看源代码的时候又找到个类似的方法,利用 idhttp 组件 ,但这方法的稳定性和速度都不如第一个方法,
function Get(URL: string): boolean;
var
IDHTTP: TIDHttp;
ss: String;
begin
Result:= False;
IDHTTP:= TIDHTTP.Create(nil);
try
try
idhttp.HandleRedirects:= true; //必须支持重定向否则可能出错
idhttp.ReadTimeout:= 30000; //超过这个时间则不再访问
ss:= IDHTTP.Get(URL);
if IDHTTP.ResponseCode=200 then
Result :=true;
except
end;
finally
IDHTTP.Free;
end;
end;
这个函数可以收下,具体是这样的,在探测资源前先调用这个方法对网址进行初步判断,查看网站关闭或用户是否已经连接到网络.否则后面的就不用执行了.
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
