Die unerklärliche AV

[Delbor]

Hi Stvie

Zitat von Stevie:

Hast du möglicherweise Lokalisierungen die nicht aktualisiert wurden? Da stecken auch die dfm resourcen drin und wenn da noch nicht die ListBox2 drin ist, wird sie beim dfm streamen nicht erstellt und demnach bleibt das ListBox2 Feld nil.

Bezüglich Lokalisierung hab ich noch nichts unternommen. Damit gelten also die Defaulteinstellungen meines Systems.
Das Programm selbst ist zur Zeit eher eine Testanwendung, die in einem weiteren Schritt um eine SQLite-DB ergänzt werden soll. Hauptziel: Effizientes organisieren meiner eigenen Dokumente.

Gruss
Delbor

[himitsu]

Zitat von Delbor:

Ansonsten findet sich die komplette pas im Anhang meines letzten posts.

"Komplett" war früher auch mal mehr.

Das Problem scheint doch vermutlich schon vorher zu existieren und da fehlt gleich mal Alles.

Delphi-Quellcode:

Assert(Assinged(PDFOfficerMain));
Assert(Assinged(PDFOfficerMain.ListBox1));
Assert(Assinged(PDFOfficerMain.ListBox2));

Direkt an den Anfang von TPathFinderFrame.AddNewNode und auch nach dem Application.ProcessMessages; , zu dem ich jetzt besser mal nix sage.

[Delbor]

Hi himitsu

Zitat:

"Komplett" war früher auch mal mehr.

Ufff!! Sorry, mein Fehler! Ich hab da zwar eine Note++-Datei angelegt, aber nicht hochgeladen
Ich hab mal nur die Pathfinder-Unit angehängt, da hier die Listbox2 angesprochen wird.

Gruss
Delbor

[hoika]

Hallo,
wir brauchen auch die Main-Pas und -Dfm.
Am besten das ganze Projekt.

Und markier mal die Stelle, wo es knallt.

[Delbor]

Hi zusammen
Das Projekt erfordert allerdings etwas Zusatzaufwand, da die Vorrausetzungen für einen Zip-Upload nicht so ohne weiteres einzuhalten waren.
Das Projekt erwartet:
Die PDFium-DLL von Google(freeware), die in den Debug-Ordner kopiert werden muss oder da, wo die Exe erstellt wird.
Die TFilesearcher-Komponente von DeddyH, die ich hier ebenso beilege. Diese benötigt eine Zusatzdatei DDFileUtils, die enthalten ist und sich meiner erfahrung nach im Projekteverzeichnis befinden sollte, ohne aber explizit dem Projekte hinzugefügt zu werden.

Gruss
Delbor

[Delbor]

Hi zusammen

Wie ich gesehen habe, wurden meine Zips schon mal heruntergeladen. Da es hier dazu bislang noch keinen Kommentar gab, befürchte ich, dass auf anderen Rechnern dieseAV nicht auftritt. Oder irre ich mich da?

Gruss
Delbor

[himitsu]

LOL

Irgendwer kommt auf die geniale Idee im Create des Frame auf die globale Variable der Form zuzugreifen, die gerade eben erstellt wird und dann wundert er sich, dass Komponenten, die erst nach dem Frame erstellt werden, noch nicht existieren, da sie noch nicht erstellt wurden.

Verschiebe diesen Code in eine Methode und rufe sie im OnCreate der Form aus, nachdem alles erstellt wurde.




ODER: Trenne alle globalen Abhängigkeiten auf.

Erstmal solltest du lernen, dass man diese Variablen besser nicht verwenden sollte.
Stattdessen sollte dein Frame (deine Komponente) ein Property für diese Listboxen bekommen, mit denen er arbeiten soll.
Wenn der Frame registriert wird und RegisterComponent und als "Komponente" auf der Form liegt, dann bekommst du auch diese Property im OI angeboten.

Als Nebeneffekt sind die einzelnen Komponenten voneinander unabhängig, können ausgetauscht oder auch in anderen Programmen wiederverwendet werden.

[Delbor]

Hi Himitsu

Du sprichst von dieser Prozedur:

Delphi-Quellcode:

procedure TPathFinderFrame.AddNewNode(ParentNode: TTreeNode; const aCaption,
  aRealName: string; CanGetChildren: Boolean);
var
  Node: TTreeNode;  NodeRect: TRect;
  NameRec: PNameRec; DefaultDraw: Boolean;BCaption : String;
begin  
  Node := TVPathExplorer.Items.AddChild(ParentNode, aCaption);
  PDFOfficerMain.ListBox1.Items.Add('aRealName := ' + aRealName); // Hier wird Listbox1 auf 
  PDFOfficerMain.ListBox1.Items.Add('aCaption := ' + aCaption);         // der Mainform ausgefüllt.
  BCaption := ExtractFileExt(aCaption);                                                     // Und zwar mit sen hier angegbenen drei 
  PDFOfficerMain.ListBox1.Items.Add('ExtractFileExt := '+ BCaption);  // Zeilen, die für jedes der 13 Laufwerke je einmal
  Application.ProcessMessages; 
  if CanGetChildren then        // Boolean-Wert für Isdirectory aus dem TSearchanalizer(TFilesearcher)
  begin
    FDefaultdraw := False;
    FIsDirectory := True;
    Node.ImageIndex := 1;
    Node.SelectedIndex := 1;
    (* Dummy-Knoten anlegen *)                      
    TVPathExplorer.Items.AddChild(Node, 'dummy');
