delphi - 如何使用 Delphi 5 快速检查网络位置是否存在？

Question

Possible Duplicates:
Speed up File.Exists for non existing network shares
Faster DirectoryExists function?

我们需要将文本写入网络上的文件，但可能存在该位置不存在的情况，而我们需要写入另一个位置。如何快速检查网络位置是否存在？尝试使用“try... except”将文本写入不存在的位置需要长达 30 秒的时间。肯定有更快的方法吧？

如果有人能给我一些指导，我将不胜感激。

谢谢!

Answer 1

对于那些对 Delphi 上下文的答案感兴趣的人，我使用 Indy 组件 IdIcmpClient 组件来 ping IP，如下所示:

  IdIcmpClient1.Host:= '10.0.0.999';
  try
    IdIcmpClient1.Ping();
  except
    showmessage('Not found');
  end;

如果不存在，您只需 3 秒多一点就能得到结果；如果存在，则几乎立即得到结果。