Thema: Delphi Delphi XE2: BOM-Problem

Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#1

Delphi XE2: BOM-Problem

  Alt 18. Mai 2013, 19:21
Hallo!

Wenn ich das Dokument von TEmbeddedWB mit EmbeddedWB1.SaveToFile speichere, habe ich das Problem, dass die gespeicherte Datei im Format UTF16-LE vorliegt, was bei der Weiterverarbeitung Probleme erzeugt.

Um die Datei im UTF8-Format zu speichern, habe ich mir folgende kleine Routine geschrieben:

Delphi-Quellcode:
procedure SaveHTMLDocToFileUTF8(AWB: TEmbeddedWB; const AFile: string);
var
  slHTMLDoc: TStringList;
begin
  slHTMLDoc := TStringList.Create;
  try
    AWB.SaveToStrings(slHTMLDoc);
    slHTMLDoc.SaveToFile(AFile, TEncoding.UTF8);
  finally
    slHTMLDoc.Free;
  end;
end;
Das funktioniert auch problemlos. Nur wird dabei immer ein UTF8-BOM am Anfang der Datei erzeugt, was ich vermeiden möchte, da es bei bei der Weiterverarbeitung stört.

Ich habe jetzt zwei Tage vergebens nach einer Lösung gesucht, um das Schreiben des BOM zu verhindern. Weiß jemand eine Lösung?
  Mit Zitat antworten Zitat