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

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

提前致谢.

解决方法

你可以使用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;