TImage Speichern

[marabu]

Eher so:

Delphi-Quellcode:

uses
  JPEG;

procedure TFormMain.Button27Click(Sender: TObject);
var
  jpg: TJpegImage;
begin
  with SaveDialog do 
  begin
    // ... 
    if Execute then
    begin
      jpg := tJpegImage.Create;
      jpg.Assign(Image1.Picture.Bitmap);
      jpg.SaveToFile(FileName);
      jpg.Free;
    end;
  end;
end;

Getippt und nicht getestet.

marabu