Discussion :

[skywaukers]

bonjour,

je suis en train de faire un petit serveur HTTP avec le composant TIdHTTPServer. Il est tout simple, il a juste pour but de faire un certains nombre d'actions en fonction de requettes HTTP reçues.
En l'occurence, une requette possède un paramètre (en post) contenant un texte saisi par l'utilisateur. Par exemple comme ceci :

Code :

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

1
2
 
http://MonServeur/?Comment=éèçàù

J'ai bien sûr essayé d'encoder l'url comme ceci :

Code :

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

1
2
 
http://MonServeur/?Comment=%e7a%20marche%20%e9%e8%e0%f9%20%3f

dans les deux cas, à l'arrivée dans mon serveur, au niveau de l'event OnCommandGet, la property ARequestInfo.UnparsedParams contient bien ce que j'envoi, par contre aRequest.Params.Values[ 'COMMENT] contient des "?".
vu que Params est un TStrings, j'ai essayé d'affecter la propriété DefaultEncoding à TEncoding.Unicode, mais rien n'y fait.

Je peux me débrouiller en parsant moi même la property UnparsedParams, mais ne serait-ce que pour ma culture, j'aimerai savoir pourquoi il me transforme ce que je reçois, et si il y a moyen de l'éviter (c'est quand même plus pratique de lui laisser faire le parsing).

Merci pour votre attention.

@++
Dany

[ShaiLeTroll]

C'est un Delphi entre 2009 et XE2 je suppose puisque tu as TEncoding !

"ça marche éèàù ?"
Ton encodage c'est juste de celui du HTML URL Encoding, les codes Hexa restent ceux du Latin1 !
C'est curieux, cela devrait être le boulot de TIdHTTPServer de remplir correctement la TStrings par DecodeAndSetParams

Vérifie que ContentType est bien à 'application/x-www-form-urlencoded'

Compare QueryParams et UnparsedParams
Voir TidURI.URLDecode

[skywaukers]

Bonjoru,

oui, en fait j'utilise Delphi 7 d'un côté (l'appel) et Delphi XE2 de l'autre (le serveur HTTP). A priori c'est bien un problème d'encodage de l'url, le TIdURI.UrlEncode n'encode pas les caractère de la même façon que je le faisait. Si je lui fournit avec sa codification, alors le ARequestInfo.Params.Values est correct.
Mais, il y a quand même un problème résiduel, c'est que visiblement le TidURI.UrlEncode de Delphi 7 n'encode pas de la même façon qu'avec la version de Delphi XE2. Je m'explique : dans la requette http://monserveur/?Parametre=valeur, avec la version de Delphi 7 il encode à partir du "?" inclu, alors que sous XE2, il n'encode qu'après le "?". Le problème étant que du coup ARequestInfo.document ne contient plsu seulement '/' mais tous les paramètres, c'est donc interprété comme un document par mon serveur et non plus comme des paramètres d'url.

Bon, je crois que je vais rester sur ma bidouille qui fonctionne, dans la mesure ou je suis maitre de l'envoi et de la réception. quand on aura migré la première application sous XE2, je corrigerait pour utiliser leur méthode.

En tout cas merci.

@++
Dany