IdHttp.post ne retourne rien

**franckcl** · 09/02/2016, 16h53

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

**Moez.B** · 15/02/2016, 12h28

Bonjour

La propriété ResponseText n'est pas le retour à traiter après dans ton code. Elle représente le message de ton serveur sur le déroulement de l'opération POST que tu as appelée.
Il faut gérer le retour dans une autre variable de type TStringStream dans laquelle tu copies le document du composant Indy et se positionner au début du flux contenu dans cette variable.

Voici un bout de code qui pourra t'aider :

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
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
var
  reponse,params: TStringStream;
  OutPut: TStringStream;
begin
   reponse := TStringStream.Create;
   Params  := TStringStream.Create('param1=Value1&param2=value2&param3=Value3', TEncoding.UTF8);
   OutPut  := TStringStream.Create;
   try
     IdHTTP1.Post('http://www.crystalxe.com/test.php', Params,reponse);
 
     OutPut.CopyFrom(IdHttp1.Document, 0);
     OutPut.Seek(0,soFromBeginning);
     ShowMessage(OutPut.DataString); // Afficher le retour du serveur Php
 
     ShowMessage(Reponse.DataString);
     ShowMessage(IdHttp1.ResponseText); // affiche 'HTTP/1.1 200 OK'
   finally
     Params.Free;
     Reponse.Free;
     OutPut.Free;
   end;
end;

**franckcl** · 15/02/2016, 13h32

bonjour,

Merci pour ta réponse.
Je suis en dialogue avec une personne de chez Embarcadero en Californie qui participe aussi au développement du composant IdHTTP (d'ailleurs son nom figure dans les sources), il s'agit de Remy Lebeau.
voici le thread https://forums.embarcadero.com/messa...ssageID=779980
Sinon, tu as raison, reponsetext est bien un acquittement.
En revanche la réponse devrait bien se trouver dans "reponse.datastring" et d'ailleurs, ce code fonctionne depuis chez moi ou en passant par mon mobile en hotspot wifi mais pas à travers le réseau de mon entreprise.
J'ai voulu essayer ton code mais la propriété IdHttp1.Document est inconnue dans ma version de XE5.
Et puis après analyse de la trame par wireshark, la réponse n'est pas dans la trame donc elle ne peut pas arriver jusqu'au composant IDHTTP.

Il y a quelque chose qui bloque au niveau du réseau de mon entreprise (firewall ou autre?)
Mais j'ai comparé avec un explorateur comme firefox et ça marche, le POST envoyé par firefox semble plus lui plaire que celui envoyé par IDHTTP.
(voir mes thread dans le lien ci-dessus)
Je donnerai une réponse en francais ici lorsque j'aurai trouvé la solution.

**ShaiLeTroll** · 15/02/2016, 14h18

J'ai testé ton code fourni dans ton 1er message, aucun soucis, cela affiche "YES !!!"
XE2 sous W7 via un réseau d'entreprise

**franckcl** · 15/02/2016, 14h26

Envoyé par ShaiLeTroll

J'ai testé ton code fourni dans ton 1er message, aucun soucis, cela affiche "YES !!!"
XE2 sous W7 via un réseau d'entreprise

Merci d'avoir fait l'essai cela prouve qu'il y a quelque chose qui bloque les requêtes IDHTTP dans mon entreprise mais pas firefox ni autres navigateurs...

**ShaiLeTroll** · 15/02/2016, 14h35

Au fait, Idem, je n'ai pas de propriété Document dans TIdHTTP

As-tu essayé avec les composants ICS pour voir si cela vient d'Indy ?

j'ai repris le code la FAQ Comment télécharger un fichier en Http sans utiliser Indy ?

il te faudra utiliser HttpOpenRequest et HttpSendRequest pour émettre les données du POST

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure T1Form1.btn1Click(Sender: TObject);
const BufferSize = 1024;
var hSession, hURL: HInternet;
    Buffer: array[1..BufferSize] of Byte;
    BufferLen: DWORD;
    f: File;
    sAppName: string;
    FS:TStringStream;
begin
     sAppName := ExtractFileName(Application.ExeName);
 
     hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, '', '', 0);
 
     FS := TStringStream.Create();
     try
        hURL := InternetOpenURL(hSession, PChar('http://www.crystalxe.com/test.php'), nil,0,0,0);
        try
           repeat
             InternetReadFile(hURL, @Buffer, BufferSize, BufferLen);
             FS.WriteBuffer(Buffer, BufferLen);
 
           until BufferLen = 0;
 
 
           ShowMessage(FS.DataString);
        finally
          InternetCloseHandle(hURL)
        end
     finally
         InternetCloseHandle(hSession);
         FS.Free;
     end;
