[novashdima]

Наверняка уже много раз тема обсуждалась, но хочу попросить совета по правильной реализации задачи в словах и примерах кода.
Итак, программа занимается обработкой данных, это может занять продолжительное время, поэтому нужна кнопка приостановки процесса.
Во время обработки данных происходит изменение компонентов 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?).
И мне не нравится взаимодействие с потоками в процедуре анализа... в общем внимательно выслушаю предложения по приведению кода в нормальный вид и главное рабочий.

[icWasya]

во первых

Код:

procedure MyThread.Execute; 
begin  
  while not Terminated do
     Analys; 
  end; 
end;

во вторых, у Synchronize параметром должен быть метод без параметров.
В третьих - где

Код:

 CriticalSection:= TCriticalSection.Create;

?
В четвёртых - что с чем Вы пытаетесь синхронизировать с помощью этой критической секции? Если разные потоки, то для них эта секция должна быть одна, а не по секции в каждом потоке.

[novashdima]

Сообщение от icWasya

во первых

Код:

procedure MyThread.Execute; 
begin  
  while not Terminated do
     Analys; 
  end; 
end;

ок, так и сделаю

Сообщение от icWasya

во вторых, у Synchronize параметром должен быть метод без параметров.

Ок, сделал стринглист глобальным. Пытаюсь сделать вызов Synchronize(UpdateMemo); получаю E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments

Сообщение от icWasya

В третьих - где

Код:

 CriticalSection:= TCriticalSection.Create;

?

Забыл вставить сюда, есть в создании формы.

Сообщение от icWasya

В четвёртых - что с чем Вы пытаетесь синхронизировать с помощью этой критической секции? Если разные потоки, то для них эта секция должна быть одна, а не по секции в каждом потоке.

Не знаю, почему сделал именно так. Перенес в основной поток.

[poli-smen]

Сообщение от novashdima

Ок, сделал стринглист глобальным.

Параметры для "синхронизированного" метода обычно передают через поля объекта потока (который здесь MyThread).

Сообщение от novashdima

Пытаюсь сделать вызов Synchronize(UpdateMemo); получаю E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments

А параметр "Text: string" из метода UpdateMemo точно убрал?

[novashdima]

Сообщение от poli-smen

Параметры для "синхронизированного" метода обычно передают через поля объекта потока (который здесь MyThread).

Подробней пожалуйста. Имеется в виду Synchronize(MyThread.UpdateMemo) ?

Сообщение от poli-smen

А параметр "Text: string" из метода UpdateMemo точно убрал?

Точно

[Alegun]

Вероятно имелся ввиду классический вариант "своего" потока, типа как в примере из DRKB

Код:

type
TMyThread = class(TThread)
 private
  Answer: integer;
  protected
   procedure ShowResult;
   procedure Execute; override;
end;

implementation

//Процедура для вывода информации из потока
procedure TMyThread.ShowResult;
begin
 Form1.Memo.Text:= IntToStr(Answer);
 Form1.Memo.Refresh;
end;

procedure TMyThread.Execute;
var
i: Integer;
begin
for i := 1 to 10000 do
begin
   Inc(answer);

   Synchronize(ShowResult);

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyThread: TMyThread;
begin
MyThread:= TMyThread.Create(false);
end;