Как корректно копировать область экрана?

[DimychX]

Вроде все было просто:

function CaptureScreen:tBitMap;
var ScreenDC: HDC;
begin
  Result:=tBitMap.Create;
  with Result, Rect do begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, 
      Top, SRCCOPY );
    ReleaseDC( 0, ScreenDC );
  end;
end;

Rect - глобальная переменная (значения записываются отдельно)
Получаю объект типа tBitMap, работаю с его Canvas, потом грохаю (Free)
Но после нескольких десятков таких манипуляций в программе идут глюки: похоже загаживается память.

[TwiX]

В функции не видно, как ты его "грохаешь".
Там и ищи

И объекты должны начинаться с большой T -.-
Иначе выглядит как структура винды (особенно после долго времени изучения msdn :D)

[DimychX]

Так там все просто:

var BM : tBitMap;
begin
  GetRect(Num); // По номеру области формируется Rect
  BM:=CaptureScreen;
  Analyse(BM.Canvas); // Анализируются пиксели из канвы
  BM.Free;
end;

Вот собственно и все

[TwiX]

...
Аналайз? Там не предлагать поискать?

[DimychX]

В этот метод передается только свойство Canvas и используется лишь его массив Pixels и только по чтению. Явно, что проблема не в этом.

[Аватар]

Сообщение от DimychX

В этот метод передается только свойство Canvas и используется лишь его массив Pixels и только по чтению. Явно, что проблема не в этом.

И что? Ни какой явности нет. И GetRect тоже не обсуждается? И не факт, что в других местах все Ok.

[DimychX]

Спасибо, mr. TwiX и Аватар!

Действительно, все проблемы были внутри процедуры Analyse и они не были связаны с созданием и удалением tBitMap.

Самые тупые ошибки труднее вего искать: для отладки писал в глобальный массив, постоянно увеличивая счетчик. Потом забыл этот кусок грохнуть. Ну, и...

Всем спасибо. Проблема решена.