AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TPngImage freigeben

Ein Thema von amigage · begonnen am 20. Aug 2020 · letzter Beitrag vom 20. Aug 2020
 
amigage

Registriert seit: 11. Nov 2005
Ort: Leipzig
274 Beiträge
 
Delphi 12 Athens
 
#1

TPngImage freigeben

  Alt 20. Aug 2020, 11:41
Delphi-Version: 10.4 Sydney
Hallo,

ich bin gerade dabei, die MemLeaks aus meinem Programm zu entfernen. Ein Problem habe ich hierbei:
Ich lade, je nach Bildschirmauflösung, verschieden große Grafiken über ein Funktion.

Delphi-Quellcode:
ImageMain.Picture.Graphic := StartDlg.LoadImgFromResource('Main');

function TStartDlg.LoadImgFromResource(Bezeichner: String): TPngImage;
var
  Png: TPngImage;
begin
  Result := NIL;

  Png := TPngImage.Create;
  try
   // DPI 200%
   if Screen.PixelsPerInch >= 192 then
     Png.LoadFromResourceName(HInstance, Bezeichner + '_200')
   // DPI 150%
   else if Screen.PixelsPerInch >= 144 then
     Png.LoadFromResourceName(HInstance, Bezeichner + '_150')
   // DPI 100%
   else
     Png.LoadFromResourceName(HInstance, Bezeichner + '_100');

    Result := Png;
  finally
// Png.Free; // kann ich hier nicht freigeben
  end;
end;
Beim Beenden wird mir ein TPngImage und TPngImageList Memory Leak ausgegeben. Wie kann ich das am Ende freigeben? Muss ich die Grafik dem TImage anders übergeben, damit ich das TPngImage in der Funktion freigeben kann?

Danke, für einen Hinweis.

Geändert von amigage (20. Aug 2020 um 11:43 Uhr) Grund: Falsche Angabe der Delphi Version
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:06 Uhr.
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-2025 by Thomas Breitkreuz