[TolAlik]

Всем привет!
Столкнулся с проблемой при работе с потоками. Когда во время работающего потока, вызываю Terminate.
Для работы с потоками использую библиотеку OmniThreadLibrary (это библиотека для создания многопоточных приложений в Delphi).

создаю класс как наследник от TOmniWorker

Код:

TTask = class(TOmniWorker)
  public
    function Initialize: boolean; override; //здесь инициализирую нужные для работы потока объекты и переменные
    procedure Cleanup; override; //здесь их разрушаю
    procedure CountInt; //тут выполняю всякие действия
  end;

В событии OnCreate у формы создаю поток

Код:

uses
  OtlThreadPool, OtlTaskControl, OtlEventMonitor, OtlCommon, OtlComm, OtlTask
...
pablic
  Task : IOmniTaskControl;
...
Task:=CreateTask(TTask.Create(),'Task ')); //создаю поток
Task.Run;//запускаю его
Task.Invoke(@TTask.CountInt, []);//выполняю метод CountInt

В событии OnDestroy у формы завершаю работу потока

Код:

if Task <> nil then
begin
  Task.Terminate; //завершаем
  Task:=nil;
end;

Если закрыть приложение в то время как поток делает какие-то действия, то на этом намертво повисает GUI оболочка приложения, которая ждет пока Terminate получит ответа от потока (хотя в примере от библиотеки все работает замечательно). Или наоборот указать

Код:

Task.Terminate(3000);

тогда поток завершиться точно через указанный промежуток времени, но не выполнят метод Cleanup(который срабатывает при завершении работы потока), получается что объекты которые были созданы при работе потока не разрушаются.

Знающие люди, подскажите что я делаю не так, в какую сторону копать как новичку?

[Aristarh Dark]

Никогда не пользовался сторонними библиотеками для работы с потоками.
Обычно завершаю поток таким образом:

Код:

  FThread.Terminate; //установили потоку флажок говорящий о том что неплохо бы завершиться
  FThread.WaitFor;  //подождали пока поток закончит все свои действия
  FThread.Free;  //вызвали деструктор потока

естественно, что в коде потока нужно переодически проверять значение свойств Terminated.

И всегда работало на ура, я даже не знал о существовании каких-либо библиотек для работы с потоками, потому что нужды не было в этом.

[TolAlik]

Ну, вот есть такая библиотека. И тут немного по другому делается.
Сначала думал, что я неправильно останавливаю тело потока, что из-за него Task.Terminate висит, ожидая завершения действий в потоке.
Но тут что-то другое...
И фиг знает, что не так...

[NumLock]

сделай по-человечески через TThread и тебе будет проще помочь