Discussion :

[exyacc]

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 :

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

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

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

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



j'ai essayé aussi

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

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

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

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

[exyacc]

en fait j'ai
dans nom logiciel => éé
et dans version, emplacement => éé

[exyacc]

si je remplace

Code :

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

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

par

Code :

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

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

=> meme resultat

[Paul TOTH]

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

[exyacc]

quand je mets ça

Code :

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

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 ?

[Paul TOTH]

quand je mets ça

Code :

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

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à.

[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

[exyacc]

avec ICS je faisais:

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

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

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

[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.

[exyacc]

j'ai mis

Code :

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

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

j'ai laissé et/ou viré

Code :

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

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

pareil

j'avais essayé TEncoding.ANSI ,TEncoding.ASCII,TEncoding.default ....

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

[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

[Paul TOTH]

Pour info, j'ai remonté le bug

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