Discussion :

[hocine]

salut,
je développe une application avec delphi7 windows xp, les données sont en arabe, j'ai essayé avec le composant tnt, seulement lors de l'impression avec fastreport, le contenu me donne ????????????, la seule solution est de changer la langue dans options régionales../standards formats en arabe(algérie).
je souhaite faire ce changement par code lors du lancement de mon application, et à la fermeture de mon application la rendre dans l'état initiale Français(france).
Merci.

[NABIL74]

salut,
je développe une application avec delphi7 windows xp, les données sont en arabe, j'ai essayé avec le composant tnt, seulement lors de l'impression avec fastreport, le contenu me donne ????????????, la seule solution est de changer la langue dans options régionales../standards formats en arabe(algérie).
je souhaite faire ce changement par code lors du lancement de mon application, et à la fermeture de mon application la rendre dans l'état initiale Français(france).
Merci.

Bonjour,
Cette question a été posée pas mal de fois sur le forum.

http://www.developpez.net/forums/d71...nterrogations/

bonne chance

[hocine]

salut,
merci nabil pour votre réponse, mais ce n'était pas ce que je voulais, seulement j'ai trouvé ce que je cherché sur le lien suivanthttp://www.developpez.net/forums/d40...programmation/donc pour mon application au démarrage

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
18
19
20
21
22
23
24
25
26
 
with TRegistry.Create do//arabe
  try
 
 
    RootKey := HKEY_CURRENT_USER   ;
    OpenKey('Control Panel\International',true);
    WriteString('iCountry','213');
    WriteString('iCurrency','2');
    WriteString('iDate','1');
    WriteString('sCountry','Algérie');
    WriteString('sCurrency',' ');
    WriteString('sDecimal','.');
    WriteString('sDate','/');
    WriteString('sThousand',',');
    WriteString('sLongDate','dd MMMM, yyyy');
    WriteString('sShortDate','dd/MM/yyyy');
    WriteString('sLanguage','ARG');
    WriteString('sNativeDigits','0123456789');
    WriteString('Locale','00001401');
 
    CloseKey;
 
finally
    Free;
  end;

et à la fermeture retour au français

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
18
19
20
21
22
23
24
25
26
 
with TRegistry.Create do
  try
 
 
    RootKey := HKEY_CURRENT_USER   ;
    OpenKey('Control Panel\International',true);
    WriteString('iCountry','33');
    WriteString('iCurrency','3');
    WriteString('iDate','1');
    WriteString('sCountry','France');
    WriteString('sCurrency','DA');
    WriteString('sDecimal','.');
    WriteString('sDate','/');
    WriteString('sThousand',',');
    WriteString('sLongDate','dd MMMM, yyyy');
    WriteString('sShortDate','dd/MM/yyyy');
    WriteString('sLanguage','FRA');
    WriteString('sNativeDigits','0123456789');
    WriteString('Locale','0000040C');
 
    CloseKey;
 
finally
    Free;
  end;

sans oublier uses Registry
je travail sur plusieurs applications(français, arabe) donc pour ne pas avoir à chaque application de changer les params, là je travaille à l'aise.
je vais l'essayé INCHA ALLAH cette nuit, et demain je vous tiendrai au courant.
MERCI

[hocine]

bonjour,
j'ai testé le code hier, mais sa n'a rien donné.
voici mon problème, je suis connecté à une BDD Access remplit par des enregistrements de plus de 500 agents en arabe. quand j'ouvre les tables dans Access les données sont lisibles en Arabe. je sais comment faire en Delphi pour écrire en Arabe avec loadkeyboard et..., mon problème et quand j’écris en Arabe dans Delphi et j'imprime sans problème, les données dans la BDD Access deviennent ??????????, donc pour cela je dois retaper tous les données et c'est un immense travail. la seule solution est de rendre tous en arabe (Algérie) dans options régionales. et comme ça je ne vais plus avoir de problème de ??????????. donc je souhaite programmer les étapes d'options régionales
comme le code que j'ai posté dans message précédent. et à a fin de mon application rendre options régionales en Français.
merci