Einzelnen Beitrag anzeigen

The Re@l

Registriert seit: 2. Jan 2003
77 Beiträge
 
#1

nach dem drehen speichern

  Alt 12. Okt 2004, 21:17
Code:
procedure TForm1.FileListBox1Click(Sender: TObject);

var
  Jpeg: TJpegImage;
  bmp: TBitmap;
begin
  Jpeg:=TJpegImage.Create;
  bmp := TBitmap.Create;

  try

    jpeg.LoadFromFile(FileListBox1.FileName);
    bmp.Assign(jpeg);
    Image1.Picture.Assign(bmp);
    Image1.Picture.Bitmap.PixelFormat := pf24bit;
    Drehen90Grad(Image1.Picture.Bitmap);

  finally
    jpeg.free;
         end;

end;
Hi Ich nochmal...

Wie kann ich das Jpg was in BMP umgewandelt wurde direkt nach dem drehen speichern...

Das speichern ist ja kein Problem aber danach lässt sich die datei nicht mehr öffnen

Wenn ihr mir nochmal helfen könntet wäre das echt super!

Gruß

TheReal
  Mit Zitat antworten Zitat