TObjectlist und der Seitenwechsel

[Delbor]

Hi zusammen

Um PDFs anzuzeigen, gehe ich erstmal so vor:

Delphi-Quellcode:

procedure TOpenFileFrame.TVFilesExplorerMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var AnItem: TTreeNode; ATextSelection :String;
begin
  AnItem := TVFilesExplorer.GetNodeAt(X, Y);
  if not AnItem.HasChildren then
  begin
    Self.FFileName := AnItem.Text;
    ATextSelection := PNameRec(AnItem.Data)^.RealName;
    if Assigned(OnTextSelectionEvent) then
      OnTextSelectionEvent(Sender,ATextSelection);
  end;
end;

Ich verwende die TFilesearcher-Komponente von DeddyH - den Pfad der im Treeview selektierten Datei gebe ich per Event weiter.

Delphi-Quellcode:

procedure TFileSearchContainerFrame.DoSelectTextEvent(Sender: TObject; const ATextSelection: String);
begin
  FTextSelection := ATextSelection;
  Self.Edit2.Text := ATextSelection;
  if ExtractFileExt(ATextSelection) = AnsiLowerCase('.pdf') then
  begin
    HomeOfficerMainForm.RogersPdfFrame1.PdfFileName := ATextSelection;
    HomeOfficerMainForm.RogersPdfFrame1.PdfViewCreate2;
  end;

Das property RogersPdfFrame1.PdfFileName besitzt einen Setter:

Delphi-Quellcode:

procedure TRogersPdfFrame.SetPdfFileName(Value: String);
begin
  if  FPdfFileName <> Value then
  begin
    FPdfFileName := Value;
    if FPdfList.Count > 0 then
      DeletePdfListObjects;
  end;
end;

In diesem Setter sollen nun die Items der Objectliste zerstört werden, wenn der Filename geändert wird.
Zu sagen ist noch: ich arbeite mit den PDF-Komponenten von Winsoft. Diese zeigen das PDF an(bzw. es kann darauf zugegriffen werden), wenn das Property Active true ist - Der Filename kann nur geändert werden, wenn Activ false ist.
DeletePdfListObjects schliesslich:

Delphi-Quellcode:

procedure TRogersPdfFrame.DeletePdfListObjects;
var
  i: Integer;
begin
  for i := 0 to FPdfList.Count - 1 do
  begin
    FPdfList.Items[i].Free;
  end;
end;

Wenn ich nun starte, kann ich mir problemlos ein Pdf anzeigen. Die Probleme beginnen, wenn ich eine anderDatei auswähle. Wenn Count der Liste > 0 ist, wird obige Prozedur aufgerufen, löst aber bei Free eine Exception aus:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt HomeOfficerMainProject.exe ist eine Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroperation' aufgetreten.
---------------------------

Dass Free eine Exception irritiertmich doch sehr. Was mache ich falsch?

Gruss
Delbor

[hoika]

Hallo,

Delphi-Quellcode:

  for i := 0 to FPdfList.Count - 1 do
  begin
    FPdfList.Items[i].Free;
  end;

Count wird zu Beginn der Schleife in ein Prozessor-Register geschrieben,
bliebt also immer bei z.B. 5 (bei 5 Elementen).

Dreh die Schleife um.

Delphi-Quellcode:

  for i := FPdfList.Count - 1 downto 0 do
  begin
    FPdfList.Items[i].Free;
  end;

Ansonsten könnte auch FPdfList.OwnsObject gleich True sein.

[haentschman]

Moin...:P
zeige mal die Deklaration von FPdfList. Wenn es wirklich eine TObjectlist ist, dann sollte die Liste, wenn OwnsObjects = True ist, die Objekte sebst freigeben. Du mußt nur List.Delete oder List.Clear machen.

[Delbor]

Hi zusammen
So wird die Objectliste erzeugt:

Delphi-Quellcode:

constructor TRogersPdfFrame.Create(AOwner: TComponent);
begin
  inherited;
  FReportlist := TStringlist.Create;
  FPdfList := TDataObjectList<TPDFView>.Create();
  FPdfList.OwnsObjects := False;
end;

