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
Vielen Dank Schaaff. Habe das gemäss deinem Vorschlag abgeändert. Nach 2-3 Tagen testen kann ich sagen das es nicht mehr aufgetreten ist daher denke ich das es das war, nun läufts. TOP
