Speicher freigeben...

[Hawkeye219]

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