Bonjour à tous,

Je souhaiterais poster des données sur un serveur web (php)
Le serveur reçoit bien la requête mais je n'arrive pas à lire les données en retour, la chaine est toujours vide.

Voici mon code de test que j'ai trouvé sur internet:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  reponse,params: TStringStream;
begin
   reponse := TStringStream.Create;
   Params  := TStringStream.Create('param1=Value1&param2=value2&param3=Value3', TEncoding.UTF8);
   IdHTTP1.Post('http://www.crystalxe.com/test.php', Params,reponse);
   ShowMessage(Reponse.DataString);
   ShowMessage(IdHttp1.ResponseText); // affiche 'HTTP/1.1 200 OK'
   Params.Free;
   Reponse.Free;
end;
et voici le code php de la page test.php
Code php : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
<?php
  echo "YES";
  sleep(2);
?>

Si je change la valeur du sleep dans la page PHP, le temps de retour varie bien en conséquence ce qui confirme que j'accède bien à la page.

merci
Franck