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