Discussion :

[runvhdvhd]

Bonjour,

J'utilise XE3 pour la première fois, en reprenant une application de D7, et bizarrement au lancement j'ai un message d'erreur en Japonnais ou Chinois?.
La compilation se passe bien, quelques avertissements sans gravité, mais pas moyen de savoir à correspond ces messages?.

Ps: EDI est en français tout fonctionne parfaitement?.

Merci de votre aide.

[Paul TOTH]

et ... que dit le message ?

[runvhdvhd]

là est la question ?

[SergioMaster]

Bonjour,

Est-ce sur que c'est du japonais et pas du chinois ? de quoi en perdre sont latin non ?

plus sérieusement Delphi est Unicode depuis D2009 .La reprise une application D7 , donc non Unicode, est peut être la raison plus plausible ?

re-déclarer les String en AnsiString serait un bon commencement

[Paul TOTH]

là est la question ?

si c'est effectivement du japonais ou du chinois Google Translate devrait pouvoir en tirer quelque chose, sinon c'est une chaîne faussement Unicode qui n'a pas de sens...une image écran peut-être ?

[SergioMaster]

Bonjour,

Pour revenir , sur le sujet s'il n'est pas résolu voilà un exemple simple qui fourni un message en pseudo "japonais/chinois"
fait en D2010 donc une version Unicode

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.TestClick(Sender: TObject);
var msg : AnsiString;
     msg2 : String;
begin
msg:='Ceci est un message censé être en français';
msg2:='Ceci est un message en français';
MessageBox(0, Pchar(msg), 'ça alors le titre est en français mais', MB_ICONWARNING or MB_OK); // du "chinois"
MessageBox(0, Pchar(msg2), 'Message 2', MB_ICONCONFIRMATION or MB_OK);
end;

cela devrait éclairer le problème

[Roland Chastain]

Je viens de rencontrer à mon tour un problème de caractères "chinois", légèrement différent de celui qui a été exposé (et résolu) plus haut. Voici la ligne de code en question :

Code :

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

lVer.Caption := 'Cairo Version ' + cairo_version_string;

cairo_version_string est une fonction :

Code :

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

function cairo_version_string: PChar; cdecl; external LIB_CAIRO;

Avec Delphi 7, le résultat est correct ; mais avec XE2 seul le début de la chaîne sort correctement. J'ai essayé sans succès la modification suivante :

Code :

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

lVer.Caption := 'Cairo Version ' + StrPas(cairo_version_string);

Voilà, j'ai pensé qu'il serait intéressant de présenter ce problème à la suite de cette discussion.

[Andnotor]

Modifie la déclaration en :

Code :

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

function cairo_version_string: PAnsiChar; cdecl; external LIB_CAIRO;

[Roland Chastain]

Effectivement, ça fonctionne. Merci Andnotor !