下载前检查jpg url是否存在（防止异常）

Question

如何在下载之前检查 JPG url 是否存在，以避免异常？

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  Url, FileName: String;
  I, C: Integer;
begin
  for I := 1 to 1000 do
  begin
    Url := 'http://www.mysite.com/images/' + IntToSTr(I) + '/Image.jpg';
    FileName := 'C:\Images\' + IntToStr(I) + '.jpg';
    FS := TFileStream.Create(FileName, fmCreate);
    try
      try
        IdHTTP1.Get(Url);
        c := IdHTTP1.ResponseCode;
        if C = 200  then
          IdHTTP1.Get(Url, FS);
      except
      end;
      Application.ProcessMessages;
    finally
      Fs.Free;
    end;
  end;
end;

Answer 1

要回答您的主要问题，您必须检查特定 URL 是否有效的唯一方法是检查网络服务器并检查服务器告诉您的内容。

使用 indy，您可以使用 Get 的 AIgnoreReplies 参数和其他方法来指示 TIdHTTP 实例在 Web 服务器返回状态时不要引发异常，如下所示：

IdHTTP1.Get(Url, FS, [404]);

如果有任何不同于 200 和 400 的状态，仍然会引发异常。根据组件的各种配置，还有其他状态码可能不会引发异常，例如状态码 401 和身份验证参数，以及其他人。

也就是说， 我在您的代码中发现了几个问题：

• 您拥有的 try/except 块杀死任何异常，任何异常，无论异常的性质如何。它将EOutOfMemory 与EIdSocketError、EIdHTTPProtocolException 甚至EMayanWorldEnd 异常处理相同！
• 您下载了两次图像...碰巧您只是忽略了第一次下载的数据并使用它尝试来确定资源是否存在。如果你觉得你必须检查资源是否存在，不要对它执行GET命令，执行HEAD一个！
• 不要使用 Application.ProcessMessages，将您的代码移至线程！
• 学会以正确的方式处理您可能收到的不同状态代码以及您可能发现的其他错误。一开始很难，但如果你想让它变得健壮，这是一条路。不同的错误可能是：
  • HTTP 状态代码，例如：
    • 请求超时（减速并重试）
    • 不支持 HTTP 版本（好吧，试试其他版本）
    • 等
  • 网络故障
    • 网络中断了吗
    • WebServer 关闭了吗
    • 等
  • 作为一般规则，让您不知道如何处理的任何其他异常...或者，如果您别无选择，请吃掉它们，但记录正在发生的事情并阅读日志，这样您将提高您的知识和技能。

Answer 2

如果您首先下载所有互联网，那么您可以在您的 Exabyte 数据收集中检查图像是否存在。

否则，您将不得不处理文件不存在的情况。

您还必须处理各种其他错误，例如超时，或者您的网络抓取工具达到下载限制并被阻止。