Discussion :

[ShaiLeTroll]

J'effectuais un test de connexion à un WebService développé en PHP avec un Login et un Mot de Passe dans un programme Delphi
ce test étant dans le but de vérifier si cela fonctionnait déjà via un client non-PHP car l'un des nos partenaires développant en Open-Edge ABL, n'arrive pas non plus à l'intégrer.

un client en PHP donnerait ceci :

Code :

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

1
2
3
4
5
6
 $aOptions = array('login' => 'toto',
                    'password' => 'titi',
                    'trace' => TRUE);
  $oSoapClient = new SoapClient('https://www.toto.php', $aOptions);
 
  $oPatient = $oSoapClient->FonctionBidule('%', '', '', '', '', '', 'truc', '', '', 'all');

j'ai tenté de renseigner HTTPWebNode.UserName\PassWord de mon THTTPRIO mais du côté PHP, il ne semble pas comprendre que l'on utilise ce login\mot de passe alors qu'en débogage, ces paramètres sont passé à l'API windows InternetConnect (THTTPReqResp.Connect dans SOAPHTTPTrans.pas), je ne vois pas comment aller plus loin dans le debug ... est-ce au moins des login\password à un même niveau de protocol ?

[ShaiLeTroll]

J'ai avancé dans mes recherches en PHP, on utilise la variable $_SERVER, effectivement, il n'y a pas le login et le mot de passe lorsque l'appel est fait via Delphi pourtant InternetQueryOption me renvoie bien mon login mais il ne semble pas être posé dans l'entête HTTP (j'ai testé en utilisant NetChat sur le port 80 pour lire en clair la requête, si c'est pas trollesque ... alors j'ai fait mon sauvage , j'ai ajouté directement la section login\pw crypté dans le header HTTP ....

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFrm_Test_WS_ECFRS.HTTPRIO1HTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  s: string;
begin
    s := 'Authorization: Basic ***'; // *** contenant la combinaison login\pw obtenue via la trace http en PHP 
    if not HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD) then
      ShowMessage('Et merde !');
end;

[ShaiLeTroll]

Voici le code final, si cela interesse, le Login et le Mot de Passe sont encodé en Base64 (unité EncdDecd.pas, bien caché celle-là !), HTTPReqResp_WS est le HttpWebNode du THttpRIO

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{* ----------------------------------------------------------------------------}
procedure TFrm_Test_WS.HTTPReqResp_WSBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  s: string;
begin
  s := 'Authorization: Basic ' + EncodeLoginPW(HTTPReqResp.UserName, HTTPReqResp.Password);
  if not HttpAddRequestHeaders(Data, PChar(s), Length(s), HTTP_ADDREQ_FLAG_ADD) then
    ManageError('HttpAddRequestHeaders', GetLastError());
end;
 
{* ----------------------------------------------------------------------------}
function TFrm_Test_WS.EncodeLoginPW(const ALogin, APW: string): string;
begin
  Result := EncdDecd.EncodeString(ALogin + ':' + APW);
end;