Unicode String in FileStream speichern/auslesen

[ak-ac]

Du rufst deine beiden funktionen doch gar nicht auf, oder?
Sieht mir eher so aus, als ob du deine Einträge in eine Textdatei schreibst...

[himitsu]

Zitat:

Um die UTF8Strings zu speichern haben ich mir wie von Embacadero vorgeschlagen den folgenden Code verwendet:

Willst du nun UTF8Strings oder UnicodeStrings speichern?

Wenn du schon deine UTF-Strings speichern willst, dann sollte die Speicherfunktion auch auf UTF8 ausgelegt sein.

Delphi-Quellcode:

procedure StrToStream(AString: UTF8String; AStream: TStream);
var
  Size: LongInt;
begin
  Size := Length(AString);
  AStream.Write(Size, SizeOf(Size));
  AStream.Write(PAnsiChar(AString)^, Size);
end;

procedure StrFromStream(var AString: UTF8String; AStream: TStream);
var
  Size: LongInt;
begin
  { Richtig für Unicode-String-Daten }
  AStream.Read(Size, SizeOf(Size));
  SetLength(AString, Size);
  AStream.Read(PAnsiChar(AString)^, Size);
end;

Beim speichern von Binärdaten sollte man sowieso keine dynamischen Datentypen (String, Integer, Char) verwenden, sondern nur auf Native (AnsiString, WideString, UnicodeString, LongInt usw.) zurückgreifen.


PS: Existieren noch alte Dateien, welche mit dem neuen Programm ausgelesen werden sollen?
Wenn, ja dann kannst du das Streamformat der Datei nicht einfach so ändern.

PSS: Brauchst du jetzt unbedingt noch UTF8Strings in deinem neuen Delphi?
Ich denk mal, für de weitere Verarbeitung im Programm kann es einfacher/optimaler sein, wenn du da String/UnicodeString nutzt.

[hansklok]

@Wicht: Das ist komisch, weil ich das genauso übernommen habe, wie es Embacadero auf den Hilfeseiten vorschlägt, komisch.
@ak-ac: Wie meinst du das? Naja, wenn ich will, kann ich die Datei schon mit einem Texteditor öffnen, nur sollte ich nichts daran ändern, weil die Datei sofort unlesbar wird. Außerdem können ja in einem FileStream auch noch andere Werte gespeichert werden (Boolean, Integer etc.) und das funktioniert wunderbar. Gib mal bitte ein beispiel, damit ich weiß, was du meinst.

@himitsu: Du hast recht, da habe ich mich falsch ausgedrückt, natürlich möchte ich UnicodeStrings speichern, sonst würde ja die ganze Umstellung gar keinen Sinn machen. Wie müsste es da aussehen, wie gesagt, ich habe den Source komplett von Embacadero übernommen.

Danke

[Bernhard Geyer]

Zitat von hansklok:

@Wicht: Das ist komisch, weil ich das genauso übernommen habe, wie es Embacadero auf den Hilfeseiten vorschlägt, komisch.

Hast du einen Link darauf? Dann sollte man das melden das hier ein Fehler vorliegt.

[hansklok]

@Bernhard Geyer: Anwendungen für Unicode anpassen unter Aufrufe von Read/ReadBuffer-Methoden von TStream und Aufrufe von Write/WriteBuffer-Methoden von TStream.

[himitsu]

Zitat von hansklok:

natürlich möchte ich UnicodeStrings speichern, sonst würde ja die ganze Umstellung gar keinen Sinn machen.

Nee, ich meinte nur den Zusammenhang zwischen deinen UTF8Strings und der zugehörigen Speicherung als UnicodeString.

Natürlich kann man auch Unter Unicode als UTF8 speichern, was garnicht so abwägig ist.
- UTF8 benötigt werniger Speicher (bei der deutschen Sprache sind das bis zu 50% ersparnis)

UTF-8 = 8 Bit Unicode Transformation Format / UCS Transformation Format (Universal Character Set)


Wenn du im alten Projekt auch schon UTF-8 gespeichert hast, dann kann man das locker so belassen, da es dann kompatibel bleibt.

[hansklok]

@himitsu: Sorry ich bin grade durcheinander, also du empfiehlst mir zum Speichern und Laden den Source, den du oben gepostet hast, oder doch einen anderen?

[Bernhard Geyer]

Zitat von hansklok:

@Bernhard Geyer: Anwendungen für Unicode anpassen unter Aufrufe von Read/ReadBuffer-Methoden von TStream und Aufrufe von Write/WriteBuffer-Methoden von TStream.

Richtig falsch ist es ja nicht da primär nur die zu ändernde Codefragmente verglichen werden.

Aus
  Stream.Write(Pointer(S)^, Length(S)); Muss
  Stream.Write(Pointer(S)^, Length(S) * SizeOf(Char)); // Geben Sie die Puffergröße in Byte an Wenn im Ursprungscode vorgesehen ist die Längenangabe vor dem String zu speichern so braucht die in der Unicodeversion nicht geändert zu werden. Sinnvoll ist es aber wie auch bei der Read-Methode anzugeben.

[Bernhard Geyer]

Zitat von hansklok:

@Bernhard Geyer: Anwendungen für Unicode anpassen

Habs jetzt mal an [e-mail] gemeldet.

[hansklok]

@himitsu: 1000 dank mit dem UTF8String und deiner Speicher- & Ladeprocedure funktioniert alles wunderbar, nur sobald ich die Strings als UnicodeString deklariere crasht es natürlich. Wie müsste ich da vorgehen?

@Bernhard Geyer: ..da wird sich Embacadero aber freuen

VG