nach dem drehen speichern

[The Re@l]

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

[SirThornberry]

wie speicherst du die Datei und wie öffnest du sie? Du versuchst nicht zufällig mit TJPEGImage die Datei zu öffnen die du vorher mit TBitmap gespeichert hast?

[The Re@l]

ohh ich glaube schon

Wie bekomme ich denn die TbitMap wieder in eine Tjpeg bevor ich speichere?

[SirThornberry]

wenn du mit
bmp.Assign(jpeg); das jpg zu bmp convertierst dann sollte doch
jpeg.Assign(bmp); Das Gegenteil bewirken

[The Re@l]

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);

  finally
    jpeg.free;
         end;

end;



procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);

begin
  
  Drehen90Grad(Image1.Picture.Bitmap);
   Jpeg.Assign(bmp);
    Image1.Picture.Assign(jpeg);
     Image1.Picture.SaveToFile(FileListBox1.FileName);

end;

hmm so bekomme ich eine Privilegierte Anweisung... was auch immer das ist.

[The Re@l]

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);

  finally
    jpeg.free;
         end;

end;



procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);

begin
  
  Drehen90Grad(Image1.Picture.Bitmap);
   Jpeg.Assign(bmp);
    Image1.Picture.Assign(jpeg);
     Image1.Picture.SaveToFile(FileListBox1.FileName);

end;

hmm so bekomme ich eine Privilegierte Anweisung... was auch immer das ist.

[Muetze1]

Moin!

Delphi-Quellcode:

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);

  finally
    bmp.Free;
    jpeg.free;
  end;
end;



procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  Jpeg: TJpegImage;
begin
  Jpeg:=TJpegImage.Create;

  Try 
    Drehen90Grad(Image1.Picture.Bitmap);
    Jpeg.Assign(Image1.Picture.Bitmap);

    Jpeg.SaveToFile(FileListBox1.FileName);
  Finally
    Jpeg.Free;
  End;
end;

MfG
Muetze1

[The Re@l]

Danke
und auch ein danke für das BMP.FREE
hatte ich übersehen und hab mich schon gewundert das mein rechner so lahm wurde nach ein paar mal bilder drehen