Hilfe! Speicherauslastung steigt ins unermessliche!

[cruso]

Hi!

Ich habe ja einen "Wallpaperwechser" geschrieben (oder bin noch dabei), der auch JPG's unterstützt indem er sie vorher in BMP's umwandelt. Wenn ich nun BMP's als Hintergrund setzen will, dann passiert nichts ungewöhnliches (wird ja auch nicht umgewandelt); wenn ich allerdings JPG's benutze (und als Hintergrund verwende), dann steigt die Speicherauslastung rapide.
Wie kann ich diesen riesigen Anstieg verhindern? Oder ist es möglich irgendwie alles nach dem vollendeten Wechsel aus dem RAM zu löschen?


MfG
Cruso

[inherited]

Ich hoffe du vergisst nicht die Bitmaps/JPGs wieder freizugeben?
Bitmap.free o.ä

[SirThornberry]

wann man wüsste wie du die jpeg's wandelst wäre das sehr hilfreich um zu wissen was du falsch machst. Alles andere ist nur ein Raten.

[cruso]

So sieht das ganze für den Dateityp "*.jpg" aus (Beispiel):

Delphi-Quellcode:

var LoadingFile:String; MyJPEG:TJPEGImage; MyBMP:TBitmap;
begin
  LoadingFile:=ListBox1.Items.Strings[ListBox1.ItemIndex];
  if extractfileext(LoadingFile)='.jpg' then begin
  MyJPEG:=TJPEGImage.Create;
  With MyJPEG Do Begin
  LoadFromFile(LoadingFile);
  MyBMP := TBitmap.Create;
  With MyBMP Do Begin
  Width := MyJPEG.Width;
  Height := MyJPEG.Height;
  Canvas.Draw(0,0,MyJPEG);
  SaveToFile(GAD+'DCWallpaper.bmp');
  Free;
  end;
  end;
  if not SystemParametersInfo(SPI_SETDESKWALLPAPER,
  0,
  PChar(GAD+'DCWallpaper.bmp'),
  SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
  RaiseLastOSError;
  end;

Was müsste ich da wie verbessern?

[SirThornberry]

du gibst "MyJPEG" nirgends frei!
Im übrigen würde ich dir empfehlen den quelltext ordentlich einzurücken (bei dem "begin" der procedure/function/methode machst du das ja auch). Das macht es dann auch bedeutend leichter einen Fehler zu finden (denn dann würde man sofort sehen wozu das "free" gehört (also zu welchem with-block))

[inherited]

Dito, hab grad gesehen du warst schneller^^

[cruso]

Ok Danke Leute jetzt funzt's richtig (mit normalen Werten)!
Danke!

[jensw_2000]

Schön wäre es, wenn du auch noch die Resourcen-Schutzblöcke nachträgst.
Sonst möhlst du den Speicher immer noch zu, wenn LoadFromFile oder SaveToFile aus irgendwelchen Gründen fehlschlagen.

Delphi-Quellcode:

var LoadingFile:String; MyJPEG:TJPEGImage; MyBMP:TBitmap; 
begin 
  LoadingFile:=ListBox1.Items.Strings[ListBox1.ItemIndex]; 
  if extractfileext(LoadingFile)='.jpg' then 
  begin 
    MyJPEG:=TJPEGImage.Create; 
    try
      With MyJPEG Do 
      Begin 
      LoadFromFile(LoadingFile); 
      MyBMP := TBitmap.Create; 
      try
        With MyBMP Do 
        Begin 
          Width := MyJPEG.Width; 
          Height := MyJPEG.Height; 
          Canvas.Draw(0,0,MyJPEG); 
          SaveToFile(GAD+'DCWallpaper.bmp'); 
        end;
      finally
        MyBMP.Free;
      end; 
    finally
      MyJPEG.Free;
    end;
  end; 

  if not SystemParametersInfo ( SPI_SETDESKWALLPAPER, 
                                0, 
                                PChar(GAD+'DCWallpaper.bmp'), 
                                SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE
                              ) then 
     RaiseLastOSError; 

end;

Schöne Grüße,
Jens
:hi: