Est-il possible d'obtenir l'URL finale après les redirections utilisant WinHTTP dans Delphi?

Question

Je peux utiliser le code suivant pour obtenir facilement la source HTML de l'URL, mais comment puis-je obtenir l'URL elle-même? Parce que parfois l'URL initiale traverse certaines redirections et l'URL réelle n'est pas la même et je voudrais la capturer pour l'utilisation. Je n'arrive pas à trouver une bonne documentation sur l'utilisation des méthodes ou propriétés pour winHTTP dans Delphi. Merci!

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

Vous pouvez utiliser quelque chose comme ça

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; 

Une autre façon en utilisant 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;