How to use Unicode text in streams?

[WojTec]

How to use Unicode strings in streams? I need to save strings in binary stream - for this I'm using TStringStream, but string are stored as ASCII. :(

Delphi-Quellcode:

var
  S: TStringStream;
begin
  S := TStringStream.Create;
  S.Encoding.UTF8;
  S.WriteString('象');
  S.SaveToFile('C:\0.txt');
  S.Free;

  S := TStringStream.Create;
  S.Encoding.UTF8;
  S.LoadFromFile('C:\0.txt');
  Caption := S.DataString;
  S.Free;
end;

[Bummi]

Delphi-Quellcode:

  Encoding := TEncoding.Unicode;
  S := TStringStream.Create('象',Encoding);

Delphi-Quellcode:

  ss := '象';
  S := TStringStream.Create;
  S.Encoding.Unicode;
  S.WriteString(ss);

[himitsu]

Zitat:

Delphi-Quellcode:

S.Encoding.Unicode;

Falsch, da man den Wert ja setzen und nicht ein Property davon auslesen will,
also theoretisch wäre es so richtig

Delphi-Quellcode:

S.Encoding := TEncoding.Unicode;

.


Aber leider ist .Encoding readonly, also geht es nur im Contructor.

Delphi-Quellcode:

S := TStringStream.Create('象', TEncoding.UTF8);

// oder 

S := TStringStream.Create('', TEncoding.UTF8); 
S.WriteString('象');

[WojTec]

Encoding property is read only, so I did'n knew how to use it, I don't saw encoding parameter in constructor. Now working very well, thanks guys :D