Discussion :

[Nono40]

J'essaye en vain depuis un moment d'afficher correctement une table unicode dans Delphi. J'utilise Firebird 2.1, Delphi 2007 et les composants IBx livrés avec.

La base a été créée en Default Caracter Set UTF8 et elle contient une seule table :

Code :

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

1
2
3
4
CREATE TABLE TRADUCTIONS(
  NUMERO Float NOT NULL,
  TEXTE Varchar(200) character set UTF8
);

J'ai ajouté deux lignes avec IBExpert avec un texte Unicode ou je vois bien les données correctement.

Dans Delphi j'utilise la connexion suivante :

Code :

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

1
2
3
    Params.Add('USER_NAME=SYSDBA');
    Params.Add('PASSWORD=masterkey');
    Params.Add('lc_ctype=UTF8');

Ensuite j'ai un TntDbGrid lié à un TIBQuery. Et là ca ne va plus : les données sont affichées en String simple.
Les types de champs autocréés sont :
TFloatField (numero, normal)
TIBStringField (texte, IBStringField n'est pas un type de chemp unicode )

Pour retirer le doute sur le TntDbGrid j'ai essayé aussi de lire le résultat de la requète à la main dans un tntLabel mais j'ai le même soucis.

[makowski]

Params.Add('lc_ctype=UTF8');

?
c'est quoi les composants ?

[Nono40]

C'est les composants Interbase Express livrés avec Delphi 2007.

Le paramètre lc_ctype définit le jeu de carartère utilisé pour la connexion.

[Nono40]

Je viens d'essayer avec DBExpress et c'est exactement la même chose : le colonne 'TEXTE' est considérée commeu un champ ftString et non ftWideString.

Edit : Je viens d'installer les composants UIB (en utilisant un JvUIBDataSet pour pouvoir le connecter au DataSource) et c'est pareil.

Je commence à me demander si c'est réellement possible d'afficher une table Unicode avec Delphi comme le fait l'utilitaire FlameRobin :

[Nono40]

Bon j'ai du nouveau : j'ai réussi à affiché la table correctement en Unicode en utilisants des champs presistants de type tntString pour tous les champs en UTF8. Comme cela les champs s'affichent correctement avec Interbase Express.

Le problème vient maintenant pour remplir la table : pour la modifier directement dans le tntDBGrid j'ai ajouté un TIBUpdateSQL et rempli les requètes correspondantes. Seulement, quand j'essaye de saisir une ligne contenant des caractères non ISO j'ai l'erreur 'Malformed string'...
J'ai la même erreur si j'essaye un simple update :

Code :

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

1
2
3
4
5
6
7
8
 
  With IBSQL1 Do
  Begin
    SQL.Text := 'UPDATE TRADUCTIONS SET TEXTE2=:TEXTE2';
    Params[0].Value := tntEdit1.Text;
    ExecQuery;
    IBTransaction1.Commit;
  End;

Comment peut on insérer un valeur UNICODE dans la base ?

Déjà je trouve qu'utiliser des champs persistants d'un type différent du type réel c'est un peu bricolage. Je sents que ça va finir en blob ou en fichier CSV.

[Aka Guymelef]

Mmmh est-ce que pour le coup le problème ne viendrait pas du fait que la propriété text (donc les lignes de la requête) soit du String et non du WideString et donc lorsqu'il fusionne les string de la requête avec le WideString du paramètre et bien il s'emmêle complètement les pinceaux ?

[Nono40]

Ma collègue m'a suggéré de passer avec un IBTable plutôt qu'un IBQuery et avec les transactions automatiques. Là j'arrive à lire/écrire en Unicode.

Je ferais un post avec les détails tout à l'heure.

[Nono40]

Bon c'est donc bien résolu avec le TIBTable.

Au niveau de la connexion c'est toujours ce que j'ai décris en début de sujet, à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
  With IBDataBase1 Do
  Begin
    If Connected Then Close;
    DatabaseName := Base;
    Params.Clear;
    Params.Add('USER_NAME='+User);
    Params.Add('PASSWORD='+Mdp);
    Params.Add('lc_ctype=UTF-8');
    Open;
  End;

La connexion est UTF8 semble indispensable au fonctionnement.

Ensuite il faut poser un TIBTable sur la fiche et y ajouter les champs persistants. Vous pouvez ajouter les champs non unicode directement avec 'Ajouter champs...' mais pour les champs unicode il faudra utiliser 'Nouveau champ...' pour chaque champ. Donner le nom du champ identique à celui visé dans la table et pour le type choisissez tntString. La taille doit être quatre fois la taille du Varchar de la table.

Les composants visuels unicode de chez tnt fonctionnent alors normalement.

Pour modifier les valeurs il faudra se mettre sur la bonne ligne (avec les procédures habituelles) puis effectuer les modifications à l'ancienne :

Code :

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

1
2
3
4
  IBTable1.Edit;
  IBTable1Texte2.AsWideString := tntEdit1.Text;
  ...
  IBTable1.Post;

Si vous ne voulez pas utiliser les champs persistant il faudra créer les le FieldDefs juste avant l'ouverture de la table et accéder aux champs tntString avec un transtypage :

Code :

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

TTntStringField(IBTable1.FieldByName('MonChampUnicode')).AsWideString

Voili voilou.