Discussion :

[castorcharly]

Bonjour,

Je suis en cours de faire un client sur un WEB service dont je ne suis pas le concepteur.
Habituellement, je charge le WSDL et j'attaque le web service plus ou moins sans problème.

Là, le concepteur à mis une sécurisation, via login mot de passe, pour se connecter au Webservice et ses fonctions
et je ne sais pas où coller ces paramètres !
(Je ne parle pas du WSDL où l'on a la possibilité de saisir une authentification).

Je ne vois rien comme propriété explicite sur le HTTPRIO et ailleurs non plus,
quelqu'un a t il une idée sur la manière de coder et passer ces paramètres ?

Merci pour votre aide,

[ShaiLeTroll]

En Delphi 7, sur un WS en Login+PWD pour l'authencication basique j'ai ajouté ceci : en tête Authorization dans un web service et [D7] WebService et HTTPWebNode.UserName\PassWord

Renseigner HTTPWebNode.UserName\PassWord ne semble pas avoir beaucoup d'effet, j'avais donc ajouté l'entête manuellement

THTTPRIO.HTTPWebNode.UserName

Pour ma part, j'ai aussi utilisé "Authorization: Basic"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TFrm_Test_WS.HTTPReqResp_WSBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  s: string;
begin
  s := 'Authorization: Basic ' + EncodeLoginPW(HTTPReqResp.UserName, HTTPReqResp.Password);
  HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function TFrm_Test_WS.EncodeLoginPW(const ALogin, APW: string): string;
begin
  Result := EncdDecd.EncodeString(ALogin + ':' + APW);
end;

EncdDecd.EncodeString est en standard dans Delphi 7, bien caché mais disponible !