OwnsObjects hab ich hier absichtlich auf False gesetzt, da sich die enthaltenen Objektebei jedem Dokumentenwechsel zerstören sollen. Sie werden neu erzeugt, wenn ein neues PDF-Dokument angezeigt werden soll.
Deren Deklaration ist eigentlich nichts spektakuläres:

Delphi-Quellcode:

  TRogersPdfFrame = class(TFrame)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    Splitter1: TSplitter;
    Pdf1: TPdf;
  private
    { Private-Deklarationen }
    FPDFView: TPDFView;
    FReportList: TStringlist;
    FPdfList: TDataObjectList<TPDFView>;  // <T: class>
    FPdfFileName : String;
    procedure WriteReportFile;
    procedure SetPdfFileName(Value: String);
    procedure Zoom;
    procedure Zoom10Percent(PdfPageWidth: Double; PdfPageHeight: Double; PageWidth: Double; PageHeight: Double);

Gruss
Delbor

[freimatz]

Dann sollte das von hoika helfen

[Delbor]

Hi zusamen

Zitat:

Zitat von haentschman (Beitrag 1433277)

Moin...:P
zeige mal die Deklaration von FPdfList. Wenn es wirklich eine TObjectlist ist, dann sollte die Liste, wenn OwnsObjects = True ist, die Objekte sebst freigeben. Du mußt nur List.Delete oder List.Clear machen.

Delete oder Clear entfernen nur die Objekte aus der Liste, zerstören sie aber nicht, zumindest, wen ich das Emba-Wicki richtig verstanden habe.

Das hier könnte ich möglicherweise aber überlesen haben:

Zitat:

Wenn die Liste zum Zeitpunkt des Entfernens des Eintragsobjekt aus der Liste dessen Eigentümer ist, wird das Eintragsobjekt freigegeben.

Gruss
Delbor

[hoika]

Hallo,
hast Du meinen Tip mit dem Umdrehen der Schleife ausprobiert?

[Delbor]

Hi zusammen

Zitat:

Zitat von hoika (Beitrag 1433274)

Hallo,
Count wird zu Beginn der Schleife in ein Prozessor-Register geschrieben,
bliebt also immer bei z.B. 5 (bei 5 Elementen).
Dreh die Schleife um.

Delphi-Quellcode:

  for i := FPdfList.Count - 1 downto 0 do
  begin
    FPdfList.Items[i].Free;
  end;

Ich habe das jetzt mal etwas anders gelöst - irgendwo hab ich mal mitgekriegt, dass der Compiler gelegentlich zwecks Optimierung selbst aus einem "downTo" ein "To" macht, weshalb ich, um Einfluss auf den Zähler nehmen zu können, while verwende:

Delphi-Quellcode:

procedure TRogersPdfFrame.DeletePdfListObjects;
var
  i: Integer;
begin
  i := 0;
  while i < FPdfList.Count do
  begin
    if FPdfList.Items[i].Active then
    begin
      FPdfList.Items[i].Active := False;
      FPdfList.Items[i].Free;
    end;
    inc(i);
  end;
end;

Die erste Zeile innerhalb der inneren Anweisung ist neu. Da gewisse Zuweisungen weder an TPDF noch an TPdfView gemacht werden können, hielt ich es für möglich, dass sich TPdfView auch nicht zerstören lässt, während sie eine PDF-Seite anzeigt.
Und das soweit zu funktionieren scheint...
Das neue PDF-Dokument wird mir zwar nicht angezeigt, aber das ist ja kein Wunder:

Delphi-Quellcode:

procedure TRogersPdfFrame.PdfViewCreate2;
  var i, j, iCount, iLeft, iHeight,
      iTop, iWidth : Integer;
begin
  if FPdfList.Count = 0 then
  begin
    i := 0;
    j := 1;
    Pdf1.FileName := Self.FPdfFileName;
    Pdf1.Active := true;
    ....

Gruss
Delbor

[Delbor]

Hi Hoika

Dein Tip mit der Schlaufe war der Auslöser für meine While-Schleife.
Der, bzw. meine For-Schlaufe, war möglicherweise auch die Ursache für den "inneren Fehler", den ich auch mal erhielt. Ich hab Delphi neu gestartet, und gut war.

