TIdHTTP expose OnProxyAuthorization pour le moment où un mécanisme d'authentification proxy demande à l'application de fournir un compte. Le rappel reçoit un objet TIdAuthentication et un résultat Handled :

procedure TForm1.IdHTTP1ProxyAuthorization(Sender: TObject;
  Authentication: TIdAuthentication; var Handled: Boolean);
begin
  Authentication.Username := 'PROXY_USER';
  Authentication.Password := 'PROXY_PASSWORD';
  Handled := True;
end;

Utilisez l'unité IdAuthentication pour le type et affectez cette méthode à l'événement OnProxyAuthorization du composant HTTP. Remplacez les valeurs d'espace réservé par le compte fourni par la logique d'identification de l'application.

Renvoyer Handled=true permet au mécanisme d'authentification de poursuivre avec ces valeurs. Renvoyez false lorsque l'utilisateur annule ou que l'application refuse de fournir un identifiant.

Le point de terminaison du proxy appartient toujours à la configuration ProxyParams du composant. Le rappel participe à l'échange du schéma sélectionné ; il n'a pas besoin de calculer lui-même un en-tête Basic ou NTLM.

Articles similaires