Потоки. Закрываются все потоки при ошибке в одном.

[Son]

Здравствуйте. Я создаю несколько однотипных потоков для чтения устройств по COM портам с помощью процедуры BeginThread.
Вот примерный вид функции потока:

procedure ThreadModbusRead(Param : pointer);
var MB : TModbus;
begin
  MD:=TModbus.Create;
  WriteLog('Запущен');
  if not MB.Connect then
  begin
    WriteLog('Ошибка подключения');
    EndThread(0);
  end;
  while flExit do
  begin
    MB.ReadHoldinRegister
  end;
  WriteLog('Остановлен');
end;

Если один поток, то все ОК. Если пускаю 2 потока и они работают, то тоже ОК. Но если один из потоков не может подключиться, то вроде останавливаются оба потока. Возможно я не так выхожу из потока и функция выходит во всех потоках?

[Stilet]

вроде останавливаются оба потока

Ну так они же к одному и тому же устройству, может потому что само устройство молчит, потому и все потоки не могут работать?

[Son]

устройства разные. если к одному подключился, а к другому нет, то оба потока останавливается

[Slym]

procedure ThreadModbusRead(Param : pointer);
var MB : TModbus;
begin
  try
    MD:=TModbus.Create;
    try
      WriteLog('Запущен');
      if not MB.Connect then
      begin
        WriteLog('Ошибка подключения');
        Abort;
      end;
      while flExit do
      begin
        MB.ReadHoldinRegister
      end;
      WriteLog('Остановлен');
    finally
      MD.Free;
    end;
  except
    on e:exception do
      WriteLog(e.message);
  end;
  EndThread(0);
end;

[Son]

Про исключения я не подумал. Спасибо. Попробую применить у себя. А процедура Abort что делает?

[Slym]

Abort - "мягкое" исключение прерывающее работу процедуры
а ты вызывал EndThread(0) и продолжал работу while flExit do

[Son]

Попробовал, но к сожалению та же ерунда. Вот код:

procedure ModbusRead(Parameter : Pointer);
var MB : TModbus;
    idDev : integer;
    fExit : boolean;
begin
  //
  try
    SynchCS.Enter;
    idDev:=integer(Parameter);
    Form1.RichEdit1.Lines.Add(inttostr(idDev)+' Старт.');
    SynchCS.Leave;
    try
      SynchCS.Enter;
      MB := TModbus.Create;
      if not MB.Connect(Get_COMPortNumber(arDevice[idDev].PortName),
                        Get_COMBaudRate(arDevice[idDev].BaudRate),
                        Get_COMParity(arDevice[idDev].Parity),
                        Get_COMDataBits(arDevice[idDev].DataBits),
                        Get_COMStopBits(arDevice[idDev].StopBits)) then
      begin
        Form1.RichEdit1.Lines.Add(inttostr(idDev)+' Ошибка подключения.');
        Form1.tbDevice.Cells[2,idDev+1]:='Ошибка';
        Abort;
      end;
      Form1.tbDevice.Cells[2,idDev+1]:='Запущен';
      SynchCS.Leave;
      fExit:=false;
      while not fExit do
      begin
        sleep(500);
        SynchCS.Enter;
        fExit:=blFlag_Exit;
        SynchCS.Leave;
      end;
      
    finally
      MB.Free;
    end;
    Form1.tbDevice.Cells[2,idDev+1]:='Остановлен';
  except
    on e:exception do
    begin
      SynchCS.Enter;
      Form1.RichEdit1.Lines.Add(inttostr(idDev)+' '+e.Message);
      Form1.tbDevice.Cells[2,idDev+1]:='Ошибка';
      SynchCS.Leave;
    end;
  end;
  EndThread(0);
end;

В сообщениях остается такой лог:

0 Старт.
1 Старт.
0 Ошибка подключения.
0 Operation aborted

[Slym]

Нельзя из потока лезть на форму, и всякие SynchCS не заменят встроенного Synchronize!

[Alex11223]

Критические секции для другого нужны. Например, когда несколько потоков используют какой-то общий ресурс. Тогда они все должны входить в одну и ту же CS при обращениях к нему. А с формой так не получится. Используйте наследника TThread и Synchronize.

[Son]

Хотел уйти от стандартных реализаций потоков в Delphi, поскольку слышал об их глючности. Пока сделал один поток с опросов всех устройств.