Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi erzeugts IImage Löschen? (https://www.delphipraxis.net/89914-erzeugts-iimage-loeschen.html)

smart 9. Apr 2007 10:42

Re: erzeugts IImage Löschen?
 
Zitat:

Zitat von xaromz
Das kann nicht funktionieren. Nachdem die Routine fertig ist, geht es ja zurück in den Code von TImage. Leider existiert das TImage aber jetzt nicht mehr. Also krachts.

Ja, Du hast Recht, dass hatte ich nicht bedacht. Wie würdest Du das lösen?

Gruß
Heike

mkinzler 9. Apr 2007 10:54

Re: erzeugts IImage Löschen?
 
Du könntest das Image im .onClick nur markieren bzw deren Index wegschreiben und dann aüßerhalb des Images freigeben.

marabu 9. Apr 2007 11:01

Re: erzeugts IImage Löschen?
 
Hallo,

die Freigabe einer visuellen Komponente im OnClick() ist für sich genommen kein Problem. Vielleicht liegt der Fehler an einer anderen Stelle?

Freundliche Grüße

xaromz 9. Apr 2007 12:10

Re: erzeugts IImage Löschen?
 
Hallo,

Zitat:

Zitat von marabu
die Freigabe einer visuellen Komponente im OnClick() ist für sich genommen kein Problem.

Grundsätzlich nicht. Aber schau mal, was passiert, wenn die Komponente in ihrem OnClick freigegeben wird:
Delphi-Quellcode:
procedure TControl.Click; (vereinfacht)
begin
  if Assigned(FOnClick) then
    FOnClick(Self); // OnClick aufrufen, Self wird freigegeben
  // Jetzt sind wir hier, in einem nicht mehr existirenden Objekt. Irgendwie blöd, oder?

end; // Zurück nach TControl.WMLButtonUp -> Upps, AV!
Gruß
xaromz

marabu 9. Apr 2007 13:01

Re: erzeugts IImage Löschen?
 
Hallo Martin,

es wird nichts passieren, solange kein Zugriff auf Daten des freigegebenen Objektes erfolgt. Ziehe TImage-Komponenten auf eine Form und verwende diesen gemeinsamen event handler:

Delphi-Quellcode:
procedure TDemoForm.ImageClick(Sender: TObject);
begin
  with Sender as TComponent do
    Free;
end;
Es funktioniert, aber Borland (D7 VCL) warnt pauschal vor einer solchen Vorgehensweise.

Um auch einmal dieses wundervolle Wort zu verwenden: Grundsätzlich würde ich es ganz anders machen. Ich habe schon mit der von Markus erwähnten Vormerkung gearbeitet und im Event OnIdle() die Komponenten freigegeben, aber besser noch gefällt mir der Ansatz über eine eigene application message (PostMessage) und einen speziellen message handler.

Freundliche Grüße

xaromz 9. Apr 2007 13:31

Re: erzeugts IImage Löschen?
 
Hallo,
Zitat:

Zitat von marabu
es wird nichts passieren, solange kein Zugriff auf Daten des freigegebenen Objektes erfolgt.

Du hast Recht, solange Du keine weiteren Speicheroperationen durchführst. Die VCL greift dann nämlich immer auf Daten zu. Aber sie greift auf den bereits freigegebenen, aber immer noch mit den richtigen Werten gefüllten Speicher zu.

Versuche mal folgendes:
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
var
  P: Pointer;
begin
  P := Pointer(Sender);
  TControl(Sender).Free;

  FillChar(P^, 4, 0); // Objektspeicher überschreiben
end;
Das ist jetzt zwar konstruiert, aber wenn zufälllig ein neues Objekt erzeugt wird, das den Speicher des zerstörten verwendet (moderne Speichermanager machen sowas gerne), dann hast Du ein Problem.

Zitat:

Zitat von marabu
... aber besser noch gefällt mir der Ansatz über eine eigene application message (PostMessage) und einen speziellen message handler.

Genau so mache ich das auch immer. Ist meiner Ansicht nach das einzig saubere.

Gruß
xaromz

smart 9. Apr 2007 14:08

Re: erzeugts IImage Löschen?
 
Hi xaromz!

Zitat:

Zitat von xaromz
..Genau so mache ich das auch immer. Ist meiner Ansicht nach das einzig saubere.

So habe ich das noch nicht gemacht. Kannst Du mir bitte einmal einen Ansatz geben?

Gruß
Heike

Hawkeye219 9. Apr 2007 14:15

Re: erzeugts IImage Löschen?
 
Hallo Heike,

in diesem Beitrag findest du alles, was du benötigst. Dort wird zwar ein Button entfernt, aber das Prinzp ist das gleiche.

Gruß Hawkeye

smart 9. Apr 2007 14:32

Re: erzeugts IImage Löschen?
 
Zitat:

Zitat von Hawkeye219
Hallo Heike,

in diesem Beitrag findest du alles, was du benötigst. Dort wird zwar ein Button entfernt, aber das Prinzp ist das gleiche.

Gruß Hawkeye

Danke, für den Hinweis!
Klappt wunderbar und vorallen ohne Fehler ;-)

Gruß
Heike


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz