ios App:Komponente freigeben.

[vit4l]

Guten Abend,
habe wieder mal ein Problem wo ich nicht weiterkomme. Möglicherweise hat einer von euch es schon lösen können. Ich entwickele zurzeit eine kleine App für iOS. In dieser App nutze ich die D.P.F. Delphi iOS Native Components. Auf meiner Form habe ich im GIU-Designer TDPFUIViewController abgelegt. Auf diesem befindet sich TDPFNavigationController mit ein paar TDPFNavigationControllerPages. Auf einer der Pages habe ich TDPFUITableView die an mein DataSource angeknüpft ist. Nach dem TableView mit Daten befüllt ist, ermögliche ich dem User auf einen der Items zu klicken um eine Detailansicht zu erhalten. Beim Klick wird eine vorhandene TDPFNavigationControllerPage (DetailPage) gepusht. Vor dem Pushen erstelle ich dynamisch eine TDPFUIView, die auf der DetailPage abgelegt wird. Zusätzlich werden ein paar andere Komponenten dynamisch erstellt und bekommen als Parent sowie als Owner die DetailPage angeeignet. Soweit so gut. Jetzt zu dem eigentlichen Problem. Beim Klick auf den Back-Button lande ich wieder auf der Page mit der TableView und es wird ein ViewDidUnload für die vorherige Page ausgelöst. In diesem Ereignis gebe ich TDPFUIView, das auf der DetailPage lag, frei. Es sollten logischerweise eigentlich alle anderen Komponenten, die Childs von dieser View waren auch freigegeben werden. Allerdings sind diese noch im Arbeitsspeicher vorhanden und nach mehreren Aufrufen der DetailPage stürzt die App ab. Was auch verständlich ist, da der Arbeitsspeicher ausgelastet ist.
Ich verstehe leider nicht wieso diese Komponenten nicht freigegeben werden. Hatte jemand von euch schon das Problem?

[Sir Rufo]

siehe TObject.DisposeOf

[vit4l]

Hallo,

danke für die schnelle Antwort. Welches Object sollte mit DisposeOf freigegeben werden? Soll ich es Auf Parent anwenden oder einzelene Childs der Reihe nach? Wenn ich DetailPage.DisposeOf aufrufe stürzt die ganze App sofort ab.

[vit4l]

Bei DisposeOf wird ja die Prozedur Destroy aufgerufen in der Prozedur von Distroy wird dann noch mal DisposeOf aufgerufen. Das bringt vermutlich das ganze zum Absturz.

destructor TDPFUIView.Destroy;
begin
{$IFDEF IOS}
FDPFView.DisposeOf;
//FUIControl := nil;
{$ENDIF}
inherited;
end;

[Sir Rufo]

Hier gibt es einen dangling pointer.

Wenn du von aussen die FDPFView Instanz per DisposeOf entsorgst, dann sollte die TDPFUIView auch die Referenz auf FDPFView auf nil setzen.

Aber genau das macht man dort wohl nicht -> Fehler in der Umsetzung.

Ein erster Workaround könnte so aussehen (nach einem kurzen Überfliegen der Unit)

Delphi-Quellcode:

destructor TDPFUIView.Destroy;
begin
{$IFDEF IOS}
if Assigned( FDPFView ) and not FDPFView.Disposed then
  FDPFView.DisposeOf;
//FUIControl := nil;
{$ENDIF}
inherited;
end;

Eine richtige Lösung ist es nicht, da müsste man für die Instanz FDPFView eine TComponent.FreeNotification registrieren und wenn die dann kommt, die Instanz-Variable auf nil setzen.