Speichern der Canvas

[Blubbel]

Gibt es dieses SaveDialog auch fürs Speichern von JPG-Dateien?
Will das irgendwie umändern dass es als jpg gespeichert wird

[Luckie]

Der Dialog hat mit dem Dateiformat nichts zu tun. Er dient nur dazu einen Pfad und Dateinamen auszuwählen, nicht mehr und nicht weniger.

Wenn du das Bitmap als JPEG speichern willst, musst du es vorher in das JPEG Format umwandeln. Dazu solltest du genug Beispielcode hier im Forum finden.

[Blubbel]

OK, dann versuche ich es mal... dann brauch ich ja auch keine extra Funktion oder Prozedur wenn ich das einfach "ersetzen" kann sozusagen, habe ich das so richtig verstanden? also nach dem Code seh ich mich gleich mal um

PS: ja umwandeln... also doch eine extra Sache.... also ist der erste satz von diesem Beitrag mal bitte zu übersehen

[Blubbel]

Kann man das nicht einfach so machen:

Delphi-Quellcode:

procedure TForm1.btnSaveClick(Sender: TObject);
var
//  Bitmap : TBitmap;
  jpg: TJpegImage;
begin
  if SaveDialog1.Execute then
    begin
      jpg:=TJpegImage.Create;
      Try
        jpg.Width:=Image1.ClientWidth;
        jpg.Height:=Image1.ClientHeight;
        BitBlt(jpg.Canvas.Handle,0,0,jpg.Width,jpg.Height,  //jpg.Canvas.Handle geht nicht
               Image1.Canvas.Handle,0,0,SRCCOPY);
        jpg.SaveToFile(SaveDialog1.FileName + '.jpg');
      Finally
        ShowMessage('Gespeichert!');
        jpg.Free;
      end;
    end;
end;

Wobei jpg.Canvas.Handle niht funkrioniert!?

[Union]

Statt dem BitBlt mach mal einfach:
jpg.Assign(Image1.Picture.Bitmap);

[Blubbel]

Aber was pasiert mit jpg.Canvas.Handle ? Muss das ganz weg?

Habe es jetzt so

Delphi-Quellcode:

jpg.Assign(Image1.Picture.Bitmap)(jpg.Canvas.Handle,0,0,jpg.Width,jpg.Height,  //jpg.Canvas.Handle geht nicht
               Image1.Canvas.Handle,0,0,SRCCOPY);

[Union]

Sorry, ich meinte natürlich den ganzen BitBlt. Auch die beiden Zeilen mit der Größenzuweisung können weg.

[Blubbel]

Alles klärchen

[Blubbel]

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidGraphicOperation mit der Meldung 'Die Größe einer JPEG-Grafik kann nicht verändert werden' aufgetreten.

... habs auch schon verändert, dass er die Größe vom Image nimmt aber das will er genauso wenig

[Neutral General]

Mal dein Canvas auf ein Bitmap, erstelle ein JPEG, Assigne das Bitmap und speicher das JPEG.