delphi xe8 TNetHTTPClient accent

Version imprimable

bonjour,

j'utilisais les composant ICS pour POSTer une requête http, ça marche bien. mais j'ai voulu utiliser le composant natif de xe8:TNetHTTPClient
et la j'arrive pas a envoyer les accents
voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var NetHTTPClient : TNetHTTPClient;
    parametres : Tstringlist;
begin
   parametres := tstringlist.Create;
   NetHTTPClient := TNetHTTPClient.Create(nil);
 
   parametres .Add('nom_logiciel='+UTF8Encode('éè'));
   parametres .Add('emplacement='+EncodeURIComponent('éè') );
   parametres .Add('version='+ 'éè');
 
   NetHTTPClient.ContentType := 'application/x-www-form-urlencoded';
   NetHTTPClient.AcceptEncoding := 'UTF-8';
 
   NetHTTPClient.post('http://metaclients.xxx.fr/xxx',parametres,nil, TEncoding.UTF8).ContentAsString(tencoding.UTF8);
 
   parametres .Free;
   NetHTTPClient.Free;
end;

j'ai mis

Code:

1
2
3
 
  UTF8Encode('éè')
  EncodeURIComponent('éè')

pour tester si ça changeait quelque chose...mais non

j'ai essayé aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var NetHTTPClient : TNetHTTPClient;
     ss: tstringstream;
     Data : AnsiString;
begin
  NetHTTPClient := TNetHTTPClient.Create(nil);
  Data := 'nom_logiciel='+UTF8Encode('éè') +'&' +
          'emplacement='+EncodeURIComponent('éè') +'&' +
          'version='+ 'éè';
 
  ss := tstringstream.Create(Data, tencoding.UTF8);
 
  NetHTTPClient.ContentType := 'application/x-www-form-urlencoded';
  NetHTTPClient.AcceptEncoding := 'UTF-8';
 
  NetHTTPClient.post('http://metaclients.xxx.fr/xxx',ss).ContentAsString(tencoding.UTF8);
 
  NetHTTPClient.Free;
  ss.Free;
end;

pareil, dans ma base mysql j'ai Ã©Ã© au lieu de éè

une idée ?

merci

exyacc

04/05/2017, 12h19
Paul TOTH
mais entre nom_logiciel, emplacement et version, tu ne devrais pas avoir le même résultat pourtant

et je dirais à priori que tu encodes deux fois nom_logiciel en UTF8
Code:

1 2 3 4 5 6 Data := 'nom_logiciel='+UTF8Encode('éè') +'&' + 'emplacement='+EncodeURIComponent('éè') +'&' + 'version='+ 'éè'; ss := tstringstream.Create(Data, tencoding.UTF8);
04/05/2017, 12h28
exyacc

en fait j'ai
dans nom logiciel => ÃƒÂ©ÃƒÂ©
et dans version, emplacement => Ã©Ã©
04/05/2017, 12h33
exyacc

si je remplace

Code:

reponse := NetHTTPClient.post('http://metaclients.xxx.fr/xxx',parametres,nil, TEncoding.UTF8).ContentAsString(tencoding.UTF8);

par

Code:

reponse :=NetHTTPClient.post('http://metaclients.xxx.fr/xxx',parametres).ContentAsString(tencoding.UTF8);

=> meme resultat
04/05/2017, 12h46
Paul TOTH

Citation:

Envoyé par exyacc

en fait j'ai
dans nom logiciel => ÃƒÂ©ÃƒÂ©
et dans version, emplacement => Ã©Ã©

