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:
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:
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