Discussion :

[benn13]

Bonjour,
Après multiples recherches (et il y en a des topics), je suis toujours bloqué par la prise en compte de la langue arabe.

J'ai une base de données avec des informations en arabe, qui ne sont pas reconnus dans Delphi que ce soit dans une grid, dans un txtedit ou un panel...(j'ai des ???? à la place de l'arabe), et inversement dès que j'enregistre des informations en arabe dans Delphi, ils ne sont pas reconnus ensuite dans la base de données (copie de données dans mon grid par exemple, je passe un enregistrement de la sorte QRY.ApplyUpdates et j'ai des ????? dans ma base).

Je pense que le soucis tourne autour de Delphi qui ne fait pas de traitement nécessaire.

Comment résoudre le problème ? J'ai fait le tour des topics existant en vain...

Merci d'avance

[ShaiLeTroll]

Delphi Combien ?
Quelle SGBD ?

Pour Delphi 3 à 2007 :
Soit tu changes la langue de l'OS !
Soit tu changes la langue des applications ANSI
Soit tu utilises l'ARABIC_CHARSET de la font choisi !
Joue aussi avec le BiDiMode, voir Inclusion de fonctionnalités bi-directionnelles dans les applications
il faut utiliser une Fonte contenant de l'Arabe évidemment
Ainsi, tu stockeras dans tes tables ANSI un charabia pour l'habituel Latin1 mais qui devrait être correcte en Arabe !

Et sinon, on le répète depuis la sortie de Delphi 2009, tout l'enjeu de L'UNICODE pour la gestion multilingue\multi-alphabet

Evidemment fait tes tests avec des Fichiers pour commencer
Une fois que cela fonctionne en fichier à la main (un fichier Ini par Exemple)

Tu essayeras avec TzQuery qui lui aussi peut avoir des limitations, est-ce que le TzQuery gère l'Unicode et selon la DB n'arrive pas à remonter ce qu'il faut ?
Regarde si TzQuery fourni un AsWideString

[benn13]

Je suis sous delphi 2010 justement

[ShaiLeTroll]

Tu utilises D2010, c'est donc un bug du TZQuery ou alors une mauvaise configuration du SGBD

Ton SGBD doit utiliser un stockage en UTF8
Ton Zeos doit utiliser un CharSet de connexion aussi en UTF8
lit ce sujet ZEOS+Firebird 2.1 + UTF8 D2010

Tu utilise bien une fonte qui affiche l'arabe comme Tahoma ?

[SergioMaster]

Tu utilises D2010, c'est donc un bug du TZQuery
lit ce sujet ZEOS+Firebird 2.1 + UTF8 D2010

Je ne sais pas si ce bug a été corrigé , de toute façon il faut déjà la version SVN 7.0 des ZEOSDBO . Je pense que la branche "testing-egonhugeist" corrige justement le bug cité , mais je ne l'ai pas encore testé .

[benn13]

Le SGBD est bien configuré il n'y a pas de problème de ce côté là.
Ensuite où règle t-on le charset pour le Zeos, je n'arrive pas à le retrouver.
Le font est bien en Tahoma.

Petit précision en mettant la requête : set names utf8 je n'ai plus de ????? mais des caractères un peu plus ressemblant du genre "ظ‚ط³ط·ظ†ط·ظٹظ†" au lieu de "قسطنطين", on s'en rapproche, de plus j'ai également mis dans les options régionales de windows dans options avancées dans langue pour les programmes non unicode, la lange Arabe (Algérie).

Ensuite au niveau de la version du Zeos, mon patron a réussi à faire marcher l'arabe sur son pc avec la même install de Delphi que moi. Il est actuellement à l'étranger, donc je ne peux pas voir avec lui pour savoir comment résoudre le problème.

[ShaiLeTroll]

Normalement une application D2010 n'est plus une application ANSI, j'espère que cela n'impacte plus Delphi comme cela le faisait en D7 !
Vu que l'on peut mélanger Français Arabe Russe ... dans un même TEdit, j'espère vraiment que "langue pour programmes non unicode" n'a pas d'effet !
Si c'est un gros Bug !

Tu as plus de caractère que nécessaire, hum, un UTF8 non converti ?
Une autre solution, un peu pénible, je prévient !

essaye aussi SET CHARACTER SET `utf8`

Tu n'as toujours pas indiqué le SGBD utilisé ? Est-ce du MySQL ?
Il semble que DBExpress + MySQL, il y a les mêmes soucis et tout ce joue en trouvant la bonne méthode de configuration,
il y a bien des membres qui ont été confronté à cela ?
Tient ce sujet : Lazarus + Zeos 7 + MySql
Zeos Portal : Delphi 2010 + MySQL + UTF8 - Delphi (XE) + MySQL + Latin1 Troubles and Solutions




Dommage, MySQL gère très bien les CharSet
MyDAC de Devart\CoreLab fonctionne bien à ce sujet aussi

[benn13]

Oui oui tout à fait c'est du MySQL.
Le même problème avec SET CHARACTER SET utf8.

Par contre petite amélioration, j'ai donc laissé mes options dans langues régionales, j'ai enlever le set names utf8 dans Delphi. J'ai copier dans delphi une valeur arabe par exemple سكيكدة je l'a sauvegarde, dans HeidiSQL, ma valeur devient ÓßíßÏÉ.
Et quand je réouvre mon appli Delphi, ma valeur est bien en arabe c'est à dire سكيكدة alors que dans ma base elle reste ÓßíßÏÉ. Intéressant, non ?

Ps: j'ai essayé la méthode où on met character, names... en utf 8 mais je me retrouve avec des cacractères spéciaux en remplacement des ?????

[ShaiLeTroll]

Oui c'est de l'UTF8
HeidiSQL, je connaissais pas, j'utilisais MySQL Query Browser (coder en Delphi 2005 + TNT) ou PHPMyAdmin

Tes Tables sont bien en UTF8, dans MySQL, tu as le charset du SGBD par défaut, de la connexion, et si je me souviens bien, le charset est configurable par colonne

On dirait que ta DB est en Latin1 et que Delphi croit qu'elle est en UTF8, tordu mais après tout, où je travaille, cela a été le cas sur Sybase\DBX entre cp863 et window1252 pendant au moins 5 ans, tout ce qui utilise le DSN voyait du 1252 mais les outils Sybase eux voyait du cp863

[benn13]

Ma base est bien en utf8 je viens de vérifier tout est bon.

En gros quand, dans mes options régionales, je met arabe pour les programmes non unicode, Delphi arrive à lire de l'arabe à partir d'une sorte de latin dans HeidiSQL.

Alors que quand je met français, Delphi me sort des ????? à la place de l'arabe dans HeidiSQL, et du latin à la place du latin (enfin l'autre écriture particulière).

