Delphi使用TNetHTTPClient：重定向后如何给出最终的URL？方法2

uses

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

function GETNETFileRedirectsUrl(Durl:string): string;

var

MyHTTPResponse: IHTTPResponse;

NetHTTPClient1: TNetHTTPClient;

begin

  //获取文件的大小

  NetHTTPClient1 := TNetHTTPClient.Create(nil);

  NetHTTPClient1.MaxRedirects:=3;

  NetHTTPClient1.HandleRedirects :=false;

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

  MyHTTPResponse := NetHTTPClient1.Head(Durl);

  if MyHTTPResponse.StatusCode=200 then

  begin

  Result:=NetHTTPClient1.Head(Durl).HeaderValue['Location'];

  end;

  if MyHTTPResponse.StatusCode=302 then

  begin

  Result:=NetHTTPClient1.Head(Durl).HeaderValue['Location'];

  end;

  NetHTTPClient1.Free;

end;