Gruss
Delbor

[hoika]

Hallo,
ja, war es wohl.

Bsp:
5 Objekte sind in der Objectlist

for i=1 to 5 do
begin
List.Delete(i);
end;

oder
List.Delete(1);
Count=4

List.Delete(2);
Count=3

List.Delete(3);

-> Puff

List.Delete(4);
List.Delete(5);

[peterbelow]

Zitat:

Zitat von Delbor (Beitrag 1433285)

Delete oder Clear entfernen nur die Objekte aus der Liste, zerstören sie aber nicht, zumindest, wen ich das Emba-Wicki richtig verstanden habe.

Das hast Du nicht ganz richtig verstanden. Das Verhalten der Liste wird von der OwnsObjects-Eigenschaft gesteuert. Wenn die True ist zerstört die Liste die enthaltenen Objekte, wenn sie aus der Liste entfernt werden, also genau das, was Du haben willst. Was Du im Zitat oben geschrieben hast gilt, wenn OwnsObjects False ist.

[Delbor]

Hi peterbelow

Zitat:

Zitat von peterbelow (Beitrag 1433309)

Zitat:

Zitat von Delbor (Beitrag 1433285)

Delete oder Clear entfernen nur die Objekte aus der Liste, zerstören sie aber nicht, zumindest, wen ich das Emba-Wicki richtig verstanden habe.

Das hast Du nicht ganz richtig verstanden. Das Verhalten der Liste wird von der OwnsObjects-Eigenschaft gesteuert. Wenn die True ist zerstört die Liste die enthaltenen Objekte, wenn sie aus der Liste entfernt werden, also genau das, was Du haben willst. Was Du im Zitat oben geschrieben hast gilt, wenn OwnsObjects False ist.

Ich hab das bisher immer so verstanden, dass TObjectList bei OwnsObject := true; seine Items nur zerstört, wenn sie selbst zerstört wird. Man lernt nie aus!

Gruss
Delbor

[hoika]

Hallo,

Zitat:

wenn die True ist zerstört die Liste die enthaltenen Objekte, wenn sie aus der Liste entfernt werde

das macht ja keinen Sinn.

Das würde ja Speicherlecks erzeugen.


OwnsObject = mir gehört das Objekt.

Mache ich ein Delete(0), erwarte ich

1. Das Objekt wird freigegeben
2. der Listeneintrag wird freigegeben (die Liste wird also um 1 kleiner)


Aber: Gut das wir darüber geredet haben ;)

[peterbelow]

Zitat:

Zitat von hoika (Beitrag 1433329)

Hallo,

Zitat:

wenn die True ist zerstört die Liste die enthaltenen Objekte, wenn sie aus der Liste entfernt werde

das macht ja keinen Sinn.

Das würde ja Speicherlecks erzeugen.

Wie kommst Du denn da drauf? Wenn man eine TObjectlist mit OwnsObject = true erzeugt will man damit erreichen, dass die Liste die Lebensdauer der hinzugefügten Objekte verwaltet und man sich nicht mehr selbst darum kümmern muss. Das ist wie das Owner-Konzept bei TComponent & Cie.
Wenn man die Liste leert, zerstört oder einen einzelnen Eintrag mit Delete entfernt ruft die Liste für die betroffenen Objekte Free auf, also kein Leck. Wenn man eines der Objekte in der Liste selbst zerstört bleibt in der Liste eine ungültige Referenz zurück, die später meist zu einer Exception führt. Wenn man ein Objekt zurückhaben will muss man die Extract-Methode verwenden und nicht Delete oder Remove; damit übernimmt man dann auch die Verwaltung der Lebensdauer wieder.

[Delbor]

Hi zusammen
Ich behaupte mal: Hoika hat recht. Das Embarcadero Wiki zu TObjectlist.Ownsobject:

Zitat:

Ermittelt oder setzt den Eigentümer des Objekts.

OwnsObjects ermittelt oder legt fest, ob die Liste Eigentümer der Objekte in der Liste ist. Wenn die Liste zum Zeitpunkt des Entfernens des Eintragsobjekts aus der Liste Eigentümer der Einträge ist, wird das Eintragsobjekt freigegeben. Create initialisiert diese Eigenschaft.

