So?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with CaptureScreen do
try
SaveToFile('C:\\meinbild.bmp');
finally
Free;
end;
end;
Etwas sauberer wäre es allerdings, die Bitmap in der ButtonClick-Methode zu erzeugen und freizugeben. Das Bitmap-Objekt wird dann als Parameter an die Prozedur(!) CaptureScreen übergeben. Für den periodischen Vorgang (100 ms) würde es auch genügen, zu Beginn (FormCreate) einmal eine TBitmap-Instanz zu erzeugen und diese für alle Capture-Operationen zu verwenden. Am Ende (FormDestroy) kann die Bitmap wieder freigegeben werden.
Gruß Hawkeye