Discussion :

[Shiva]

Bonjour,
J'aimerai connaitre la méthode pour permettre l'affichage des caractères UTF8 dans un DBGrid. Voici ce que j'utilise :
-> Base mysql avec table et champs en utf-8
-> TSQLConnection
-> TSimpleDataSet
-> TDataSource
-> TDBGrid
J'ai vu le paramètre ServerCherset du composant TSQLConnection, j'ai testé avec la valeur UTF8 mais apparemment ça ne sert pas à grand chose pour mon problème.

Merci pour vos réponses.
a+

[Rayek]

Quel version de Delphi utilises tu ?

[ShaiLeTroll]

J'avais expérimenté l'UTF8 en Delphi 7, MySQL 4.1 et MyDAC
As-tu essayé SET NAMES utf8
Il faut distinguer le Client CharSet (celui de la connexion), Server Charset, et des colonnes !
Tu peux ouvrir une connexion Latin1 pour lire des colonnes utf8, MySQL se charge de la traduction

Je me rappelle que même en Latin1 sous MySQL4.1, le IN était mal géré, la 1ère requête lancée sur une connexion était (alors que l'on était déjà en Latin1 partout)

Code :

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

SET COLLATION_CONNECTION = LATIN1_SWEDISH_CI

tente

Code :

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

SET COLLATION_CONNECTION = utf8_general_ci

[Shiva]

Rayek : J'utilise embarcadero XE2

ShaiLeTroll : J'ai bien tenté d'utiliser "SET NAMES utf8" mais au niveau de la première requête SQL effectuée par mon appli, c'est à dire lors de l'identification d'un user mais rien à faire. Je vais tester avec tes deux autres propositions.

[Shiva]

Bon et bien même résultat, ça ne fonctionne pas...

[Shiva]

Je viens de trouver la solution suivante qui fonctionne à merveille :

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
17
 
procedure Tliste_dossier.SimpleDataSet1AfterOpen(DataSet: TDataSet);
var
  i: integer;
  f: TField;
begin
  for i := 0 to Dataset.Fields.Count-1 do
    begin
      f := Dataset.Fields[i];
      f.ongettext := Self.OnGetText;
    end;
end;
 
Procedure Tliste_dossier.OnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
Begin
  text := Utf8ToString(sender.asString);
End;

Source : https://forums.embarcadero.com/threa...threadID=65522