Discussion :

[moh_barid]

Salut tout le monde
J'ai un petit programme (Delphi 7) qui traduit un chiffre en lettres arabes avec un bouton qui copie le résultat dans le presse papiers , mais, le problèmes c'est quand je colle ce résultat dans un autre programme (NotePad, WordPad ou Microsoft Word), j'obtiens des caractères bizarres
ex. je saisi 432, le résultat est: أربعمائة وثلاثة وعشرون en suite je copie ce résultat dans le presse papier puis je le colle dans WordPad et le résultat deviens
ÎãÓÉ ÂáÇÝ æ ËáÇËÜãÇÆÉ æ ÓÊÉ æÚÔÑæä ÏíäÇÑ æ0 ÓäÊíã
Pouvez-vous m'aider ?

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
procedure TForm1.cxButton1Click(Sender: TObject);
var
  wideChars   : array[0..10000] of WideChar;
  myString    : String;
begin
  Edit1.SelectAll;
  // Set up our string
  myString := Edit1.Text;
 
  // Copy to a WideChar format in our array
  StringToWideChar(myString, wideChars, 10000);
 
  // Show what the copy gave
 
  Edit1.Text:=WideCharToString(wideChars);
  Edit1.Refresh;
  Clipboard.Clear;
 
  Edit1.CopyToClipboard;
end;

[Andnotor]

Delphi 7 n'étant pas Unicode, il faudra sans doute insérer manuellement la donnée dans ce format. Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s     :widestring;
  Data  :THandle;
  pData :pointer;
begin
  s := 'blabla';
 
  Data  := GlobalAlloc(GHND, Length(s) *SizeOf(WideChar));
  pData := GlobalLock(Data);
  CopyMemory(pData, PWideChar(s), Length(s) *SizeOf(WideChar));
  GlobalUnlock(Data);
 
  Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
end;

[camatchou]

Bonjour,
Je vous propose de commencer par regler les paramètres regionaux :
panneau de configuration -> region et langues -> Administration
à ce niveau appuyez sur le bouton : Modifier les paramètres régionaux
un panneau s'affiche : Paramètres regionales et linguistiques , sélectionnez ARABE(votre pays)
A+

[moh_barid]

Merci infiniment ANDNOTOR !
Le code que vous m'avez donné a résolu mon problème, malgré que je n'ai rien compris, mais je l'ai seulement copier intégralement.