在下载之前,如何使用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;