Unicode und Filestream

[himitsu]

Aber nicht vergessen, wenn die Daten gespeichert und später (eventuell mit einer anderen Programmversion) geladen werden sollen, dann verwende unbedingt statische Typen, wie UnicodeString, WideString, Ansistring, LongInt und nicht die dynamischen, wie String, Char und Co.

Es sei denn du bust Marker ein, damit der Empfänger weiß, wie er es zu interpretieren hat .... sonst gibt's Datensalat.


@DeddyH: fast ... du hast es nicht genau so ... hast es nur angedeutet

[Keldorn]

Hallo

was ist, wenn man in einem D2007-Projekt einen String nicht über writebuffer, sondern über die Treader und Twriterklasse und Readstring und writestring in den Stream klopft?

Die funktionen, die dort genutzt werden, speichern den String ja auch anders (als UTF8?)ab. Muß ich hier Probleme befürchten oder kann ich mich bei einem Wechsel auf Delphi-XE darauf verlassen, das ich keine Probleme bekomme und alles wieder so geöffnet wird, wie es gespeichert wurde? Und ich keine Änderungen vornehmen muß, wenn meine strings in Klassen alle nur als xyz:string; definiert sind?

Gruß Frank

[jaenicke]

Ich benutze schon länger diese beiden Methoden. Die sollten immer funktionieren, egal mit welcher Version gespeichert und mit welcher geladen wird:

Delphi-Quellcode:

// Read an UTF8 encoded string from a stream
function LoadStringFromStream(AStream: TStream): String;
var
  ResultString: AnsiString;
  StringSize: Integer;
begin
  Result := '';
  if AStream.Size - AStream.Position < SizeOf(StringSize) then
    Exit;
  AStream.ReadBuffer(StringSize, SizeOf(StringSize));
  SetLength(ResultString, StringSize);
  if AStream.Size - AStream.Position < StringSize then
    Exit;
  AStream.ReadBuffer(Pointer(ResultString)^, StringSize);
  {$ifdef UNICODE} // ab Delphi 2009
  Result := Utf8ToString(ResultString);
  {$else}
  Result := Utf8Decode(ResultString);
  {$endif}
end;

// Write a string to a stream and encode it to UTF8 before
procedure SaveStringToStream(AStream: TStream; AString: String);
var
  StringSize: Integer;
  StringToSave: AnsiString;
begin
  StringToSave := Utf8Encode(AString);
  StringSize := Length(StringToSave);
  AStream.WriteBuffer(StringSize, SizeOf(StringSize));
  AStream.WriteBuffer(Pointer(StringToSave)^, StringSize);
end;

[Keldorn]

Hallo

TEeder.readstring + TWriter.writestring gehen ja ähnlich vor. aber wie sehen die beiden Procs in Delphi-XE aus? ? kann man davon ausgehen, daß der Umstieg kein Problem wird?

Frage ist natürlich auch, warum sehr selten sieht, das Treader und Twriter verwendet wird.
ich persönlich finde es übersichtlicher, da man hier für die einfachen Datentypen die entsprechenden Funktionen hat.

Gruß Frank

[himitsu]

TReader und TWriter haben schon seit Jeher mehrere Methoden für AnsiString und WideString/UicodeString und sollten daher auch überall funktionieren ... denk ich mal

PS: Binär-DFMs werden darüber gespeichert und die können von D2009+ und auch von NichtUnicode-Delphis gelesen/erstellt werden.

[Keldorn]

ok, danke