delphi - 当 HEAD 请求未报告 ContentLength 时，如何获取下载的大小？

Question

在 Delphi 中使用此代码获取网页大小:(我的意思是页面源大小)

uses
  IdHTTP

function URLsize(const URL : string) : integer;
var
  Http: TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
  try
    Http.Head(URL);    
    result := round(Http.Response.ContentLength / 1048576);   //MB   
  finally
    Http.Free;
  end;
end;

我可以轻松获取某些 URL(例如 http://sample.com/test.exe)的文件大小。它返回以 MB 为单位的大小。

但是我无法使用此代码获取像 http://stackoverflow.com/ 这样的 URL 的 URL 大小；它返回 0 或 -1。

在这种情况下我怎样才能得到尺寸？

Answer 1

并非所有 HTTP HEAD 响应都包含内容长度。所以，你想要做的事情一般来说是不可能的。如果您遇到不包含内容长度的响应，您需要下载内容才能找到长度。