[rodionov_uv]

Есть некий код, при выполнении которого программа зависает часа на два, пока не выполнится цикл. Знаю что можно этот цикл запихнуть в отдельный поток, а как это сделать не знаю, с потоками никогда не работал. Подскажите пожалуйста как это лучше сделать. Заранее спасибо.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TMyForm.PuskButClick(Sender: TObject); var i, j, k: Integer; s, str, sum, xOut, xOut1, StrAdr: String; x: Byte; pop: array of Byte; WritteBuffer: array[1..19] of Byte; ReadBuffer: array[1..21] of Byte; BytesWritten, BytesRead: DWORD; begin   if PortConnect = True then   if InitModem = True then   begin     for i := 1 to 4094 do     begin       .................................................................            //здесь происходит преобразование посылки в СОМ порт       .................................................................              WriteFile(Port, WritteBuffer[1], Length(WritteBuffer), BytesWritten, nil);       ReadFile(Port, ReadBuffer, SizeOf(ReadBuffer), BytesRead, nil);         .................................................................            //здесь происходит преобразование ответа из СОМ порта       .................................................................       end; end;

[Guaho]

Может просто по таймеру (компонент TTimer)? В свойстве Interval выставить нужный интервал (в мс) между срабатываниями таймера.
Чтоб сделать такое, нужно отказаться от конструкций "for" или "while" и прописать всё руками. Т.е. начальное состояние (i := 1) задаётся в основной программе, а инкремент переменной и опосля проверка на достижение предела, а также основные действия (преобразование посылки в СОМ порт и т.п.), прописывается в обработчике OnTimer. Таймер сразу не запускаете, сначала инициализируете переменные. Если надо - остановить таймер можно как из основной программы, так и в самом обработчике, при выполнении каких-либо условий.

[rodionov_uv]

А как я смогу выставить интервал, если я не знаю когда придет ответ из СОМ порта, он может придти через секунду, а может через пять.

[Guaho]

Поставить малый интервал - скажем, 50 мс, тут зависит от самой задачи, насколько критичен интервал между наступлением события и началом его обработки. Ответ из порта как-то ведь проявляет себя, т.е. программно же можно определить, что он пришёл? Если да, то ставите проверку - есть ответ? Если нет, выход (т.е. "холостой ход" кода обработки приёма ответа порта).

[lmikle]

Простой вариант: в цикл вставить вызов Application.ProcessMessages, тогда программа хоть со скрипом (в зависимости от длительности итерации цикла) будет реагировать на действия пользователя.

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

unit WrkThread;   interface   type   TMyThread = class(TThread)   private     FIsRunning : Boolean;     FParam : String; // Какие-то данные для потока   public     procedure Execute; override;     property IsRunning : Boolean read FIsRunning;     property Param : String read FParam write FParam;   end;   implementation     procedure TMyThread.Execute;   begin     FIsRunning := True;     Try        For I := 1 To 4094 Do // Твой цикл          Begin             If Terminated Then Break; // Для того, что бы можно было прервать поток             // Далее твой код           End;        Finally       FIsRunning := False;     End;   end.

А теперь вызов:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

type   TForm1 = class(TForm)   private      T : TMyThread; // В OnCreate или в конструкторе присвоить Nil                             // В деструкторе или в OnDestroy уничтожить если <> Nil   end; ... procedure TForm1.Button1Click(Sender : TObject); begin   If T = Nil Then T := TMyThread.Create(True);   If T.IsRunning Then ShowMessage('Поток уже работает!')   Else     Begin        T.Param := 'aaa'; // передали данные потоку        T.Resume; // запускаем поток        Timer1.Enabled := True; // Запускаем таймер для проверки состояния потока     End; end;   procedure Timer1Timer(Sender  : TObject); begin   If T = Nil Then Timer1.Enabled := False // Защита   Else     If Not T.IsRunning Then // Поток закончился       Begin         Timer1.Enabled := False; // выключаем таймер         FreeAndNil(T); // Удаляем поток, что бы не болтался         ShowMessage('Поток завершился');       End; end;

Это грубый пример, просто что бы показать как это все работает.

[rodionov_uv]

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

[lmikle]

Таймер хорошо, если обработка укладывается в интервал срабатывания таймера. Если нет, то могут полезть глюки, которые будет тяжело ловить, бо как они будут лезть на первый взгляд в случайный момент.
Тоже самое с Application.ProcessMessages в теле цикла. Там интервал (время выполнения одной итерации цикла) определяется человеком, т.е. для человека должно казаться, что программа работает без зависаний. Это где-то 30-50 мс на выполнение одной итерации цикла.
Во всех остальных случаях - отдельный поток или процесс.

[rodionov_uv]

Я просто в обработчике событий таймера сперва его отключаю, выполняю преобразования, посылаю в СОМ порт, получаю ответ, его преобразовываю и включаю обратно таймер. Приложение хоть как то реагирует. И даже можно остановить запросы.

[lmikle]

Угу. Особенно надо обратить внимание на слова "хоть как то реагирует".
Опять же, если прога пишется для себя, то и так сойдет. Но если придется передавать кому-то еще, то придется менять.

ЗЫ. А вообще, лучше привыкать сразу делать правильно. Лучше набить шишек на простых примерах, а в дальнейшем уже будешь знать как делать правильно... Но это мое мнение, для себя решай сам.