Поток приостанавливается на 1-2 сек

[stlcrash]

Если создаю поток по таймеру, каждые 50мс, то хоть как то работает.
Но если создаю бесконечный поток while do begin sleep(50); chekTp; end; А не таймером, то он постоянно приостанавливается. Хотя у него приоритет выше среднего. Вопрос как поправить, чтоб данный поток промерял цвет пикселя каждые 50мс и не приостанавливался переодически на 1 - 2 сек.

var
  MyThread: TMyThread;

.....

private
  procedure ChekTP();

.....

    TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure ChekTp;
  end;


//поток 1
procedure TMyThread.ChekTp;begin Form1.ChekTP; end;
procedure TMyThread.Execute; begin Synchronize(ChekTp); end;

//запускаем поток
procedure TForm1.TPHOMETimer(Sender: TObject);
begin
  MyThread:=TMyThread.Create(false);
  MyThread.Priority:= tpHigher; //tpNormal;//
  MyThread.FreeOnTerminate:=true;
end;

procedure TForm1.ChekTP;
var
  DC: HDC;
  ColorValue: Cardinal;
  s:string;
  nextStep,addLinesFind:boolean;
  i:integer;
begin
ChekTPColvo.Value:=ChekTPColvo.Value+1;
nextStep:=true;
addLinesFind:=true;
DC := GetDC( 0 );
if TPCheckBox.Checked then
      begin
      ColorValue := GetPixel( DC, TPX,TPY  );
      //тп домой если мало ХП
      s:=intToStr(GetRValue( ColorValue ));
      s:=s+'.'+intToStr(GetGValue( ColorValue ));
      s:=s+'.'+intToStr(GetBValue( ColorValue ));
      if s=TPColor then
        begin
          nextStep:=false;
          tpWar;
       end else if not MouseUnBlock.Checked then MouseUnBlock.Checked:=true;
      end;
      //модуль подбора вещей
     if nextStep then begin
        ColorValue := GetPixel( DC,MonsterFoxusX,MonsterFoxusY  );
        s:=intToStr(GetRValue( ColorValue ));
        s:=s+'.'+intToStr(GetGValue( ColorValue ));
        s:=s+'.'+intToStr(GetBValue( ColorValue ));
        if s=MonsterFoxusColor then
          begin
           if not FocysMonster.Checked then FocysMonster.Checked:=true;
          end else
          begin
            if FocysMonster.Checked then
            begin
              if Epress.Checked then Task.Lines.Add('поднять');
              FocysMonster.Checked:=false;
              MonsterColvo.Caption:=IntToStr(StrToInt(MonsterColvo.Caption)+1);
              for i:=0 to Task.Lines.Count-1 do
              begin
                if Task.Lines[i]='поиск монстров' then addLinesFind:=false;
              end;
              if (Boting.Checked) and (addLinesFind) then Task.Lines.Add('поиск монстров');
            end;
          end;
	    end;
  ReleaseDC( 0, DC );
end;

[FaTaL]

Винда сама регулирует приоритет потоков. Так что если ей будет нужно, то хоть какой приоритет не ставь своему потоку, винда всё равно сделает по своему.

[min@y™]

кто тебя надоумил такую хрень написать?
тут же нет никакой многопоточности!

тебе надо сделать простой поток, генерирующий синхронное событие каждые N мс, и всё! хотя, чем тебя таймер не устраивает?

[stlcrash]

Не устраивает тем, что таймер во время сравнения изображений ничего не делает и тупо висит по 1-2 сек.

[min@y™]

Не устраивает тем, что таймер во время сравнения изображений ничего не делает и тупо висит по 1-2 сек.

Как звучит задание в оригинале?

[eoln]

Да, это не только отсутствие многопоточности, но и много другое

Synchronize(ChekTp); - это убивает всю параллельность, синхронизировать весь поток абсолютно бессмысленно

TMyThread.ChekTp;begin Form1.ChekTP; end; - это делать очень опасно, нельзя обращаться к компонентам без синхронизации. Эм... хотя нет, всё нормально, ведь весь поток синхронизирован с главным потоком

Приоритет потоков в данном случае не работает хотя бы из-за того, что всё выполняется в главном потоке. Короче, приоритеты вообще ни к месту

Синхронизировали-синхронизировали, да пересинхронизировали

[stlcrash]

Сообщение от min@y™

Как звучит задание в оригинале?

Задача звучит так:
Необходимо раз в 0.05 секунд проверять цвет пикселя. Если он изменится, выполнять заданную процедуру и останавливать все остальные процедуры которые в это время происходят.

[min@y™]

del

50 мс отмерять с какой точностью надо?
Можно вообще отказаться от таких интервалов и в побочном потоке мониторить условие через WaitForSingleObject()...

Откуда тред должен каждые 50 мс считывать значение цвета пикселя? Это важно знать. Если это какой-то канвас, который меняется в основном потоке, то его надо будет лочить 20 раз в секунду или использовать критическую секцию, для синхронизации. Фигня получится.

[stlcrash]

Точность не критична вообще. главное чтоб небыло "пауз" в секунду. Цвет пикселя берется с экрана(из игры) с полоски жизней.

[stlcrash]

Точность не критична. Даже если будет разброс в 50-100мс. Главное чтоб пауз небыло в секунду. Цвет пикселя берется с экрана из игры. (полоска жизней)