Bonjour,

j'ai une petite application qui retourne dynamiquement une petite page html. Elle a été faite avec un TIdHTTPServer. Aujourd'hui on souhaiterai traduire la page notament en Chinois (mais pas que). Et là ça coince. Nous sommes en Delphi XE2.
Donc si je code ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
aResponseInfo.CharSet := 'utf-8';
    aResponseInfo.ContentType := 'text/html';
 
    wDoc := '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'
          + '<html>'
          + '<HEAD><meta http-equiv="Content-Type" content="text/html; charset=utf8">'
          + '</head>'
          + '<body>'
          + '适用于电动车辆的高性能驱动电动机'
          + '</body>'
          + '</html>';
 
    AResponseInfo.ContentText := wDoc;
*la chaine est en unicode dans mon source, pas en caractères html comme elle apparait ici.

dans le navigateur on obtien des ?????

si je code ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    aResponseInfo.CharSet := 'utf-8';
    aResponseInfo.ContentType := 'text/html';
 
    wDoc := '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'
          + '<html>'
          + '<HEAD><meta http-equiv="Content-Type" content="text/html; charset=utf8">'
          + '</head>'
          + '<body>'
          + UTF8Encode( '适用于电动车辆的高性能驱动电动机')
          + '</body>'
          + '</html>';
 
    AResponseInfo.ContentText := wDoc;
Dans le navigateur on obtien la traduciton utf8

Suite à des recherche sur internet, j'ai également essayé dans le OnConnect de mettre ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
AContext.Connection.IOHandler.DefStringEncoding := TEncoding.Default;
aucun effet

Est-ce que quulqu'un qui s'y connait bien en encodage pourrait m'éclairer un petit peu ?

Merci de votre attention.

@++
Dany