delphi - 在下载之前，使用delphi以编程方式从远程文件获取文件大小

Question

在下载之前，如何使用 Delphi 确定网络中托管的远程文件的大小(以字节为单位)？

提前致谢。

Answer 1

你可以使用 Indy。

首先包含IdHTTP。

您可以通过以下方式检索尺寸:

procedure TFormMain.Button1Click(Sender: TObject);
var
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  try
    Http.Head('http://live.sysinternals.com/ADExplorer.exe');

    ShowMessage(IntToStr(Http.Response.ContentLength));
  finally
    Http.Free;
  end;
end;