Formular als JPEG Speichern

[xaromz]

Hallo und herzlich Willkommen !

Mit der Methode GetFormImage Deines Formulars bekommst Du ein Bitmap des Forms. Wenn Du die unit JPEG.pas einbindest, kannst Du damit ein JPEGImage erstellen. Das weist Du dem JPEG das Bitmap zu (mit Assign) und speichert das JPEG.
Etwa so:

Delphi-Quellcode:

procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
  Bitmap: TBitmap;
  JPEG: TJPEGImage;
begin
  Bitmap := Form.GetFormImage;
  JPEG := TJPEGImage.Create;
  JPEG.Assign(Bitmap);
  JPEG.SaveToFile(Path);
  JPEG.Free;
  Bitmap.Free;
end;

Aufzurufen so:
SaveJPEG(Form1, 'C:\Screenshot.jpg'); Gruß
xaromz