Discussion :

[vedge2000]

Bonjour,

j'utilise Delphi 2007 et je dois enregistrer un memo dans un fichier UTF-8.

J'ai pu ajouter les 3 caractères au début du fichier pour signaler que c'est un UTF-8 mais tous mes caractères spéciaux (é, à è, ü,...) s'affiche bizarrement.

Avez-vous une idée?

Salutations et merci d'avance!

[ShaiLeTroll]

Qu'appele tu bizarrement ?
Les 3 Caractères, c'est le BOM - Byte Order Mark
EF BB BF pour l'UTF8
ensuite é, à è, ü... s'affiche é, Ã*, è...

Ne pas confondre UTF8 et UTF-16 (charset de WideString)

Dans les Delphi récents, à partir de 2009, tu peux définir sans le SaveToFile du TStrings, le charset
Avant, tu peux écrire dans un TMemoryStream, que tu encode via UTF8Encode vers un TFileStream

[vedge2000]

Oui exactement.. Tous les caractères avec un accents ne sont pas afficher.

Je veux vraiment de l'UTF-8 car c'est pour un exportation des données pour l'intégrer dans une application Web.

J'ai chercher et trouvé pour Delphi 2009 mais rien pour Delphi 2007.
Je vais essayer.

merci

[ShaiLeTroll]

En même temps, une application Web peut très bien chargé un fichier latin-1 ou windows-1252 !

mais tous mes caractères spéciaux (é, à è, ü,...) s'affiche bizarrement.

Tous les caractères avec un accents ne sont pas afficher.

Bizarre ou pas ? Affiché ou pas ? Affiché dans ?

Notepad de WinXP, gère l'ANSI (window-1252), UTF-8 et Unicode, tu peux vérifier avec le contenu de ton fichier
UltraEdit lui te permettra de vérifier le BOM et le contenu Hexadécimal réel !

Quel est ton code d'enregistrement actuel ?

[vedge2000]

En même temps, une application Web peut très bien chargé un fichier latin-1 ou windows-1252 !

On m'impose le UTF-8

Bizarre ou pas ? Affiché ou pas ? Affiché dans ?

Affiche comme un caractère spécial. Style '▪'
Je vais regarder avec UltraEdit pour être sûr du fichier texte!

Quel est ton code d'enregistrement actuel ?

Le code Delphi?
Pas encore fait, je vais le faire dans un petit moment!
Je te tiendrai au courant!
Merci

[vedge2000]

Tout est OK!

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
  FS : TFileStream;
  FichierAnsiString :AnsiString;
 
begin
...
  FS := TFileStream.Create(NomFichier, fmCreate);
  FichierAnsiString:= Utf8Encode(Memo1.Text);
  FS.Write(FichierAnsiString[1],Length(FichierAnsiString));
  Fs.Free;
...
end