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 :
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
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;
C'est à ce moment là que j'ai la fameuse erreur et que mon programme se coupe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Result := UpperCase(Trim(zIdHttp.Post(psHTTPLink, zParams)));
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
Partager