Hallo himitsu,
vielen dank für die fixe Antwort, das habe ich aber leider schon versucht. Das Problem bei mir ist:
Delphi-Quellcode:
procedure foo(AnsiStream);
var
Content : UTF8String;
begin
Content := AnsiToUtf8(AnsiStream.DataString);
Content := '
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>' + XMLKlasse.OpenStandartKnoten + Content + XMLKlasse.CloseLast;
// hier bin ich früher hin gegangen und habe das ganze in verschiedene Stringsversucht zu schreiben und sie kamen alle in der Datei an
// aber ANSI Codiert, was zur Folge hatte das die Datei nicht mehr zu gebrauchen war. Einfach den BOM davor zu schreiben reicht nicht
end;
Den UTF8BOM gibt es im übrigen auch als Array in der SysUtils. Man schreibt ihn dadurch kinderleicht mit:
Stream.Write(UTF8BOM[0],3);
Viele Grüße,
Tobi