Как проверить дескриптор (указатель) на правильность?

[TwiX]

Есть массив потоков, у которых стоит FreeOnTerminate, а при закрытии формы у всех этих потоков вызывается Terminate. Т.о. иногда при закрытии формы вылезает ошибка "Неверный десриптор". Как этого избежать? Это возникает из-за того, что некоторые потоки уже "освободились")

[maxionans]

У потока есть событие OnTerminate, возникающее, когда поток заканчивает свою работу. Назначьте на него свой обработчик, в котором ищите в массиве поток, вызвавший это событие, и обнуляйте ссылку на него. А уже при закрытии формы, перед вызовом Terminate, проверяйте обнулена ли ссылка.

[TwiX]

Спасибо) Я думал она обнуляется когда поток уничтожается)
А terminate вызывается всегда по окончанию Execute?

[TwiX]

А как проверить обнулена ли ссылка?
Пробовал так:

if not thrds[i]=nil then

Ругается:

[DCC Error] frm***.pas(56): E2015 Operator not applicable to this operand type

[psycho-coder]

У потоков есть свойство Terminated
В справке напиши
"TThread,Terminated"

[TwiX]

Я с начала его и хотел использовать, но почему-то не нашёл... Есть только метод Terminate...

[psycho-coder]

property Terminated: Boolean;

procedure TMyClientThread.Execute;

var
  TheStream: TWinSocketStream;
  buffer: string;
begin
  { create a TWinSocketStream for reading and writing }
  TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);
  try
    { fetch and process commands until the connection or thread is terminated }
    while (not Terminated) and (ClientSocket1.Active) do
    begin
      try
        GetNextRequest(buffer); { GetNextRequest must be a thread-safe method }

        { write the request to the server }
        TheStream.Write(buffer, Length(buffer) + 1);
        { continue the communication (eg read a response from the server) }
        ...
      except
        if not(ExceptObject is EAbort) then
          Synchronize(HandleThreadException); { you must write HandleThreadException }
      end;
    end;
  finally
   TheStream.Free;
  end;
end;

[TwiX]

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

[psycho-coder]

Хм... Да, не подумал....
Может по хендлу?

if Thread1.Handle <> nil then <Что-то>

[BOBAH13]

Точно не понял проблемы. Вам известно что существуют технологии синхронизации потоков в Windows ?
Как пример, создаете для каждого потока либо Mutex, либо Event (сохраняя их в массив). Ну или просто запоминайте каждый поток созданные (а именно его handle). По завершении главного потока (закрытие главного окна и т.п.) вызывайте WaitForMultipleObjects указывая при этом, либо массив Mutex, Events, Handles и т.п.. т.е. главный поток не завершиться пока не завершатся все дочерние. Само собой, вызвать каждому потоку Terminate (если в главном цикле потока проверяется его свойство ну или свой аналог.), короче говоря сообщить дочернему потоку что ему стоит завершаться.