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

[stlcrash]

Огромное спасибо. Проблема решена. Оказывается память переполнялась, только если тыкать на кнопку "получить данные". Вынес ее в таймер, чтоб выводило данные не в сообщении, а в лейбл. И все стало прекрасно работать.

[Slym]

не надо никаких таймеров, это вредно
ключевой момент Synchronize яндекс на эту тему раскрыто раскажет

procedure TMonDirThread.Execute;
begin
  while not Terminated do
  begin
    checkall;
    Synchronize(Update);
    inc(n);
    sleep(100);
  end;
end;

[stlcrash]

Сделал через Синхрониз. Ничего не изменилось. Так же съедает память, при чем достаточно быстро.

[Slym]

Судя по диспетчеру задач утечка объектов GDI...
2 объекта за цикл...

проблема яндексу известна https://yandex.ru/search/?text=delph...A%D0%B5&lr=213
Даже в таком простом примере хавает объекты... особенно когда мышкой шевелить

unit uMonThread;

interface

uses
  Windows, Messages, SysUtils, Classes,Graphics;

type
  TMonDirThread = class(TThread)
  private
  public
  protected
    procedure Execute; override;
    procedure UpdateCaption;
  end;

implementation
uses unit1;


function Check(const Name:string;Gray:byte;W,H,X,Y:integer):boolean;
var
  ScreenBmp:TBitmap;
  DesktopDC: HDC;
begin
  ScreenBmp:=TBitmap.Create;
  try
    ScreenBmp.Height := H;
    ScreenBmp.Width := W;
    DesktopDC := GetDC(0);
    try
      BitBlt(ScreenBmp.Canvas.Handle, 0,0,W,H,DesktopDC,X,Y,SRCCOPY);
    finally
      ReleaseDC(0, DesktopDC);
    end;
  finally
    ScreenBmp.free;
  end;
end;

procedure TMonDirThread.Execute;
begin
  while not Terminated do
  begin
    check('ls',160,70,13,15,644);;
    Synchronize(UpdateCaption);
  end;
end;

procedure TMonDirThread.UpdateCaption;
begin
  form1.Memo1.Lines.text:='0';
end;


end.

[stlcrash]

Ага. Ну потом как время появится, переделаю. чтоб скринил из основной процедуры, обрабатывал в потоке. Либ делать скрины не так часто, а пилить полный скрин экрана на нужного размера кусочки.

[Slym]

Вынес скриншот в основной поток...

[stlcrash]

Теперь всегда выдает results[...] False. Даже если должно быть true. Все равно false

[Slym]

Для тестов нужен скриншот твоего экрана с гарантированным true любого параметра... в лузлес формате т.е. bmp но пожатый 7zipом

[stlcrash]

Искажение времени, тотем скорость и перевоплощение должны быть True

[Slym]

затестил твой скриншот:
если его грузить LoadFromFile (вместо скрининга) то все нормально детектит...
изучаю дальше