Es stellt sich jetzt halt die Frage, was der fett formatierte Satz nun wirklich heisst. Tatsache ist, dass bei einem Delete eines bestimmten Eintrags dieser aus der Liste entfernt wird, und zwar unabhängig davon, ob OwnsObjects nun False oder True ist. Nun suggeriert aber der bewusste Satz, dass bei True das Eintragsobjekt freigegeben wird, also ein "Eintragsobject.Free" durchgeführt wird.
Technisch wäre dies wohl möglich, wenn die Objectlist alle damit zusammenhängenden Propertys und deren Felder aktualisieren würde. Nebst dem Count-Property würde dies wohl auch Capacity betreffen. Würde... Aber:
An dieser Stelle wollte ich eigentlich die Stelle aus dem Embarcadero Wiki zitieren, die ich heute morgen gelesen hatte, jetzt aber nicht mehr finden kann. Da wurde darauf hingewiesen, dass man das Ereignis OnNotify verwenden solle, um das Objekt nicht nur aus der Liste zu entfernen, sondern wirklich freizugeben/zu zerstören. Gefunden habe ich stattdessen:

• TObjectList.OwnsObjects, das ich oben zitiert habe
• System.Generics.Collections.TObjectList Zitat: "TObjectList ist ein TList-Objekt, das Objekteinträge bei deren Entfernung aus der Liste automatisch freigeben kann."
• System.Contnrs.TObjectList. Auch hier ist die Rede von der automatischen Objektfreigabe...
• Hier und
• Hier finde ich aber, was ich weiter oben vermisst habe.

Mein Fazit: Beide, hoika sowohl peterbelow haben recht - die nicht generische Liste verlangt einfach etwas mehr Handarbeit.
Wie das nun wirklich ist, kann nur ein Studium / durchsteppen durch die Sourcen geben.

Gruss
Delbor

[DeddyH]

Wenn ein Eintrag aus der Liste entfernt wird, wird intern ein Notify-Event gefeuert, das muss dich aber gar nicht interessieren. Ist die Liste Eigentümer ihrer enthaltenen Objekte, wird das zu entfernende Objekt auch freigegeben.

[peterbelow]

Zitat:

Zitat von Delbor (Beitrag 1433413)

Hi zusammen
Ich behaupte mal: Hoika hat recht. Das Embarcadero Wiki zu TObjectlist.Ownsobject:

Zitat:

Ermittelt oder setzt den Eigentümer des Objekts.

OwnsObjects ermittelt oder legt fest, ob die Liste Eigentümer der Objekte in der Liste ist. Wenn die Liste zum Zeitpunkt des Entfernens des Eintragsobjekts aus der Liste Eigentümer der Einträge ist, wird das Eintragsobjekt freigegeben. Create initialisiert diese Eigenschaft.

Es stellt sich jetzt halt die Frage, was der fett formatierte Satz nun wirklich heisst. Tatsache ist, dass bei einem Delete eines bestimmten Eintrags dieser aus der Liste entfernt wird, und zwar unabhängig davon, ob OwnsObjects nun False oder True ist. Nun suggeriert aber der bewusste Satz, dass bei True das Eintragsobjekt freigegeben wird, also ein "Eintragsobject.Free" durchgeführt wird.

Und genau das passiert auch, sowohl in TObjectlist als auch bei TObjectlist<T>. Dieser Notification-Mechanismus wird von TObjectlist vom Elter TList geerbt und überschrieben, um das Verhalten bei OwnsObjects = true zu implementieren. Da muss der Programmierer nichts mehr nachflicken, das ist alles schon geregelt.

OnNotify muss man sich nur antun, wenn man TList oder TList<T> verwendet und die Lebensdauer der Items in der Liste nicht anderswo verwaltet.

[Delbor]

Hi zusammen