//    PDFOfficerMain.ListBox2.Items.Add('procedure TPathFinderFrame.AddNewNode');      // Hier die AV: Listbox2 ist Bil, obwohl sie sich auf der Form befindet
//    PDFOfficerMain.ListBox2.Items.Add('CanGetChildren := True');
//    PDFOfficerMain.ListBox2.Items.Add('');
  end
  else
  begin
    if BCaption = FFilter then                 //  Boolean
    begin
....

Jetzt brauch ich aber ganz schnell ein recht tiefes Mausloch, in das ich mich verkriechen kann!!

Da hab ich erst grade in einem andern Thread geschrieben, dass der Constructor des Frames vor demjenigen der Form abläuft, weil in dieser eine Frameinstanz angelegt werden soll - und jetzt dies! Natürlich läuft die Prozedur AddNewNodes zum ersten mal vor dem Form-Constructor ab und ebenso natürlich gibt es zu dieser Zeit keine Listbox2.

Das Problem ist nur - es gibt zu diesem Zeitpunkt auch keine Listbox1. Die aber wird anstandslos gefüllt, ob es sie nun schon gibt oder nicht! Und das dürfte auch nicht sein!?
Im Constructor des Frames gibt es keinen Zugriff auf die Main- oder irgendeine andere Form.

Delphi-Quellcode:

constructor TPathFinderFrame.Create(AOwner: TComponent);
  var RGindex, L: integer; Drive, D: string;
      Drives: TStringlist;
begin
  inherited;
  FDefaultDraw := False;
  Drives := TStringlist.Create;
  try                                                                  
    TDrives.ListDrivesAndNames(Drives);
    FReportlist := TStringlist.Create;
    FReportlist.Add('----');
    for Drive in Drives do
    begin
      D := Copy(Drive, 1, 3);
      AddNewNode(nil, Drive, Copy(Drive, 1, 3), true);       //AddNew wird hier aufgerufen, bevor die Form crestet wird.
      FReportlist.Add(D);
    end;
  finally
    FreeAndNil(Drives);
  end;
  FReportlist.Add('----');
  PathFinder1.SearchType := stBoth;
  FileMaskInit;
  
  FPathlist := TStringlist.Create;
  FNodeList := TStringlist.Create;
  FNodeList.Sorted := False;
  RGindex := 0;
end;

Also: Zu dem Zeitpunkt, da der Frame createt wird:

• gibt es noch keine Mainform.
• Also gibt es weder Listbox1 noch Listbox2
• Der Constructor des Frames greift aber via aufruf von AddNewNode indirekt auf auf beide zu.
• Wesshalb erzeugt nur der Zugriff auf die noch nicht vorhandenen Listbox2 eine AV, nicht aber der auf die ebenfalls noch nicht vorhandene Listbox1?

Gruss
Delbor

PS:

Zitat:

Irgendwer kommt auf die geniale Idee im Create des Frame auf die globale Variable der Form zuzugreifen,

Das muss dieser ominöse Fehler sein, der da vor meinem Bildschirm sitzt...

[himitsu]

Bei Frames gibt es halt zwei Varianten,

entweder als Frame, der durch die IDE verwaltet wird. (wie hier)

• Da wird es schwer, dass die Daten "automatisch" rein bekommen,
  abgesehn davon der Code wird in Methoden gelegt, die manuell vom Programm aufgerufen werden.
  > statt im eigenen Contructor dann im Contructor der Form aufgerufen
• Property des Frame sind im OI nicht nutzbar, da die IDE für solche Frames, Forms und Datenmodule eine "Dummy"-Kompoente im Formdesigner nutzen. (und da eben nur die bekannten Grundtypen, wie TFrame).
  Das Selbe gilt auch für Vererbung diesen Modulen, so lange die Vorfahren nicht in der IDE registriert werden.
• aber dafür gibt es auch keine Abhängigkeit zur IDE

oder man behandelt den Frame als Komponente

• hier muß man diesen Frame aber in der IDE registrieren/installieren, also erstmal in ein Laufzeitpackage stecken
• aber dafür kennt die IDE dann diese Klasse und kann auch ihre Property und Property-/Component-Helper verwenden

Was ich schon immer vermisst habe.
Es gibt das TComponent.Loaded -Ereignis, welches nach dem Erstellen und Laden aller Property via DFM ausgeführt wird.
Es gibt aber leider kein Ereignis für "Form fertig geladen", so wie z.B. csDestroying, wo alle Sub-Komponenten erstmal diesen Status bekommen, bevor auch nur eine Komponente freigegeben wird.
Ein AfterModulCreate und BeforeModulDestroy in TComponent (TForm/TFrame/TDataModule) wäre toll.