VST - IncrementalSearch -> Access violation

[100nF]

Hallo zusammen,

Also ich habe einen VST mit der IncrementalSearch-Funktion "ausgerüstet".
Eigentlich funktioniert das wunderbar, doch wenn ich zwei mal hintereinander die selbe Taste auf der Tastatur (= selber Buchstabe) drücke, gibts eine "access violation".

Ich finde einfach nicht heraus, was das Problem ist!
Vielleicht kann ja von euch jemand helfen...

Hier mal bisschen Code, wenn ihr mehr braucht sagt bescheid.

Delphi-Quellcode:

type
  TArchiv = class(TComponent)
  private
    fFilename: String;
    fTitel: String;
    fInterpret: String;
    fAlbum: String;
    fGenre: String;
    fDauer: TTime;
    fBewertung: Integer;
    fCounter: Integer;
    fDatum: TDate;


    function getPlaylistname: String;
  published
    property Filename:     String read fFilename write fFilename;
    property Titel:        String read fTitel write fTitel;
    property Interpret:    String read fInterpret write fInterpret;
    property Album:        String read fAlbum write fAlbum;
    property Genre:        String read fGenre write fGenre;
    property Dauer:        TTime read fDauer write fDauer;
    property Bewertung:    Integer read fBewertung write fBewertung;
    property Counter:      Integer read fCounter write fCounter;
    property Datum:        TDate read fDatum write fDatum;

    property Playlistname: String read getPlaylistname;

  public

end;
pArchiv = ^TArchiv;

//...

procedure TForm1.VST1IncrementalSearch(Sender: TBaseVirtualTree;
  Node: PVirtualNode; const SearchText: WideString; var Result: Integer);
var
  s1, s2: string;
  Archiv: TArchiv;
begin

  Archiv := TArchiv(vst1.getnodedata(node)^); // <--- Diese Zeile wird markiert bei der acces violation

  s1 := SearchText;

  case vst1.Header.SortColumn of
    0: s2 := Archiv.Filename;
    1: s2 := Archiv.Titel;
    2: s2 := Archiv.Interpret;
    3: s2 := Archiv.Playlistname;
    4: s2 := Archiv.Album;
    5: s2 := Archiv.Genre;
    6: s2 := formatdatetime('HH:MM:SS', Archiv.Dauer);
    7: s2 := Inttostr(Archiv.Bewertung);
    8: s2 := Inttostr(Archiv.Counter);
    9: s2 := DateTimeToStr(Archiv.Datum);
  end;

  if s2 = '' then
    s2 := ' ';
  
  Result := StrLIComp(pchar(lowercase(s1)), PChar(lowercase(s2)), Min(Length(s1), Length(s2)));
end;

wäre echt dankbar wenn mir jemand helfen könnte!

MFG
urbanbruhin

[mkinzler]

Versuch mal
Archiv := TArchiv( Sender.getnodedata(node));

[100nF]

geht auch nicht, so kommt schon beim ersten buchstaben eine access violation...

[mkinzler]

Dann verzichte auf den Cast

Delphi-Quellcode:

Archiv: PArchiv;
begin

  Archiv := Sender.getnodedata(node);

[mirage228]

Arbeitet man bei den Node-Daten nicht üblicherweise mit records (und Pointern darauf -- und nicht mit Klassen, wie hier)? Ist NodeDataSize korrekt initialisert?

mfG
mirage228

[100nF]

@ mkinzler
macht leider keinen unterschied zu meinem code, also die suche funktioniert zwar, aber bei zwei selben buchstaben nacheinander kommt immernoch der selbe fehler.

@ mirage228
naja beides ist möglich^^
Mehr kann ich da auch nicht sagen (warum, wiso...) da ich zu wenig ahnung von der materie habe...

EDIT: ja, NodeDataSize hab ich im oncreate definiert.

[mkinzler]

Hast du die dahinterliegenden Instanzen erzeugt?

[100nF]

ööhm was meinst du damit genau?

also das komische ist ja, dass es funktioniert!!!
nur wenn ich 2 mal kurz hintereinander den selben buchstaben tippe, NUR dann kommt der fehler!
deshalb habe ich das gefühl dass es weniger am TArchiv oder was auch immer liegt, sondern halt an etwas anderem, aber kA an was...

[semo]

ich würde immer erst prüfen ob der NodeData record assigned ist bevor ich mit diesem arbeite:

Delphi-Quellcode:

procedure TForm1.VST1IncrementalSearch(Sender: TBaseVirtualTree; 
  Node: PVirtualNode; const SearchText: WideString; var Result: Integer); 
var 
  s1, s2: string; 
  Archiv: TArchiv; 
  NodeData: PNodeData;
begin 
  NodeData := vst1.getnodedata(node);
  if Assigned(NodeData) then
  begin
    Archiv := TArchiv(vst1.getnodedata(node)^);
    ...
  end;
end;

Ich frage mich auch wo du den Typ PNodeData (oder ähnlich) deklarierst?
Die Daten des Knoten sind meines Wissens nach immer ein Pointer auf einen Record.
In diesem Record kannst du dann wenn unbedingt nötig dein TArchiv verwalten.

Schau dir am besten einmal die Demos zum VirtualStringTree an, diese sind auf der Downloadseite verfügbar.

[mkinzler]

Kann auch ein Zeiger auf eine Insatnz sein, nur muss man dann die Instanzierung selber durchführen, und kann nicht einfach durch eine Cast auf den Speicherbereich zugreifen