Discussion :

[pepito62]

Bonjour,

Je récupère une chaine en BDD qui est : Îøèáêà âî âðåìÿ ïðîöåäóðû

Avec Delphi 6, lorsque j'affecte cette chaine à un TEdit et que je change son charset en RUSSIAN_CHARSET

La phrase s'affiche correctement.

Avec Delphi XE3, avec les même modifications j'observe toujours Îøèáêà âî âðåìÿ ïðîöåäóðû

Comment je peux faire ?

[ShaiLeTroll]

D6 était AnsiString
DXE3 est UnicodeString

utilise explicitement une AnsiString<1251>
1251 CP1251
1252 c'est pour le latin-1

Puis affecte cette AnsiString<1251> à ton TEdit

Il doit exister une syntaxe plus légère mais je ne l'a connais pas

[pepito62]

J'avais utilisé cette méthode mais ça ne fonctionnait pas.

Il manque peut-être quelque chose :

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
 
type
CyrillicString = type Ansistring(1251);
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var
  chaine : CyrillicString;
begin
  chaine:= 'Îøèáêà âî âðåìÿ ïðîöåäóðû';
  Edit1.Text:= chaine;
  //Le charset ne change rien
  //Edit1.Font.Charset:= RUSSIAN_CHARSET;
end;

[pepito62]

Voici l'exemple dans Delphi 6.

[pepito62]

J'ai trouvé la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  encLatin : TEncoding;
  encRusse : TEncoding;
 
  chainetmp: String;
begin
  encLatin:= TEncoding.GetEncoding(1252);
  encRusse:= TEncoding.GetEncoding(1251);
 
  chainetmp := 'Îøèáêà âî âðåìÿ ïðîöåäóðû';
  Edit1.Text:= String(encRusse.GetChars(encLatin.GetBytes(chaineTmp)));
end;

Par contre quand je passe par une variable intermédiaire, ça ne fonctionne pas, j'ai une violation d'accès au clic du bouton (en fin de procédure en mode debug).

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
procedure TForm1.Button1Click(Sender: TObject);
var
  encLatin : TEncoding;
  encRusse : TEncoding;
 
  chainetmp1: String;
  chainetmp2: String;
begin
  encLatin:= TEncoding.GetEncoding(1252);
  encRusse:= TEncoding.GetEncoding(1251);
 
  chainetmp1 := 'Îøèáêà âî âðåìÿ ïðîöåäóðû';
  chainetmp2 := string(encRusse.GetChars(encLatin.GetBytes(chainetmp1)));
  Edit1.Text:= chainetmp2;
end;

Savez-vous pourquoi ?

[pepito62]

Ça fonctionne en faisant 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
procedure TForm1.Button1Click(Sender: TObject);
var
  encLatin : TEncoding;
  encRusse : TEncoding;
 
  chainetmp1: String;
  chainetmp2: String;
begin
  encLatin:= TEncoding.GetEncoding(1252);
  encRusse:= TEncoding.GetEncoding(1251);
 
  chainetmp1 := 'Ïðèíòåð äëÿ äîêóìåíòîâ êîíòàêòíîãî öåíòðà';
  chainetmp2 := strnew(PChar(encRusse.GetChars(encLatin.GetBytes(chainetmp1))));
  Edit1.Text:= chainetmp2;
  Edit2.Text:= Edit1.Text;
end;

Vous en pensez quoi ?