delphi 如何检测网站上的某个文件是否存在?

[gggyniiw]

delphi 如何检测网站上的某个文件是否存在?

用idhttp1.get 这个可以吗?我是刚学delphi,还是没看过书的那种,对idhttp的了解与使用也就到.get这步...都是百度找凑来的...
现在遇到问题了,我用idhttp1.get('http://127.0.0.1/1.txt')如果这个文件存在的话,程序什么都正常,但是如果1.txt不存在,或者我没开IIS的话,程序就会报错

请大侠能不能把代码发一下

[sparklerl]

等高手上班
呵呵

没用过这个

[gggyniiw]

[Quote=引用 5 楼 mosaic 的回复:]
应该要分析http服务端的错误码idhttp1.ResponseCode，比如404就表示服务器上的文件不存在。
[/Quote]

麻烦这位朋友能否给下代码....

[monkely]

try
idhtp1.Head('http://localhost/说明1.txt');
except
end;
mmo1.Text := idhtp1.ResponseText;

如果网站有你要的文件,mmo1.text里面是HTTP/1.1 200 OK,如果没有mmo1.text里面是HTTP/1.1 404 Object Not Found

[monkely]

idhtp1.Head方法没有将完整的文件下下来,如果要取完整文件用idhtp1.Get

[gggyniiw]

[Quote=引用 8 楼 monkely 的回复:]
try
idhtp1.Head('http://localhost/说明1.txt');
except
end;
mmo1.Text := idhtp1.ResponseText;

如果网站有你要的文件,mmo1.text里面是HTTP/1.1 200 OK,如果没有mmo1.text里面是HTTP/1.1 404 Object Not Found
[/Quote]
这个方法我试过,但如果我自己电脑IIS没开的话,依然报错!

[gggyniiw]

在 idhtp1.Head('http://localhost/说明1.txt');
这句就报错了

[monkely]

try
idhtp1.Head('http://localhost/说明1.txt');
except
on e : Exception do
mmo1.Text := e.Message; //你可以在这里分别对多种错误做处理
end;

[gggyniiw]

[Quote=引用 12 楼 monkely 的回复:]
try
idhtp1.Head('http://localhost/说明1.txt');
except
on e : Exception do
mmo1.Text := e.Message; //你可以在这里分别对多种错误做处理
end;
[/Quote]

我的意思是说,到了idhtp1.Head('http://localhost/说明1.txt'); 这一句后,程序直接崩溃了,运行不了了...

[monkely]

你是调试状态吗?如果是调试状态报错后按F9键继续执行

[gggyniiw]

不是,是直接F9

[linlingwei]

同样也关注该问题.

[gggyniiw]

就是报这种错误

[gggyniiw]

[chys3584]

不熟，帮你顶．

[mosaic]

IIS没开的话，肯定连都连不上，可以捕获异常来处理。

[mosaic]

哦，没仔细看，楼主已经有异常捕获的代码， 捕获不到？

[gggyniiw]

[Quote=引用 18 楼 mosaic 的回复:]
IIS没开的话，肯定连都连不上，可以捕获异常来处理。
[/Quote]
能给个简单的例子吗,万分感谢~~

[mosaic]

晕倒，楼主是在IDE环境下运行，那就是会和上面14楼说的那样。

你直接找到生成的exe文件来执行，应该就没问题了。

[gggyniiw]

好的,我试试

[gggyniiw]

[Quote=引用 21 楼 mosaic 的回复:]
晕倒，楼主是在IDE环境下运行，那就是会和上面14楼说的那样。

你直接找到生成的exe文件来执行，应该就没问题了。
[/Quote]
真的非常感谢你~!果然如你所说~~一人一半吧~~