delphi7 et options régionales../standards et formats

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.

Citation:

---

Envoyé par 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.

---

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

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

bonne chance

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:

---

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:

---

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

bonjour,
j'ai testé le code hier, mais sa n'a rien donné.:cry:
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