Поток полностью занимет всю оперативную память.

[stlcrash]

Не могу никак разобраться. Сам поток работает, но постепенно забивает всю память. Вроде все что создаю в потоке, освобождаю. Поток вызываю из основной формы так:

procedure TForm1.StartPotockClick(Sender: TObject);
begin
  MonDirThread:=TMonDirThread.Create(False);
  MonDirThread.Priority:=tpNormal;
  MonDirThread.FreeOnTerminate:=true;
end;

Код юнита потока в сообщение не помещается. Ломаю голову уже 2 сутки, ничего не выходит
Помогите пожалуйста решить данную проблему.

[stlcrash]

Подключил к проекту FastMM.
пишет что не освобождаю битмап. НО я его освобождаю после каждого вызова tBitmap.create;
Пробовал менять

HelloChekerBMP2.FreeImage;
HelloChekerBMP2.Free;
HelloChekerBMP2.Destroy;

HelloChekerBMP1.FreeImage;
HelloChekerBMP1.Free;
HelloChekerBMP1.Destroy;

Результат ТОТ же. все равно утечка происходит в потоке. Пробовал даже комбинировать и сразу использовать .Free;и .FreeImage; Безрузальтатно.

--------------------------------2016/5/13 9:53:11--------------------------------
Блок памяти был выделен и не освобожден. Размер: 68

This block was allocated by thread 0xDA8, and the stack trace (return addresses) at the time was:
406C5E 
407BFF 
40840A 
5087F6 [Unknown function at TMethodImplementationIntercept]
76A618 [Unknown function at TMethodImplementationIntercept]
76A852 [Unknown function at TMethodImplementationIntercept]
4C3390 [Unknown function at TMethodImplementationIntercept]
409A02 
76D3336A [BaseThreadInitThunk]
77AC9882 [Unknown function at RtlInitializeExceptionChain]
77AC9855 [Unknown function at RtlInitializeExceptionChain]

Блок в настоящее время используется для объекта класса: TBitmap

Выделенный номер стал: 117564

Текущий дамп памяти из 256 байт начиная с адреса 7EC02E60:
D8 F7 4F 00 00 00 00 00 70 E7 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 54 DF 4F 00 20 AB C0 7E 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00
00 00 00 00 51 BA A7 26 00 00 00 00 51 30 C0 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
19 D0 01 00 5E 6C 40 00 FF 7B 40 00 0A 84 40 00 F6 87 50 00 A7 88 76 00 68 73 70 00 BF 37 66 00
2D 8B 76 00 47 1C 70 00 9F 90 76 00 37 92 76 00 0C 11 00 00 0C 11 00 00 7A 6C 40 00 1D 7C 40 00
55 84 40 00 90 88 50 00 9F 7D 40 00 D5 10 43 00 F5 8B 76 00 9F 90 76 00 37 92 76 00 EC 8D 76 00
56 0C 48 75 44 00 00 00 D8 F7 4F 00 6F D8 FC FB 94 C2 79 00 80 80 80 80 80 80 80 80 80 80 80 80
80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80
Ш  ч  O  .  .  .  .  .  p  з  H  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  .  .  .  T  Я  O  .     «  А  ~  .  .  .  .  .  .  .  .  .  .  .     .  .  .  .  .  .  .  .
.  .  .  .  Q  є  §  &  .  .  .  .  Q  0  А  ~  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
.  Р  .  .  ^  l  @  .  я  {  @  .  .  „  @  .  ц  ‡  P  .  §  €  v  .  h  s  p  .  ї  7  f  .
-  ‹  v  .  G  .  p  .  џ  ђ  v  .  7  ’  v  .  .  .  .  .  .  .  .  .  z  l  @  .  .  |  @  .
U  „  @  .  ђ  €  P  .  џ  }  @  .  Х  .  C  .  х  ‹  v  .  џ  ђ  v  .  7  ’  v  .  м  Ќ  v  .
V  .  H  u  D  .  .  .  Ш  ч  O  .  o  Ш  ь  ы  ”  В  y  .  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ
Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ  Ђ

[Pavia]

  HelloChekerBMP1.free; HelloChekerBMP2.free;
  HelloChekerBMP1:=TBitmap.Create; HelloChekerBMP2:=TBitmap.Create; // лишняя строчка
end;

procedure TMonDirThread.Execute;
begin

[stlcrash]

Удалил строку, не помогло. память все равно наполняется непонятно чем.
Если при остановке потока не освобождается. Может есть какая нить процедура, чтоб остановить поток и очистить все ресурсы, которые он занимал? И потом его снова перезапускать

PS прикрепил исходники главной формы.

[stlcrash]

Проблема все еще актуальна. Прошелся отладчиком уже не один десяток раз, все равно не понимаю чем поток заполняет память.

[Smitt&Wesson]

НО я его освобождаю после каждого вызова tBitmap.create;

Это не очистка, а создание нового потока. Очистка - tBitmap.clear();

[stlcrash]

Сообщение от Smitt&Wesson

Это не очистка, а создание нового потока. Очистка - tBitmap.clear();

tBitmap.clear(); ругается, нет такого метода пишет.
tBitmap.free; есть, но он не помогает

[Slym]

Вот не лень столько повторяющегося кода кодить?

мой пример с небольшими оптимизациями...

дан задел на обработку параметров в цикле

[stlcrash]

Огромное спасибо за пример. Действительно чувствуется разница в уровне программирования

Однако в коде ошибка 1 в одном месте pf24bit в другом pf8bit ругается.
2) как память загружалась непонятно чем, так и загружается дальше.
(Для теста убираю с кода паузу.

procedure TMonDirThread.Execute;
begin
  while not Terminated do
  begin
    checkall;
    inc(n);
    // seep(100);
  end;
end;

[Slym]

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

Однако в коде ошибка 1 в одном месте pf24bit в другом pf8bit ругается.
2) как память загружалась непонятно чем, так и загружается дальше.

1. Не проверял pf8bit... Точно ошибка... с чего бы? ладно... вернул 24 битный код
2. на этом проекте у меня не растет память... может ты в другой проект вставляешь?

кстати не вредно будет проверять

function CompareIMG(bmp1, bmp2: TBitMap): boolean;
var
  i,y, x, yy, xx, err: integer;
  IMG1,IMG2: TIMGData;
begin
    assert(bmp1.Height>=bmp2.Height);
  assert(bmp1.Width>=bmp2.Width);

т.к. 1 картинка должна быть больше либо равна искомому семплу