exit;

EDIT la version HttpOpenRequest retourne YES !!!
mais j'ignore si le Data passe correctement :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
procedure T1Form1.btn1Click(Sender: TObject);
const
  BufferSize = 1024;
  accept: packed array[0..1] of LPWSTR = (PChar('text/*'), nil); // PCTSTR rgpszAcceptTypes[] = {_T(“text/*”), NULL};
var
    hSession, hHTTP, hReq : HINTERNET;
    Buffer: array[1..BufferSize] of Byte;
    BufferLen: DWORD;
    f: File;
    sAppName: string;
    FS:TStringStream;
    Headers: string;
    Data: RawByteString;
begin
 
    sAppName := ExtractFileName(Application.ExeName);
 
    hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    try
      hHTTP := InternetConnect(hSession, 'www.crystalxe.com', INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
      try
        hReq := HttpOpenRequest(hHTTP, PChar('POST'), 'test.php', nil, nil, @accept, 0, 1);
        try
          Headers := 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
          Data := UTF8Encode('param1=Value1&param2=value2&param3=Value3');
          if HttpSendRequest(hReq, PChar(Headers), length(Headers), PAnsiChar(Data), length(Data)) then
          begin
            FS := TStringStream.Create();
            try
              BufferLen := 0;
              repeat
                if InternetReadFile(hReq, @Buffer, BufferSize, BufferLen) then
                  FS.WriteBuffer(Buffer, BufferLen);
 
              until BufferLen = 0;
 
                         ShowMessage(FS.DataString); // YES !!!
            finally
              FS.Free;
            end;
          end
          else
            raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
        finally
          InternetCloseHandle(hReq);
        end;
      finally
        InternetCloseHandle(hHTTP);
      end;
    finally
      InternetCloseHandle(hSession);
    end;
 
 
exit;

**Moez.B** · 15/02/2016, 16h21

Bonjour
En faite, j'ai eu une petite confusion entre les composants Indy (TIdHttp) et ceux des Ararat Synapse (le THttpSend) puisque je travaille avec les 2 dans pas mal de projets. Donc
Évidement, le Reponse.DataString est bien le retour de votre appel Http sur votre serveur.
Il y a plusieurs variantes du post d'un TIdHttp, je crois que celle ci fera bien l'affaire

Code :

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

procedure TIdCustomHTTP.Post(AURL: string; const ASourceFile: String; AResponseContent: TStream);

**franckcl** · 15/02/2016, 16h56

Merci ShaiLeTroll ! cela fonctionne bien avec HttpOpenRequest et HttpSendRequest, là ou ça ne marchait pas avec Indy.

Il y a donc un truc qui bloque dans indy mais quoi ?

**ShaiLeTroll** · 15/02/2016, 17h26

Indy c'est directement codé par dessus leur couche TCP/IP, c'est totalement à la main !
Indy lui pose parfois problème, certains mails n'arrivent pas au destinataire car bloquer quelques part, tu l'envoie via Outlook et ça passe !

Les Api Windows, ont peut penser que celle d'IE sont les mêmes
en tous cas, lorsque je les ai utilisé il y a un paquet d'année, le passage de IE6 à IE7 fut douloureux changeant tous les TimeOut par défaut de 60min à 30s,
d'un coup, de longue requête SOAP qui était longue à calculer s'arrêtaient net !
IE7 en plus plantait sur InternetQueryOption : "Taille Insuffisante pour Appel Système"
Heureusement IE8 lui ne plantaient pas lorsque l'on changeait les TimeOut avec InternetQueryOption

**franckcl** · 15/02/2016, 17h28

Envoyé par ShaiLeTroll

Indy c'est directement codé par dessus leur couche TCP/IP, c'est totalement à la main !
Indy lui pose parfois problème, certains mails n'arrivent pas au destinataire car bloquer quelques part, tu l'envoie via Outlook et ça passe !

Les Api Windows, ont peut penser que celle d'IE sont les mêmes
en tous cas, lorsque je les ai utilisé il y a un paquet d'année, le passage de IE6 à IE7 fut douloureux changeant tous les TimeOut par défaut de 60min à 30s,
d'un coup, de longue requête SOAP qui était longue à calculer s'arrêtaient net !
IE7 en plus plantait sur InternetQueryOption : "Taille Insuffisante pour Appel Système"
Heureusement IE8 lui ne plantaient pas lorsque l'on changeait les TimeOut avec InternetQueryOption

Merci encore ShaiLeTroll, je vois que tu maitrises le sujet à fond !
bravo.

IdHttp.post ne retourne rien

Web & réseau Delphi

Discussions similaires

Partager

Partager