requete post avec parametre et caractere accentué

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:

---

1 2 3 4

<?php echo $_POST['filename']; ?>

---

Voici ma fonction delphi :

Code:

---

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,

essaye ceci

Code:

---

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

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:

---

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,

tente

Code:

---

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

---

Bonjour,

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

Code:

---

1 2 3 4

<?php echo urldecode($_POST['filename']); ?>

---

et ma fonction delphi :

Code:

---

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

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