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?