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

[ShaiLeTroll]

Utiliser Utf8ToString en XE2, c'est un comble quand même !
Un UTF8Decode dans OnGetText c'est la méthode pour Paradox ça comme dans le sujet Probleme avec l'Unicode et Non Unicode dans la meme table !
Avec MySQL c'est un peu scandaleux, je me rappelle avoir utiliser sans bidouille des champs UTF8 avec MyDAC !
Justement avec le paramètre ServerCharSet !

Semble que la gestion du CharSet en DBExpress ne soit pas la chose la plus évidente ! On a eu un problème similaire avec Sybase10 lors du passage de 2007 à XE2, on a constaté que tes tables ne contenait pas ce qu'elles auraient du (window-1252 contre cp-863)
On a essayé de changer le CharSet, rien à faire ! Du coup, comme on a des bases d'un volume assez réduit, on corrige les accents dans la DB !

Je l'avais déjà proposé dans le sujet Delphi XE et UTF8