Discussion :

[Papy214]

Bonjour,

Aucune question dans ce post, juste une info pouvant être utile aux ignorants comme moi !

Soit un fichier xml encodé en UTF-8 sans BOM !

Si je charge le fichier avec le code suivant :

Code :

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

Contenu := TFile.ReadAllText(FichierContent, TEncoding.UTF8);

les 3 premiers caractères de mon fichier disparaissent. Du coup, mon xml est daubé et tout le traitement suivant échoue.

Par contre, la lecture avec un stream rend le bon résultat. Alors, pour assurer le coup et vérifier la différence, j'ai codé :

Code :

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

1
2
3
4
5
6
7
8
9
 
  Contenu := TFile.ReadAllText(FichierContent, TEncoding.UTF8);
  if LeftStr(Contenu, 3) <> '<?x' then
    with TStringStream.Create('', TEncoding.UTF8) do
    begin
      LoadFromFile(FichierContent);
      Contenu := DataString;
      Free;
    end;

ça m'a couté une demi-journée

[gbegreg]

Bonjour,

Le TEncoding.UTF8 correspond aux fichiers UTF-8 avec le BOM (Byte Order Mark). Il s'agit des 3 premiers caractères du fichier. C'est pour cela qu'il a supprimé les 3 premiers caractères de ton fichier : il a "cru" que c'était le BOM.
Il y a le sujet suivant sur les forums Embarcadero : https://forums.embarcadero.com/threa...hreadID=112112.
Il faut faire une classe qui dérive de TUTF8Encoding et surcharge la méthode GetPreamble afin qu'elle un TBytes vide.

[Papy214]

J'avais bien compris qu'il s'agissait du BOM qui n'était pas présent.
Mais je ne voyais la solution pour contourner ça avec TFile.ReadAllText

Je vais étudier le lien. Merci