alors EncodeURIComponent() ne sert à rien puisqu'il ne touche qu'à |`{}^/\?#% et l'espace

ensuite ÃƒÂ©ÃƒÂ© c'est bien un encodage UTF8 de Ã©Ã© qui est lui-même un encodate UTF8 de éé

ce qui s'explique car la méthode THTTPClient.Post utilise par défaut un encodage UTF8 alors que tu lui fournis une chaîne déjà encodée.

moralité, ne t'occupe de rien, HTTPClient fait tout ce qu'il faut :)
04/05/2017, 14h03
exyacc

quand je mets ça

Code:

NetHTTPClient.post('http://metaclients.xxx.fr/xxx',parametres)

j'ai quand même Ã©Ã© avec
parametres .Add('version='+ 'éè');

et la je mets aucun encodage

j'ai oublié qqchose ?
04/05/2017, 14h08
Paul TOTH

Citation:

Envoyé par exyacc

quand je mets ça

Code:

NetHTTPClient.post('http://metaclients.xxx.fr/xxx',parametres)

j'ai quand même Ã©Ã© avec
parametres .Add('version='+ 'éè');

et la je mets aucun encodage

j'ai oublié qqchose ?

et comment le site metaclients.xxx.fr traite-t-il la requête ? le problème est peut-être à ce niveau là.
04/05/2017, 14h16
exyacc

je suis pas le créateur du PHP qui est appelé,
mais quand j'utilise le composant ICS, j'ai bien 'éè' qui est écrit dans ma base de donnée

avec ICS je faisais:

Code:

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
function TPost_http.post_data(url:string;Json_data:AnsiString):boolean;
var Http : THttpCli;
begin
  result := true;
  try
    try
      Http := THttpCli.Create(nil);
      Http.Timeout := 100000;
      Http.SendStream := TMemoryStream.Create;
      Http.SendStream.Write(Json_data[1], Length(Json_data));
      Http.SendStream.Seek(0, 0);
      Http.RcvdStream      := TMemoryStream.Create;
      Http.URL             := Trim(url);
      Http.ContentTypePost := 'application/x-www-form-urlencoded';
      http.OnRequestDone   := HttpCli1RequestDone;
      Http.Post;
    finally
      Http.RcvdStream.Free;
      Http.RcvdStream := nil;
      Http.SendStream.Free;
      Http.SendStream := nil;
      If (Http <> Nil) Then FreeAndNil(Http);
    end;
  except on E:Exception do
    begin
      ferreur := True;
      result := False;
      fmessage_erreur := E.Message;
    end;
  end;
end;

appel :

Code:

1
2
3
4
Data := 'nom_logiciel='+'éè' +'&' +
          'emplacement='+'éè' +'&' +
          'version='+ 'éè';
post_data('http://metaclients.xxx.fr/xxx',Data) ;

et la j'ai bien 'éè' dans la base....

04/05/2017, 17h00
Paul TOTH

et bien la variable json_data n'est ni encodée en UTF8, ni au format JSON :)

il faut donc utiliser un Post avec un encodage ANSI et non UTF8.
04/05/2017, 17h32
exyacc

j'ai mis

Code:

NetHTTPClient.post('http://metaclients.shortcutscloud.fr/iamalive',Json_strings,nil, TEncoding.ANSI).ContentAsString(tencoding.UTF8);

j'ai laissé et/ou viré

Code:

//NetHTTPClient.AcceptEncoding := 'UTF-8';

pareil

j'avais essayé TEncoding.ANSI ,TEncoding.ASCII,TEncoding.default .... :(
04/05/2017, 18h17
Paul TOTH

bon, manifestement le type qui a codé cela a surtout voulu faire de l'UTF8

la méthode post() utilise TNetEncoding.URL.EncodeForm() qui utilise TEncoding.UTF8.GetBytes(Input)...du coup c'est forcément de l'UTF8 :/
05/05/2017, 09h31
exyacc

ok donc c'est plus du coté du code php qu'il faut faire des modifs pour que ça marche a la fois avec TNetHTTPClient et les composants ICS..

merci pour ton aide

exyacc
05/05/2017, 10h17
Paul TOTH

Pour info, j'ai remonté le bug

https://quality.embarcadero.com/browse/RSP-18045