有没有办法在德尔福中使用 WinHTTP 重定向后获得最终 URL

Question

我可以使用以下代码轻松地从URL获取HTML源代码，但是如何获取实际的URL本身呢？因为有时初始 URL 会经过一些重定向，而实际 URL 并不相同，我想捕获它以供使用。我似乎找不到任何关于在德尔福中使用 winHTTP 的方法或属性的好文档。谢谢！

var http: variant;
begin
 http:=createoleobject('WinHttp.WinHttpRequest.5.1');
 http.open('GET', 'http://URLtoWebsite.com', false);
 http.send;
 showmessage(http.responsetext);
end;

Answer 1

你可以使用这样的东西

function GetFinalURL(const AMainURL: string): string;
var
  http: Variant;
begin
  Result := '';
  http := CreateOleObject('WinHttp.WinHttpRequest.5.1');
  http.Option(6) := False;
  http.open('GET', AMainURL, false);
  http.send;
  if http.Status = 302 then
    Result := http.getResponseHeader('Location')
  else
  Result := AMainURL;
end;

使用Indy的另一种方式

function GetFinalURL(const AMainURL: string): string;
var
  idHTTP: TIdHTTP;
begin
  Result := '';
  idHTTP := TIdHTTP.Create(nil);
  try
    idHTTP.HandleRedirects := True;
    try
      idHTTP.Get(AMainURL);
      Result := idHTTP.Request.URL;
    except
    end;
  finally
    idHTTP.Free;
  end;
end;

Answer 2

您可以使用

WINHTTP_CALLBACK_FLAG_REDIRECT参数设置 WinHttpSetStatusCallback，以接收有关请求期间发生的每个重定向的通知。