Наверняка уже много раз тема обсуждалась, но хочу попросить совета по правильной реализации задачи в словах и примерах кода.
Итак, программа занимается обработкой данных, это может занять продолжительное время, поэтому нужна кнопка приостановки процесса.
Во время обработки данных происходит изменение компонентов Gauge и Memo.
Открыв проект в новой версии студии получаю ошибку при компилировании, последняя ли это версия проекта и было ли что-то после нормальной сборки непонятно (давно занимался проектом).
Итак, вопросы по реализации:
при остановке процесса поток приостанавливать с возможностью продолжения или полной остановки, в первом случае вызываем resume, во втором Terminate?
в данный момент компилятор ругается на функцию синхронизации.
Напишите пример взаимодействия, описания и выполнения действий, у меня пока так реализовано:
Код:
type
MyThread = class(TThread)
protected
CriticalSection: TCriticalSection;
procedure UpdateMemo(Text: string);
procedure UpdateGauge(Position: Integer);
procedure Execute; override;
procedure Analys;
end;
var
AnalysThread: MyThread;
procedure TForm1.FormCreate(Sender: TObject);
begin
try
AnalysThread := MyThread.Create(True);
AnalysThread.FreeOnTerminate := False;
AnalysThread.Priority := tpLower;
//.....
end;
procedure TForm1.StartProcessClick(Sender: TObject);
begin
AnalysThread.Resume;
//.....
end;
procedure TForm1.StopProcessClick(Sender: TObject);
begin
AnalysThread.Terminate;
//....
end;
procedure MyThread.Analys;
begin
try
if AnalysThread.Terminated then Exit;
CriticalSection.Enter;
//....
Synchronize(UpdateMemo(StringList.Text));
//....
finally
CriticalSection.Leave;
end;
end;
procedure MyThread.Execute;
begin
inherited;
if not AnalysThread.Terminated then
AnalysThread.Synchronize(Analys);
end;
procedure MyThread.UpdateGauge(Position: Integer);
begin
Form1.Gauge.Progress := Position;
end;
procedure MyThread.UpdateMemo(Text: string);
begin
Form1.Memo.Text := Text;
Form1.Memo.Refresh;
end;
Для начала имхо надо вместо двух кнопок для начала/остановки обработки сделать одну и проверять состояние потока (Suspend/Terminate?).
И мне не нравится взаимодействие с потоками в процедуре анализа... в общем внимательно выслушаю предложения по приведению кода в нормальный вид и главное рабочий.