VST Speichern und Laden

[100nF]

jo also ich habs mal irgendwie probiert aber das hat nicht geklappt...
und ich weiss auch nicht ob das überhaupt stimmt was ich bis jetzt habe.

als0 ich hab den code kopiert von einem tutorial wo es aber mit records beschrieben ist, und hab dann bisschen abgeändert.

also das mit dem sizeof und so... also KENNEN ist übertrieben
mehr als ich mir selbst aus dem begriff "sizeof" ableiten kann, versteh ich nicht an dem teil... wird wohl irgendwie dir grösse won dem angeben, was in den klammern staht denk ich mal. aber WIE die grösse angegeben wird weiss ich net, also die einheiz, z.B. in byte oder so. das mit dem length(), das gibt wohl die anzahl zeichen an oder? also length('hallo') wird 5 ergeben oder nicht?

also ich probier mal noch bisschen rum, bis jetzt hab ich aber immer eine fehlermeldung bekommen beim laden der daten. werd die fehlermeldung mal hier posten wenn ich nicht weiter komme

EDIT: und was ich vorallen nicht verstehe am ganzen, ist der stream. ich hab null ahnung wie das aufgebaut ist und so...
EDIT2: ausserdem kann man Len := Length(Daten.Dauer); nicht verwenden, nur weiss ich nicht was man anstelle von dem verwenden muss...
EDIT3: so, hab jetzt mal was gemacht aber komm nicht weiter.

Delphi-Quellcode:

procedure TForm1.VST1SaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Stream: TStream);
var
  daten: TArchiv; Len: Integer;
begin
  daten := TArchiv(vst1.GetNodeData(Node)^);

  Len := Length(Daten.Filename);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Daten.Filename)^, Len);

  Len := Length(Daten.Titel);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Daten.Titel)^, Len);

  Len := Length(Daten.Interpret);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Daten.Interpret)^, Len);

  Len := Length(Daten.Album);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Daten.Album)^, Len);

  Len := Length(Daten.Genre);
  Stream.write(Len, SizeOf(Len));
  Stream.write(PChar(Daten.Genre)^, Len);

  Len := Length(floattostr(Daten.Dauer));
  Stream.write(Len, SizeOf(Len));
  Stream.write(Daten.Dauer, Len);


  Len := Length(inttostr(Daten.Bewertung));
  Stream.write(Len, SizeOf(Len));
  Stream.write(Daten.Bewertung, Len);

  Len := Length(inttostr(Daten.Counter));
  Stream.write(Len, SizeOf(Len));
  Stream.write(Daten.Counter, Len);

  Len := Length(floattostr(Daten.Datum));
  Stream.write(Len, SizeOf(Len));
  Stream.write(Daten.Datum, Len);



end;

procedure TForm1.VST1LoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Stream: TStream);
var
  daten: TArchiv; Len: Integer;
begin
  daten := TArchiv(vst1.GetNodeData(Node)^);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Filename, len);
  Stream.read(PChar(Daten.Filename)^, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Titel, len);
  Stream.read(PChar(Daten.Titel)^, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Interpret, len);
  Stream.read(PChar(Daten.Interpret)^, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Album, len);
  Stream.read(PChar(Daten.Album)^, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Genre, len);
  Stream.read(PChar(Daten.Genre)^, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Dauer, len);
  Stream.read(Daten.Dauer, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Bewertung, len);
  Stream.read(Daten.Bewertung, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Counter, len);
  Stream.read(Daten.Counter, Len);

  Stream.read(Len, SizeOf(Len));
  SetLength(Daten.Datum, len);
  Stream.read(Daten.Datum, Len);
end;

das SetLength funktioniert ja nur bei Strings, aber bei TDate und Integer nicht. werd mal nach der lösung suchen vielleicht find ich was...