Discussion :

[many6801]

Bonjour à tous.
Je suis un peu en galère depuis quelques temps, sur un problème de "Connection Closed Gracefully".
Je travaille sur un programme permettant de communiquer avec un serveur.
J'ai fais plusieurs essais, mais j'ai toujours ce beau message 'Connection Closed Gracefully' qui me stoppe mon programme.
J'ai beau chercher sur des forums ou autre, j'ai souvent du mal à comprendre.
Je vous transmets une partie de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    zIdHttp := TIdHttp.Create(nil);
    with zIdHttp do
    begin
      Name := 'IdHTTP';
      AllowCookies := True;
      HandleRedirects := True;
      HTTPOptions := [hoForceEncodeParams];
      Request.Username := psUserName;
      Request.Password := psPassword;
      Request.Accept := '*/*';
      Request.ContentType := 'application/x-www-form-urlencoded'; 
      Request.Connection := 'Keep-Alive';
    end;

Par la suite, je remplis une TStringList contenant des paramètres, puis je finis par :

Code :

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

1
2
 
Result := UpperCase(Trim(zIdHttp.Post(psHTTPLink, zParams)));

C'est à ce moment là que j'ai la fameuse erreur et que mon programme se coupe.

Par contre, j'arrive à communiquer avec le serveur car dans le log, il y a bien des ligne, mais à priori, il ne reçoit rien de ce que je lui poste.

J'espère que quelqu'un pourra m'éclairer sur ce que j'ai fais de mal !

Merci !
Manon

[Rayek]

Passe ton logiciel en mode Release et plus en debug cela devrait corriger le problème.

[ShaiLeTroll]

Voir Connection Closed Gracefully

En général, tu n'as que la notification d'exception par le déboggueur, normalement c'est une exception silencieuse

[many6801]

J'ai essayé votre suggestion. Ca ne résout pas mon problème.
De plus, j'avais déjà essayé de l'exécuter en dehors de Delphi, ça ne marchait pas plus. Mon log m'indique toujours "Connection closed Gracefully".

[ShaiLeTroll]

As-tu lu mon lien Connection Closed Gracefully ?
As-tu fais un effort de recherche : Comment éviter les exceptions "Connection Closed Gracefully." avec IdTCPServer ?

As-tu même essayé de comprendre la signification de "Connection Closed Gracefully." qui veut juste dire "Connexion fermée avec succès"
Oui c'est délirant d'avoir une exception pour cela, une raison obscure d'un contributeur au projet Indy

As-tu cherché autour de la classe EIdConnClosedGracefully ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
  try
    with zIdHttp  do
    begin
      ...
    end;
 
   Result := UpperCase(Trim(zIdHttp.Post(psHTTPLink, zParams)));
 
  except
    on ESuccess : EIdConnClosedGracefully do
      {none}
  end;
...

[many6801]

J'ai eu votre lien plusieurs fois, et l'effort de recherche ça fait plus de 3 jours que je suis dessus. Seulement je viens demander votre aide car je commence un peu à désespérer.
J'ai ajouté l'exception :

Code :

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

1
2
3
4
5
 
except
        on ESuccess: EIdConnClosedGracefully do
 
      end;

Il passe bien dedans, mais cela ne change rien au fait que la communication n'a pas l'air de s'effectuer. J'utilise la fonction POST d'Indy, je transfère de bons paramètres sur une bonne adresse et pourtant... Je n'ai aucun retour, et je n'arrive pas à comprendre d'où ça vient.

[ShaiLeTroll]

Cela semble logique puisque Result n'est jamais affecté !

As-tu changé les paramètres, l'option "Keep-Alive" n'est peut-être pas supporté, elle est conçu pour simuler une connexion permanente ! est-ce ton cas ?

For HTTP/1.1 applications, Connection may contain the value "close" to indicate that the connection will be closed after completion of the response. HTTP/1.1 applications that do not support persistent connections must include the "close" connection option in every message.

Essaye un code plus simple comme celui de la FAQ Comment valider un formulaire ne contenant que des données textuelles avec la méthode POST ?

t

Code :

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

1
2
3
4
5
6
7
8
9
 
    zIdHttp := TIdHttp.Create(nil);
    with zIdHttp do
    begin
      Request.Username := psUserName;
      Request.Password := psPassword;
      Request.ContentType := 'application/x-www-form-urlencoded'; 
      Result := UpperCase(Trim(Post(psHTTPLink, zParams)));
    end;

Que contient zParams ? Je suppose une TStrings avec tes paramètres ?