Discussion :

[Wilco]

Bonjour à tous,

J'en registre des données UTF8 dans un fichier txt.
Je suis obligé d'insérer en 1ère ligne du fichier la séquence de caractères suivantes si je veux l'imprimer correctement.

#$EF #$BB #$BF

Ça marche mais j'ai ces 3caracteres qui s'impriment aussi.

Comment puis je faire pour que cette signature UTF8 soit prise en compte dans mon fichier txt sans qu'elle soit visible ou imprimable ?

Merci d'avance
Wilco

[popo]

Bonjour,

Pour répondre à ton besoin j'aurai besoin de connaître certains détails.

Comment tu enregistre ? Est-ce par programme ou tu modifie un fichier texte à la main avec un outil quelconque ?

Pareil pour l'impression, est-ce toi qui la gère où bien tu demande un à programme de le faire ?

En tout cas, je pense que si ces caractères apparaissement en dur, cela signifie qu'il ne sont pas considérés comme étant la "signature UTF-8" de ton document.

D'ailleurs l'utilisation de l'UTF-8 est-elle obligatoire ?

[Wilco]

Merci Popo pour ce début de réponse.

J'ai besoin de l'UTF8 et Voici le code que j'utilise pour créer mon fichier texte.

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
 
const
  UTF8ByteOrderMark = = #$EF#$BB#$BF;    // BOM Signature UTF8
var
   nCount: Integer;
   TXTString: String;
   TXTBytes: Array[0..999999] of Byte;
   TXTRawByteString: RawByteString; 
begin
 
{TXTString  contient le texte en unicode (Document avec des polices en  différentes langues : Russe, Chinois, Japonais et Français}
 
TXTStream := TFileStream.Create('c:\tmp\TxtFile.txt', fmCreate );
 
 // On convertit l'unicode en UTF8 
TXTRawByteString := UTF8Encode(TXTString);  
 
ncount := length(TXTRawByteString );
Move(TXTRawByteString[1], TXTBytes[0], ncount);
 
TXTStream .Write(UTF8ByteOrderMark,3);   
TXTStream .WriteBuffer(TXTBytes, ncount);
ZDocStream.Free;

Merci d'avance pour votre aide,
Wilco

[Andnotor]

Plus simplement :

Code :

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

1
2
3
4
5
var
  sl :TStringList;
 
sl.Add(TXTString);
sl.SaveToFile('c:\tmp\TxtFile.txt', TEncoding.UTF8);

[Paul TOTH]

à vu de nez je dirais que ceci TXTStream .Write(UTF8ByteOrderMark,3); enregistre les 3 premiers octets de l'adresse de la chaîne dans le fichier.

[popo]

Plus simplement :

Code :

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

1
2
3
4
5
var
  sl :TStringList;
 
sl.Add(TXTString);
sl.SaveToFile('c:\tmp\TxtFile.txt', TEncoding.UTF8);

Tout dépend de la version utilisée. Delphi 7, ne propose pas la version de SaveToFile avec l'option de l'encodage.

Wilco, ta constante UTF8ByteOrderMark ressemble beaucoup à une simple chaîne.
D'ailleurs ceci ne compile pas chez moi.

Code Delphi :

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

1
2
const
  UTF8ByteOrderMark = = #$EF#$BB#$BF;    // BOM Signature UTF8