consommer un service Web avec l'authentification donne toujours un message Authentification requise

Question

J'essaie d'utiliser un service Web avec Delphi 2010. Ce service Web est sur le port 8000 avec authentification.

je mettre en œuvre le

function TForm4.EncodeLoginPW(const ALogin, APW: string): string; 
begin 
    Result := EncdDecd.EncodeString(ALogin + ':' + APW); // EncdDecd is not documented in 
end; 


procedure TForm4.HTTPRIO1HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; 
    Data: Pointer); 
var 
    s: string; 
begin 
    s := 'Authorization: Basic ' + EncodeLoginPW(UserName, Password); 
    if not HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD) then 
    ShowMessage('HttpAddRequestHeaders' + SysErrorMessage(GetLastError())); 
end; 

mais je dois encore le message "Authentification requise".

Est-ce que je fais quelque chose de mal?

Answer 1

Pour l'authentification de base cela devrait fonctionner:

Basic Authentication in Delphi 7 SOAP

Comme expliqué dans this post, les nouvelles versions de Delphi permettent également d'utiliser

HTTPRio.HTTPWebNode.UserName := Username; 
HTTPRio.HTTPWebNode.Password := Password; 

Answer 2

Si cela ne fonctionne toujours pas, vous pouvez essayer un client différent (.Net ou Java), et comparez le trafic HTTP à l'aide d'un proxy local (Fiddler ou Don's Proxy) ou d'un sniffer (WireShark), pour trouver les différents ces.