TImage Speichern

[TeronG]

Gibt es das Image1 (sammt Inhalt) schon?

dann sollte das nach "if SaveDialog.Execute then" funtzen

Delphi-Quellcode:

uses
  jpeg,
...

var
  JPGBild : TJPEGImage;
...

  with JPGBild do begin
    JPGBild := TJPEGImage.Create;  //JPG erstellen
    Assign(Image1.Picture);  //JPG die Bilddaten vom Image übergeben
    SaveToFile(SaveDialog.FileName);  // Speichern mit dem Filename vom SaveDialog
    Free;  // freigeben ...
  end;

EDIT: ??? Keine rote box?