Danke für eure Antworten! In Bezug auf die generische Liste steht das ja so in der Help - ich war mir nur nicht sicher, ob ich das richtig verstanden habe. Inzwischen habe ich die entsprechende Unit in meinem Projekt geöffnet und einen Haltepunkt gesetzt, so quasi für die letzte Bestätigung. Bei der nichtgenerischen Liste werde ich dies allerdings nicht tun, sondern einfach glauben, dass es so ist, da ich die ich eh nie verwenden werde.
Inzwischen hat sich aber ein neues "Problem" ergeben. In der folgenden Prozedur lösche ich alle TPdfViews aus der Liste, wenn ich eine neue PDF öffne:

Delphi-Quellcode:

procedure TRogersPdfFrame.DeletePdfListObjects;
  var i: Integer;
begin
  i := 0;
  HomeOfficerMainForm.EdiBeforeDelete.Text := 'BeforeDelete: '+ IntToStr(FPdfList.Count);
  while i <= FPdfList.Count-1 do
  begin
    if FPdfList.Items[i].Active then
    begin
      FPdfList.Items[i].Active := False;
      FPdfList.Delete(i);
    end;
    inc(i);
  end;
  HomeOfficerMainForm.EdiAfterDelete.Text := 'AfterDelete :  '+ IntToStr(FPdfList.Count);
end;

Die Anweisungen an die Edits 'EdiBeforeDelete' und 'EdiAfterDelete' dienten mir zur Kontrolle, da ich mir erst nicht sicher war, dass auch alle TPdfViews(die Items der Liste) gelöscht werden. Der Wert von 'EdiBeforeDelete' ist dabei immer 1, unabhängig davon, wie gross FPdfList.Count tatsächlich ist. Der andere Wert ist 0.
Ich hab das gerade nochmal getestet. Dabei ist mir Delphi eiingefroren, und ich musste das Ding mit dem Taskmanager abschiessen. Nachdem ich das erste mal ein neues PDF geöffnet hatte:
Anhang 51171
Anschliessend versuchte ich nochmal, eine neue PDF zu öffnen - abschuss. *
In der Listbox links eben dem Pdf trage ich jedesmal, wenn ich ein neues PDFView erzeuge, dessen Namen ein. Die ist also korrekt.

Kurz, bevor ich Delphi abschiessen musste, viel mir auf, dass das Edit 'EdiBeforeDelete' den Wert 3 anzeigte...

Gruss
Delbor

PS: Das mit dem Abschuss hielt ich erst für ziemlich 'mysteriös', habmir dann jedoch die drei nächsthöheren PDFs mal angesehen. Die sind zwischen knappen 6000 und guten 30'000 kb gross. Ich hätte Delphi also wohl nicht abschiesssen müssen, sonder nur noch etwas Geduld haben müssen. Oder in Zukunft begindoc und enddoc einbauen...

[peterbelow]

Zitat:

Zitat von Delbor (Beitrag 1433518)

Hi zusammen

Danke für eure Antworten! In Bezug auf die generische Liste steht das ja so in der Help - ich war mir nur nicht sicher, ob ich das richtig verstanden habe. Inzwischen habe ich die entsprechende Unit in meinem Projekt geöffnet und einen Haltepunkt gesetzt, so quasi für die letzte Bestätigung. Bei der nichtgenerischen Liste werde ich dies allerdings nicht tun, sondern einfach glauben, dass es so ist, da ich die ich eh nie verwenden werde.
Inzwischen hat sich aber ein neues "Problem" ergeben. In der folgenden Prozedur lösche ich alle TPdfViews aus der Liste, wenn ich eine neue PDF öffne:

Wenn Du in einer Schleife etwas aus einer Liste löscht sollte die Schleife immer vom Ende der Liste rückwärts laufen. Schließlich ändert der Löschvorgang nicht nur die Zahl der Einträge in der Liste sondern auch die Indices aller Einträge nach dem gelöschten.

Ersetze die While-Schleife einfach durch

Delphi-Quellcode:

 for i := FPdfList.Count-1 downto 0
  begin
    if FPdfList.Items[i].Active then
    begin
      FPdfList.Items[i].Active := False;
      FPdfList.Delete(i);
    end;
  end;

anfangen und am Ende Dec(i) anstelle von Inc(i) verwenden. Oh, un der