| Цитата(Alexeis @ 3.11.2008, 11:07) | Так все вроде верно.
Общий принцип таков.
1й поток: "2й замри"
1й поток: "Жду пока второй замрет"
2й поток: "Получил команду замри"
2й поток: "Завершаю основной цикл действий, Готовлюсь к переходу в режим ожидания"
2й поток: "1му я замер"
2й поток: "Заблокировался"
1й поток: "Дождался пока 2й уснет, продолжаю работу" |
Немного не понял, как сказать 2му замереть и подождать, может побольше документации надо почитать 
Пока что я сделал так: добавил флаг пауза, и проверяю его в функции обработки данных, и если он установлен, то вызывается sleep().
| Код |
procedure ProcessData(var data : array of string)
begin
for i := 0 to Length( data )-1 do
begin
while pause do sleep(100);
....
tstThread.OnProcess( 'сообщение', i*100 / Length( data ) );
end;
end
|
При нажатии на кнопку "пауза" устанавливается в true этот флаг и трэду делается suspend. Правда, мне кажется, в таком случае нет смысла делать треду Suspend, т.к. и так впадаем в цикл, который ничего не делает.
| Код |
procedure btnPauseClick(Sender: TObject);
begin
if Pause then
begin
btnPause.Caption := 'Пауза';
tstThread.Resume;
end
else
begin
btnPause.Caption := 'Продолжить';
tstThread.Suspend;
end;
Pause := not Pause;
end
|
P.S. Так же такой код работает, если при установке флага Pause, не "впадать" в цикл, а просто проверить условие:
| Код |
procedure ProcessData(var data : array of string)
begin
for i := 0 to Length( data )-1 do
begin
if pause then sleep(100);
....
tstThread.OnProcess( 'сообщение', i*100 / Length( data ) );
end;
end
|
Трэд тоже suspend'иться
|
