[VirtualTreeView] Daten später laden

[Coder90]

Hi
Ich hab ein VirtualTreeView in dem ich über Objekte Daten speichere.
Die Daten können ziemlich groß werden darum wäre es praktisch wenn sie erst geladen werden wenn sie gebraucht werden.
Das ist meine aktuelle ungünstige Laden procedure

Delphi-Quellcode:

procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Len: Integer;
begin
  TreeData := VST.GetNodeData(Node);
  TreeData.FObject := TNodeData.Create;

  with TNodeData(TreeData.FObject) do
  begin
    ...
    Stream.Read(Len, SizeOf(Len));
    SetLength(FText, Len);
    Stream.Read(PChar(FText)^, Len);
    ...
  end;
end;

In FText müssen viele Daten geladen werden.
Das soll erst geschehen wenn man auf einen Node klickt.
Man müsste also in VSTLoadNode die Position (der Daten im Stream) speichern um sie später laden zu können.
Ich glaube der Stream wird nach VSTLoadNode vom VST automatisch gefreet.
Man müsste ihn also auch vorher kopieren.
Ist sowas zu realisieren?
Ich dachte auch daran den ganzen Ladevorgang per XML zu machen.
Kommt drauf an was komplizierter ist.

MfG Coder

[Coder90]

Um in anderen proceduren mit dem Stream arbeiten zu können muss ich ihn kopieren.

Delphi-Quellcode:

var
  aStream: TStream;

procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
begin
  ...
  aStream := TStream.Create;
  aStream.CopyFrom(Stream,Stream.Size);
end;

Doch wenn er bei CopyFrom ankommt bringt er eine Debugger-Exception von EReadError "Stream-Lesefehler".
Wie könnte ich den Stream sonst noch kopieren?

[m.wollert]

Hi,

ich würde mal TMemoryStream versuchen.

Grüße!

[Coder90]

Geht leider auch nicht.
Gleicher Fehler :(
Eigentlich soll der Stream ja nur 1:1 kopiert werden.

[Der_Unwissende]

Zitat:

Zitat von m.wollert

ich würde mal TMemoryStream versuchen.

Hi,
daran musst du dich halten! TStream.Create kann nicht funktionieren, da TStream abstrakt ist (du würdest später einfach einen abstrakten Fehler bekommen!).
Was dein Problem angeht, so solltest du ein paar Dinge sicherstellen. So prüft man immer, ob eine Instanz existiert bevor man sie verwendet und bei Streams müssen die Positionen gesetzt sein. Häufigster Fehler, es wird in den Stream geschrieben und gleich danach gelesen (die Position ist dann dummerweise im Stream, häufig sogar an seinem Ende).

Versuch es mal so:

Delphi-Quellcode:

var
  aStream: TStream; // Hier ist TStream völlig ok!

procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
begin
  ...
  // prüfen ob Stream überhaupt existiert!
  if assigned(Stream) then
  begin
    aStream := TMemoryStream.Create; // nur beim erzeugen nie TStream.Create verwenden! 
    // setzen der Position 
    Stream.Position := 0;
    aStream.CopyFrom(Stream, Stream.Size);

    // Alternativ kannst du auch 
    // aStream.CopyFrom(Stream, 0) 
    // verwenden, hier wird automatisch auf 0 gesetzt und dann alles kopiert!
  end; 
end;

Gruß Der Unwissende

[Coder90]

Wow Danke!

Hier mein Source:

Delphi-Quellcode:

  TNodeData = class
    FTextPos: Int64;
    FText: String;
  end;


procedure TMainForm1.VSTSaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Len: Integer;
begin
  with GetData(Node) do
  begin
    Len := Length(FText);
    Stream.Write(Len, SizeOf(Len));
    Stream.Write(PChar(FText)^, Len);
  end;
end;

procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Len: Integer;
begin
  TreeData := VST.GetNodeData(Node);
  TreeData.FObject := TNodeData.Create;

  with TNodeData(TreeData.FObject) do
  begin
    FTextPos := Stream.Position;
  end;

  if not Assigned(aStream) then
  begin
    aStream := TMemoryStream.Create;
    aStream.CopyFrom(Stream, 0);
  end;
end;

Und um die Daten später zu laden:

Delphi-Quellcode:

aStream.Position := Data.FTextPos;
aStream.Read(Len, SizeOf(Len));
SetLength(Data.FText, Len);
aStream.Read(PChar(Data.FText)^, Len);

Das funktioniert.

Um die Performance zu testen hab ich eine große Datei geladen.
Doch in der Version ohne Stream, wo alle Daten gleich geladen werden, läd er die Datei sogar schneller als in dieser Version mit Stream.
Die Speicherauslastung ist auch bei beiden gleich.
Scheinbar funktioniert das doch nicht so wie ich mir das Vorgestellt habe. Schade
Trotzdem Danke!

[Coder90]

Hi
Hab mich nochmal damit beschäftigt und eine Lösung gefunden.
Der Stream wird nich kopiert, sonder erstellt wenn aus ihm gelesen werden soll.

Hier mein Quelltext:

Delphi-Quellcode:

  TNodeData = class
    FTextPos: Int64;
    FText: String;
  end;


procedure TMainForm1.VSTSaveNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Len: Integer;
begin
  with GetData(Node) do
  begin
    Len := Length(FText);
    Stream.Write(Len, SizeOf(Len));
    Stream.Write(PChar(FText)^, Len);
  end;
end;

procedure TMainForm1.VSTLoadNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Stream: TStream);
var
  Len: Integer;
begin
  TreeData := VST.GetNodeData(Node);
  TreeData.FObject := TNodeData.Create;

  with TNodeData(TreeData.FObject) do
  begin
    FTextPos := Stream.Position;
  end;
end;

Und um die Daten später zu laden:

Delphi-Quellcode:

var
  FileStream: TFileStream;
  Len: Integer;
  ...
begin
FileStream := TFileStream.Create('C:\Datei', fmOpenRead);
FileStream.Position := Data.FTextPos;
FileStream.Read(Len, SizeOf(Len));
SetLength(Data.FText, Len);
FileStream.Read(PChar(Data.FText)^, Len);
FileStream.Free;
end;

Das Funktioniert! Große Dateien werden Blitzschnell geladen.

Jetzt gibts nur noch ein Problem:
Wenn man die Daten eines Knotens nicht läd, wird er beim nächsten Speichern als leer gespeichert, da ja vom VST die komplette Datei neugeschrieben wird.
Man müsste vor dem speichern wieder alle Daten laden und das käme von der Performance aufs selbe raus. :lol:
Man müsste nur die Daten, die verändert wurden, in die Datei schreiben.
Das liese sich, glaube ich, wenn überhaupt, nur mit einer eigenen Schreib- und Leseroutine bewerkstelligen.
Aber dazu bin ich zu faul. :?
Oder hat jemand eine einfachere Idee?

MfG