Codierung Stringstream????

[Highttower]

Hallo zusammen,

kann mir jemand sagen in welcher Codierung ein StringStream (RAD Studio 2007) geschrieben ist?

Bitte sagt UTF8 *fg*.

Vielen Dank,

Tobi

[himitsu]

Ansi


Hab jetzt nicht nachgeguckt (hab eh kein D2007), aber ich bin mir da sehr sicher.

[Highttower]

mist -.-, aber danke

[Highttower]

Hallo zusammen,

noch mal schnell ne Frage dazu:

Wie schreibe ich dann UTF8 Strings in Dateien, also UTF8 Codiert?
Das ich noch den UTF8BOM davor setzen muss ist mir klar.

Noch mal der Hinweis ich verwende Rad Studio _2007_ TEncoding gibt es erst ab 2009 -.-.

Vielen Dank,

Tobi

[himitsu]

In der System-Unit verstecken sich ein paar UTF8-Funktionen, damit kannst du einfach die Strings zwischen Unicode (WideString) und UTF8 (AnsiString) umwandeln.

Delphi-Quellcode:

var A: AnsiString;
  S: WideString;
begin
  S := {dein Unicodetext};

  // nach UFT-8 kodieren, inkl. BOM
  A := #$EF#$BB#$BF + UTF8Encode(S);

  // oder so, ist bestimmt noch keinem aufgefallen, aber die BOM sind
  // alle jeweils DIE UNICODE-Markierung, welche in der
  // entsprechenden Kodierung mitgespeichert wurden
  A := UTF8Encode(#$FEFF + S);

  // bezüglich Delphi 2009 sollte es aber besser schon so gemacht
  // werden, wenn man das BOM schon kodiert angeben will ... nicht
  // daß dort das Delphi-Unicode alles kaputt macht und die Bytes
  // als ANSI ansieht und nach Unicode übersetzt
  A := #$00EF#$00BB#$00BF + UTF8Encode(S);

  // ja und nun muß man das A nur noch abspeichern

(wie man den String dann in einen Stream reinbekommt, daß weißt du ja bestimmt schon)

[Highttower]

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:

Delphi-Quellcode:

Stream.Write(UTF8BOM[0],3);

Viele Grüße,

Tobi

[himitsu]

Bei XML braucht man eh nicht unbedingt das BOM, da es dort ja auch noch das Encoding-Attribut gibt.
(PS: nach dem XMLStyleSheetNode, also der mit dem Encoding-Attribut, hat der Wert dieses Attributes eh vorran ... da interessiert das BOM dann überhaupt nicht mehr)

Wenn es nach dieser Prozedur (foo) immernoch Ansi ist, dann stimmt wohl etwas an AnsiToUtf8 nicht. :gruebel: