Модератор: Модераторы
Alex2013 писал(а):application.ProcessMessages; потоки (TThread) ?
Alex2013 писал(а):вдруг я вообще чего-то элементного не учитываю ?
Я не очень понимаю в программировании, а тем более, что именно там у Вас происходит,
однако ProcessMessages в Thread - мне кажется лишним маслом, на масле.
и отказался от использования TThread
)Alex2013 писал(а): application.ProcessMessages;
Код: Выделить всё
TThreadPriority = (tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest,tpTimeCritical);
thread.Priority=tpIdle;На самом деле TThread использует ту же WinApiAlex2013 писал(а):Кстати, как я уже писал в программах для виднды потоки можно использовать не применяя класс TThread...
обращаясь к ядру системы через WinApi
Alex2013 писал(а):Там есть свои подводные камни но местами код получается даже проще чем с TThread .
При запуске программы ядро выделяет поток.. Любая программа, даже консольная "хелло ворлд" - это есть изолированный поток..Alex2013 писал(а):юбой вызов application.ProcessMessages; из MyThread.Execute; гарантированно мгновенно вызывает КРАХ программы, а иногда и крах системы с "экраном синей смерти" !
Код: Выделить всё
for i:=0 to 100000000 do
begin
sleep(1);
end
Код: Выделить всё
for i:=0 to 100000000 do
begin
sleep(1);
application.ProcessMessages;
end
olegy123 писал(а):Alex2013 писал(а): application.ProcessMessages;
Если нежелательно чтобы процесс заставлял работать процик на 100%, либо его нужно приоритетКод: Выделить всё
TThreadPriority = (tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest,tpTimeCritical);
thread.Priority=tpIdle;
либо в местах где можно подождать желательно сделать Sleep(ms);
Процесс не только нужно запусить но его нужно еще уметь останавливать.. и завершать. Иначе ошибки будут сыпаться потоком..
никто не мешает мешает в основной цикл поиска вставить флаг прекращения работы.. даже тот же Terminated.Alex2013 писал(а):Ты не понял... вся эта бодяга из за того, что я ожидаю конца процесса распознавания после команды на прекращение поиска метки .
Alex2013 писал(а):Чтобы сосновой код не "сделал свое черное дело" изменив параметры там где они уже загружены в поток на "не извлечение "
дублируй параметры в трейде. Тогда сможешь запускать одновременно с разными параметрами..
Ну вообще-то я так и делаю для основных параметров но копировать ВСЕ запаришься .Alex2013 писал(а): НО как показывает небольшая "коллекция минидампов" после "синдрома синей смерти системы" (я их годами уже не видел ! А тут "слет шинигами " прямо какой-то ! )
Так я ответил ранее..Alex2013 писал(а):Ага и как потом "Воскрешать" скоропостижно "терминированный" поток не подскажешь? Бо как я не пытался не получается !
разве, у программеров жизнь легка?Alex2013 писал(а):"Ага" номер два ...
Alex2013 писал(а):Обнаружил что чтобы программа не повисала при ожидании флага из потока нужно "отдавать тики в ручную"
Alex2013 писал(а):"Ага" номер два ... Ну вообще-то я так и делаю для основных параметров но копировать ВСЕ запаришься .
Код: Выделить всё
const
WM_SOME_MESSAGE = LM_USER + 2004;
type
TMyForm = class(TForm)
private
procedure HandleSomeMessage(var Msg: TLMessage); message WM_SOME_MESSAGE;
end;
implementation
procedure TMyForm.HandleSomeMessage(var Msg: TLMessage);
begin
if Msg.wparam = 1 then
// проверяем параметр и что-то делаем
end;
procedure TMyThread.Execute();
begin
PostMessage(MyForm.Handle, WM_SOME_MESSAGE, 1, 0);
end;
Код: Выделить всё
// Включить/выключить распознавание метки + Блок на FRR и Вращения и т.д
procedure TCO_Form.CheckBox25Change(Sender: TObject);
begin
if not CheckBox25.Checked and (SMT<>NIL) then
begin
CheckBox26.Checked:=False;
if not SMT.Suspended then
While SMT.ProcessRUN do application.ProcessMessages;
SMT.Suspend; While not SMT.Suspended do;
//(Можно и без Suspend; но зачем оставлять бесконечно крутится даже одну проверку флага ? )
end;
// пресечет списка вращения
if CheckBox27.Checked then NewRML;
// снять/поставить блокировки настроек .
Button2.Enabled:= not CheckBox25.Checked;
Button5.Enabled:= not CheckBox25.Checked;
CheckBox28.Enabled:= not CheckBox25.Checked;
CheckBox27.Enabled:= not CheckBox25.Checked;
CheckBox8. Enabled := not CheckBox25.Checked;
Edit4.Enabled:=not CheckBox25.Checked;
Edit1.Enabled:=not CheckBox25.Checked;
Edit2.Enabled:=not CheckBox25.Checked;
end;
Alex2013 писал(а):Ну и как тут событие обработать ? ВНУТРИ обработчика CheckBoxChange .... Ага !