BMP in JPG Umwandlung funktioniert nicht

[gauggi]

Ich habe ein grosses Problem. Wenn ich das Programm ausführe, wird ein runtime error erzeugt.

Hier der Code:

Delphi-Quellcode:

 var 
  Bmp: TBitmap;
  Jpg: TJpegImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJpegImage.Create;
  try
    Bmp:=form1.Image1.Picture.Bitmap;
    Jpg.CompressionQuality:=spinedit1.Value;
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(form1.SaveDialog1.FileName + '.jpg');
  finally
    Jpg.Free;
    Bmp.Free;
    end;
     Close;
  end;

Was ist da dran falsch?????

mfg Gauggi

[Bernhard Geyer]

Ganz klar. Du erzeugst ein Bitmap, weißt dem Bmp aber die Referenz eines anderen Bitmaps zu und gibst dann dieses Bitmap frei.

Dann hast Du eine Speicherlücke sund form1.Image1 steht ohne gültiges Bitmap da.

[gauggi]

Zitat von Bernhard Geyer:

Ganz klar. Du erzeugst ein Bitmap, weißt dem Bmp aber die Referenz eines anderen Bitmaps zu und gibst dann dieses Bitmap frei.

Dann hast Du eine Speicherlücke sund form1.Image1 steht ohne gültiges Bitmap da.

wie kann ich das denn anders machen???

[DGL-luke]

Delphi-Quellcode:

//bmp holen
Bmp.Assign(Image1.Picture.Bitmap);
//bmp manipulieren
...
//bmp zurückschreiben
Image1.Picture.Bitmap.Assign(bmp);
//puffer freigeben
bmp.Free;

[Hador]

Das

Delphi-Quellcode:

//bmp zurückschreiben 
Image1.Picture.Bitmap.Assign(bmp);

kannst du dir in deinem Fall sparen

[Bernhard Geyer]

Zitat von gauggi:

wie kann ich das denn anders machen???

Oder direkt mit form1.Image1.Picture.Bitmap ohne lokale Bmp-Instanz