Gibt es eine Möglichkeit, die endgültige URL nach Weiterleitungen mit WinHTTP in Delphi zu erhalten?

Question

Ich kann den folgenden Code verwenden, um die HTML-Quelle von der URL zu erhalten, aber wie kann ich die eigentliche URL selbst erhalten? Da manchmal die anfängliche URL einige Weiterleitungen durchläuft und die tatsächliche URL nicht die gleiche ist, möchte ich sie zur Verwendung erfassen. Ich kann keine gute Dokumentation über die Verwendung von Methoden oder Eigenschaften für WinHTTP in Delphi finden. Vielen Dank!

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

Sie können so etwas wie dieses

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; 

Eine andere Art und Weise verwenden mit 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;