Là je colle

Personne ne peut m'aider ?

[benn13]

Je ne sais pas si cela peut aider à avancer, mes les accents sont très bien pris en compte à l'affichage de la base dans Delphi.
Mais pas les cacratcères comme l'arabe.

De plus quand je passe une requête avec comme condition where nom_de_colonne = 'نيس' ou même nom_de_colonne ='???????', je n'ai aucun résultat

[benn13]

J'ai résolu en partie mon problème.

Donc j'ai bien utiliser le set characet set utf8 mais ensuite dans l'affichage j'ai utiliser un utf8decode. Voici un bout de mon code qui parlera mieux je pense :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormActivate(Sender: TObject);
begin
  QRY_MDA.Close;
  QRY_MDA.SQL.Clear;
  QRY_MDA.SQL.Add('SET CHARACTER SET utf8');
  QRY_MDA.ExecSQL;
  QRY_MDA.SQL.Clear;
  QRY_MDA.SQL.Add('select * from air_oaci');
  QRY_MDA.Open;
 
  Textedit.Text := utf8decode(QRY_MDAOACI_Nom3.Value);
end;

Maintenant il faut que j'arrive à appliquer ce utf8decode par exemple à un dbgrid, je vais me pencher sur ça

[ShaiLeTroll]

comme je cela a été évoqué dans le sujet DBGrid et caractère UTF8 ou que j'avais proposé dans le sujet Probleme avec l'Unicode et Non Unicode dans la meme table en utilisant OnGetText sur le TField et pas juste sur la TDBGrid

[benn13]

Super, en plus tu m'avais déjà donner ses liens. Je te remercie