delphi NetHTTPClient1获取网络文件大小

uses

  System.Net.HttpClient,System.Net.URLClient, System.Net.HttpClientComponent,System.NetEncoding;

procedure GETNETFileSIZE(Durl:string);

var

MyHTTPResponse: IHTTPResponse;

NetHTTPClient1: TNetHTTPClient;

begin

  //获取文件的大小

  NetHTTPClient1 := TNetHTTPClient.Create(nil);

  NetHTTPClient1.MaxRedirects:=3;

  NetHTTPClient1.HandleRedirects :=True;

  NetHTTPClient1.CustomHeaders['Referer']:=Durl;

  MyHTTPResponse := NetHTTPClient1.Head(Durl);

  Writeln('MimeType：'+MyHTTPResponse.MimeType);

  Writeln('状态：'+MyHTTPResponse.StatusText+' '+MyHTTPResponse.StatusCode.ToString);

  Writeln('文件大小：'+IntToStr( MyHTTPResponse.ContentLength div 1024)+'KB');

  NetHTTPClient1.Free;

end;