[VirtualTreeView] Widestrings speichern und laden

[necromundo]

Hallo zusammen,

ich benutze zur Zeit VirtualTreeView, um ein Abbild einer Verzeichnisstruktur zu erstellen. Soweit auch alles toll, nur habe ich jetzt ein Problem, wenn ich das abspeichern und wieder laden will.
Irgendwie habe ich den Eindruck, dass es dabei Probleme mit dem Speichern von Widestrings bzw. Unicode-Dateinamen gibt, die Hälfte der Namen sind dann nicht identifizierbare Sonderzeichen (Rechtecke).
Hier mal Codeschnipsel vom Speichern und Laden:

Delphi-Quellcode:

procedure TForm1.historyvstSaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PHistoryTreeData;
  Len: integer;
begin
  Data := historyvst.GetNodeData(Node);
  // Dateiname
  Len := length(Data.FDateiname);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.FDateiname)^, Len);
  // Dateipfad
  Len := Length(Data.FDateipfad);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.FDateipfad)^, Len);

Delphi-Quellcode:

procedure TForm1.historyvstLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Data: PHistoryTreeData;
  Len: integer;
begin
  Data := historyvst.GetNodeData(Node);
  // Dateiname
  Stream.read(Len, SizeOf(Len));
  SetLength(Data.FDateiname, Len);
  Stream.read(PChar(Data^.FDateiname)^, Len);
  // Dateipfad
  Stream.read(Len, SizeOf(Len));
  SetLength(Data.FDateipfad, Len);
  Stream.read(PChar(Data^.FDateipfad)^, Len);

Hat da vielleicht jemand eine Idee oder kennt das Problem? Das Umwandeln in normale String vor dem Speichern ist keine Option, da nach dem Laden auch auf Unicode-Dateinamen zugegriffen werden können soll.

VG, Benny

[mleyen]

Wie schaut die Struktur der "PHistoryTreeData" aus?
"FDateiname" und "FDateipfad" sollten für Unicode als Widestring definiert sein (<Delphi09), welche du dann so auch abspeichern/laden kannst.

Edit:
Die zu lesende Größe stimmt dann auch nicht.
Wenn du den Widestring dann speichern/einlesen willst, solltest du wieder "SizeOf()" verwenden.

[Bernhard Geyer]

Delphi-Quellcode:

  Len := Length(Data.FDateipfad);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Data^.FDateipfad)^, Len);

Len = Zeichen im String, jedoch benötigst du beim Stream-Written die Anzahl der Bytes:

Delphi-Quellcode:

Stream.write(PWideChar(Data^.FDateipfad)^, Len *SizeOf(PWideChar));

Beim Lesen wirst du ähnliche Probleme haben!

[necromundo]

Danke für die schnellen Antworten :)

Ja, ich habe beim Auslesen wirklich noch Probleme, aber das Speichern scheint soweit zu funktionieren! Jedenfalls sind jetzt die kompletten Dateinamen und Pfade da drin, aber der Eintrag ist zu lang, also er liesst wohl zuviel aus dem Stream an der Stelle.

Delphi-Quellcode:

Stream.read(Len, SizeOf(Len));
  SetLength(Data.FDateiname, Len*SizeOf(PWideChar));
  Stream.read(PwideChar(Data.FDateiname)^, Len *SizeOf(PWideChar));

[necromundo]

Hallo zusammen,

hat inzwischen jemand eine Idee, woran das liegen kann, das zuviel eingelesen wird?
Es ist doch richtig, wie die Länge des Widestrings (siehe oben) festgelegt wird und auch wie das ausgelesen wird, oder?
Es macht beim Auslesen den Anschein, als würden etwa doppelt soviele Zeichen ausgelesen wie der Widestring eigentlich lang ist.
:wiejetzt:

[nuclearping]

Delphi-Quellcode:

Len := Length (DeinWideString) * 2;
Stream.Write (Len, SizeOf (Integer));

Delphi-Quellcode:

Stream.Read (Len, SizeOf (Integer));
GetMem (DeinPWideChar, Len);
Stream.Read (DeinPWideChar^, Len);
DeinWideString := DeinPWideChar;
FreeMem (DeinPWideChar);

So im groben. :mrgreen: