Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Pointer auf Bitmap (https://www.delphipraxis.net/192169-pointer-auf-bitmap.html)

EWeiss 25. Mär 2017 04:33

Pointer auf Bitmap
 
Muss doch noch mal nachfragen auch wenn ihr mich für blöd haltet.

Ich erstelle ein HBitmap

Gut gebe ich frei mit DeleteObject(myHBitmap)
Wenn ich aber einen Pointer auf ein Bitmap zurück bekomme muss ich diesen auch frei geben?

Delphi-Quellcode:
GDIP_CreateBitmapFromHBITMAP(Bitmap, 0, pBitmap);


Reicht hier ein
Delphi-Quellcode:
pBitmap := Nil;


Oder ist das nicht von nöten.

gruss

jaenicke 25. Mär 2017 04:40

AW: Pointer auf Bitmap
 
Dafür gibt es in der API GdipDisposeImage:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

EWeiss 25. Mär 2017 04:49

AW: Pointer auf Bitmap
 
Zitat:

Zitat von jaenicke (Beitrag 1365529)
Dafür gibt es in der API GdipDisposeImage:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Aber das ist doch kein Image sondern nur ein Pointer darauf. Oder?
Deshalb frage ich ja.


Das die API GdipDisposeImage für GDI+ Images zuständig ist weis ich ja.

OK du hast recht kann man auch mit GdipDisposeImage löschen der pointer ist dann Nil.
Hat mich jetzt etwas stutzig gemacht Pointer/Cardinal... aber gut. Danke.
Delphi-Quellcode:
GDIP_DisposeImage(Cardinal(pBitmap));


EDIT:
Hmmm geht nicht
Wenn ich den Pointer lösche dann funktioniert das zugewiesene Image nicht mehr.

Delphi-Quellcode:
  GDIP_CreateBitmapFromHBITMAP(Bitmap, 0, pBitmap);
  gp.PngImage := Cardinal(pBitmap);

  DeleteObject(Bitmap);
  GDIP_DisposeImage(Cardinal(pBitmap));
Dann wird dieser wohl später durch
Delphi-Quellcode:
GDIP_DisposeImage(gp.PngImage);


gelöscht.



gruss

jaenicke 25. Mär 2017 06:35

AW: Pointer auf Bitmap
 
Zitat:

Zitat von EWeiss (Beitrag 1365530)
Hmmm geht nicht
Wenn ich den Pointer lösche dann funktioniert das zugewiesene Image nicht mehr.

Stell dir GDIP_CreateBitmapFromHBITMAP einfach als a := TBitmap.Create vor und GDIP_DisposeImage als a.Free.
Wenn du (siehe Doku) die Bitmap-Ressourcen hinter dem Pointer mit GDIP_DisposeImage löschst, ist da natürlich nichts mehr verfügbar.

EWeiss 25. Mär 2017 06:40

AW: Pointer auf Bitmap
 
Zitat:

Zitat von jaenicke (Beitrag 1365531)
Zitat:

Zitat von EWeiss (Beitrag 1365530)
Hmmm geht nicht
Wenn ich den Pointer lösche dann funktioniert das zugewiesene Image nicht mehr.

Stell dir GDIP_CreateBitmapFromHBITMAP einfach als a := TBitmap.Create vor und GDIP_DisposeImage als a.Free.
Wenn du (siehe Doku) die Bitmap-Ressourcen hinter dem Pointer mit GDIP_DisposeImage löschst, ist da natürlich nichts mehr verfügbar.

Yep.. Danke.
Hat sich erledigt.

War ein Denkfehler von mir.
Ich lösche es jetzt bevor ich ein neues lade.
Hatte plötzlich 300 MB im Speicher und musste schaun woher das kam. LOL :wall:

gruss


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:59 Uhr.

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