Unicodestring in stream speichern

[DrUArn]

Hi,

ich habe mir einige der Diskussionen über das Speichern von String (Unicode) durchgelesen und selbst experimentiert

Delphi-Quellcode:

var astring:unicodestring;
    s:tstream;
    i:integer;

speichern
i:=length(astring);
s.write(i,sizeof(i));
s.write(pointer(astring)^,i);


lesen
s.Read(i,sizeof(i));
SetLength(astring,i);
s.Read(pointer(f_string)^,i);

das funktioniert sogar!

wiederspricht folgendem Fakt: "Bei Unicode-Strings (WideString) gibt Length die Byte-Anzahl geteilt durch zwei zurück" (delphi-Hilfe)

also, wie in einigen Beiträgen empfohlen:

Delphi-Quellcode:

var astring:unicodestring;
    s:tstream;
    i:integer;

speichern
i:=length(astring)*2 ;//*sizeof(char)
s.write(i,sizeof(i));
s.write(pointer(astring)^,i);


lesen
s.Read(i,sizeof(i));
SetLength(astring,i div 2);
s.Read(pointer(f_string)^,i);

das funktioniert auch - nur das die doppelte Menge bytes gespeichert werden - oder wo ist der Denkfehler?

Beide Methoden funktionieren!

MfG
Uwe

[DeddyH]

Ich nehme an, s ist vom Typ TStringStream? Der übernimmt nämlich automatisch die Multiplikation mit SizeOf(Char) in der write-Methode.

[Bernhard Geyer]

Zitat von DrUArn:

wiederspricht folgendem Fakt: "Bei Unicode-Strings (WideString) gibt Length die Byte-Anzahl geteilt durch zwei zurück" (delphi-Hilfe)

Du musst bedenken das der Unicode-String gegenüber dem "alten" WideString Längenabhängig ist. D.h. du kannst alles von Ansi/UTF8/UCS2/... reinschmeißen und über das Codierungsinformationen passt das dann schon. Der Widestring dagegen kennt nur 1 Char = 2 Byte so das dieser die besagte Regel hat. Was steht den bei deinem Widestring so als Codierungsinfo drin?

[himitsu]

Der WideString ist auch längenabhängig.

> Zusatzinfos im ShortString (bis D2007 oder 2009)
- Längenbyte (Byte) als Anzahl der Chars/Bytes ... PS: wegen diesem Byte (an Index 0), fangen unsere Strings mit 1 an

> Zusatzinfos im AnsiString (bis D2007 oder 2009)
- Längenbyte (Integer) als Anzahl der Chars/Bytes (Multibytes wären als mehrere AnsiChar gezählt)
- Referenzzählung (Integer)
- und hinten drann noch ein zusätzliches #0 für die PChar-kompatibilität

> Zusatzinfos im AnsiString (seit D2009 oder 2010)
- Längenbyte (Integer) als Anzahl der Chars
- Referenzzählung (Integer)
- Codepage (Word)
- CharSize (Word)
- und hinten drann noch ein zusätzliches #0 für die PChar-kompatibilität

> Zusatzinfos im UnicodeString
- Längenbyte (Integer) als Anzahl der Chars
- Referenzzählung (Integer)
- Codepage (Word)
- CharSize (Word)
- und hinten drann noch ein zusätzliches #0 für die PChar-kompatibilität

> Zusatzinfos im WideStringString
- Längenbyte (Integer) als Anzahl der Bytes
- (hier bin ich mir nicht sicher, mit der zusätzlichen #0, aber ich glaub die gibt es nicht)


Leerstrings sind NIL (abgesehn vom ShortString) und haben keine Zusatzinfos

[Bernhard Geyer]

Zitat von himitsu:

Der WideString ist auch längenabhängig.

Meinte natürlich die länge eines Zeichen ist Codepageabhängig.

[himitsu]

WideString ist immer mit der virtuellen Codepage 1200 (UTF-16), also Unicode mit 2 Byte pro Char.
Der UnicodeString ist uch immer 1200, aber in 2009/2010 und in XE+, mit aktiviertem StringChecking wäre theoretisch auch was anderes möglich ... durch das kranke StringChecking, könnte man auch in einen UnicodeString ANSI/ASCII reinstopfen und in einen AnsiString UTF-16/Unicode, ohne daß man was davon merkt, außer wenn man direkt auf den internen Speicher zugreifen will (Move, CopyMemory und Co.)

[Bernhard Geyer]

Zitat von himitsu:

WideString ist immer mit der virtuellen Codepage 1200 (UTF-16), also Unicode mit 2 Byte pro Char.

Hüstel. War bei UCS2 der Fall. Bei UTF-16 kann ein Character 2 bzw 4 Bytes umfassen. Eingeführt wurde das mit Unicode 4.0 und alle modernen System (Java/.NET/W2K und neuer) unterstützen das. Aber jetzt wirds langsam zu detailiert.

Gibt es denn in D2009/10/XE denn keine Funktionen um String in Streams zu kopieren so wie Java/.NET das auch anbietet?

[himitsu]

Ja, es gibt bei UTF-16 die beiden Habvergessenwiedieheißen Zeichenpaare, aber dort die als 2 Zeichen gezählt.

[DrUArn]

Hi,
danke an alle Diskutanten - habe schon geahnt, daß ich eine Lawine zu dem Thema lostrete.

@ DeddyH: ist einfach ein tstream

und dennoch

nehmen wir in meinem Beispiel an astring:='Willi'

d.h. length(astring) ist 5

In meinem Beispiel 1 werden 5 Byte (?) gespeichert und wieder gelesen. Der Inhalt von Astring ist 'Willi'.

In meinem Beispiel 2 werden 10 Byte (?) gespeichert und wieder gelesen.
Läßt man hier SetLength(astring,i div 2) weg, steht in in Astring z.B. 'Willi#0blblab'. Danach geschehen unwägbare Dinge im Programm.

Wieso muß ich diese 5 zusätzliche Byte speichern, die nichts mit dem String zu tun haben - wird ja durch #0 beendet?

MfG
Uwe

[Uwe Raabe]

Zitat von DrUArn:

nehmen wir in meinem Beispiel an astring:='Willi'

d.h. length(astring) ist 5

In meinem Beispiel 1 werden 5 Byte (?) gespeichert und wieder gelesen. Der Inhalt von Astring ist 'Willi'.

Setz doch vor dem Lesen von Astring mal AString := 'Klaus';