Discussion :

[charlyoleg]

Bonjour,

Tout d'abort je tiens à signaler que j'ai été voir ce post :
http://www.developpez.net/forums/d11...res-accentues/

Mon problème est le même que cette personne a rencontré mais sa resolution ne me convient pas, à moins de me donner des détails sur le compo qu'il a utilisé^^.

N'ayant pas voulu parasiter son post, je me suis permis de faire un nouveau post.

Voici mon script php:

Code :

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

1
2
3
4
 
<?php
echo $_POST['filename'];
?>

Voici ma fonction delphi :

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
 
var
  MultiPartFormDataStream  : TidMultiPartFormDataStream;
  s : string;
begin
  MultiPartFormDataStream := TidMultiPartFormDataStream.create;
  MultiPartFormDataStream.AddFormField('method','post');
  MultiPartFormDataStream.AddFormField('filename',AnsiToUtf8('été'));
   MultiPartFormDataStream.Position := 0;
   s := executer_requete_post_v2('http://192.168.1.74/test.php',MultiPartFormDataStream);
   showmessage(s);
end;
 
function TForm1.executer_requete_post_v2(requete_: AnsiString;MultiPartFormDataStream : TidMultiPartFormDataStream) : string;
begin
  result:='';
  try
  result := Utf8ToAnsi(IdHTTP1.Post(requete_, MultiPartFormDataStream));
  except
  end;
end;

Le résultat est "ete" et non "été", j'ai testé aussi en faisant la requête via httcli de F.Piette sans grande différence, je pense que ça vient de l'objet "idMultiPartFormDataStream" mais je ne trouve pas d'alternative.

Comment faites vous pour ne pas avoir ce problème?

Merci,

[ShaiLeTroll]

essaye ceci

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
var
  PostStream: TidMultiPartFormDataStream;
  ResponseStream: TIdStringStream;
begin
  PostStream := TidMultiPartFormDataStream.create;
  try
    PostStream.AddFormField('method','post');
    PostStream.AddFormField('filename','été');
    ResponseStream := TIdStringStream.Create('');
    try
      IdHTTP1.Request.ContentType := PostStream.RequestContentType;
      IdHTTP1.Post('...', PostStream, ResponseStream);
 
      ShowMessage(ResponseStream.DataString);
    finally
      ResponseStream.Free;
    end;
  finally
    MultiPartFormDataStream.Free;
  end;  
end;

Normalement avec des caractères accentués, cela doit générer un Stream qui respecte RFC 2047 - MIME (Multipurpose Internet Mail Extensions) Part Three: Message Header Extensions for Non-ASCII Text, la documentation de TIdMultiPartFormDataStream nous embrouille un peu, faut-il l'encoder soit même ou le gère-t-il ???

[charlyoleg]

Bonjour,

Merci de ta réponse, mais avec l'exemple que tu fournis j'obtiens la même réponse a savoir "ete".

Cependant il y a un truc étrange, je ne dispose pas de "TIdStringStream", pourtant je dispose d'Indy10.

J'ai du le modifier comme suit :

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
 
PostStream: TidMultiPartFormDataStream;
  ResponseStream: TStringStream;
begin
 
     PostStream := TidMultiPartFormDataStream.create;
  try
    PostStream.AddFormField('method','post');
    PostStream.AddFormField('filename','été');
    ResponseStream := TStringStream.Create('');
    try
      IdHTTP1.Request.ContentType := PostStream.RequestContentType;
      IdHTTP1.Post('http://192.168.1.74/test.php', PostStream, ResponseStream);
 
      ShowMessage(ResponseStream.DataString);
    finally
      ResponseStream.Free;
    end;
  finally
    MultiPartFormDataStream.Free;
  end;

Merci,

[ShaiLeTroll]

tente

Code :

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

PostStream.AddFormField('filename','=?ISO-8859-1?Q?=E9t=E9?=');

[charlyoleg]

Bonjour,

J'obtiens donc =?ISO-8859-1?Q?=E9t=E9?=
Bon j 'ai résolu le problème en modifiant mon php:

Code :

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

1
2
3
4
 
<?php
echo urldecode($_POST['filename']);
?>

et ma fonction delphi :

Code :

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

1
2
3
4
5
 
...
s :=HTTPEncode('été');
MultiPartFormDataStream.AddFormField('filename',s);
...

Et voilà, bon je contourne un peu le problème mais il faut que ca marche rapidement^^

Merci du coup de main

[ShaiLeTroll]

HttpEncode ! évidemment !
Effectivement 'été' ça donne '%E9t%E9' c'est plus simple comme encodage !