Screenshots erstellen. Canvas not allow to draw / Out of system resources

[klaus schaaff]

Hallo Robert,

schuld ist wahrscheinlich die Garbage Collection (Aufräumarbeiten des Arbeitsspeichers im System). Niemand kann sagen, wann diese exakt erfolgt.

In Deinem Fall bei procedure CaptureScreen wird bei jedem Duchlauf ein neues TBitmap erzeugt und irgendwann wieder vom System freigegeben. Es genügt nur mit einem TBitmap zu arbeiten. Das kann eine globale Variable sein oder oder eine Variable von TForm. Diese sollte nur einmal in Form.OnCreate -> aBitmap:= TBitmap.Create erzeugt werden und in Form.OnDestroy -> aBitmap.Free freigegeben werden. In procedure CaptureScreen wird nur noch aBitmap.Width und aBitmap.Height gesetzt mit

if aBitmap.With <> Breit then begin
aBitmap.With:= Breit;
end;
if aBitmap.Height <> Hoch then begin
aBitmap.Height:= Hoch;
end;

Ein TBitmap.Canvas.Lock verhindert eher anstehende Aufräumarbeiten.

Teste mal das, indem Du nur mit einem Bitmap arbeitest und nur procedure CaptureScreen verwendest ohne Maus Capture!


Liebe Grüße
Klaus Schaaff