| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как "безусловно" уничтожить поток? [D7, WinXP]

Aleksandr. ©   (2004-06-17 14:23:00) 

Есть потомок от TObjectList, управляющий потоками. Каждый поток обращается к "закрепленной" за ним таблице Парадокса. При этом есть одна проблема - если в БДЕ при работе какого-то из потоков произошел сбой, то при попытке уничтожить поток и создать новый намертво умирает сам менеджер потоков. Код:


// этот метод должен убить сбойный поток и запустить новый
procedure TTblThreadManager.ResetTable(IDT: word);
var
 A : TThreadTable;
begin
FResetCS.Enter;
try
 try
   A:=Tables[IDT];
   if Assigned(A) then begin
     try
       if A.Suspended then
         A.Resume;
       A.Terminate
     finally
       FTables.Delete(FTables.IndexOf(A));
       A:=TThreadTable.Create(IDT);
       A.Resume
     end
   end
 except
   on E:Exception do
     LogDBError(IDT,'ResetTable: '+E.Message)
 end
finally
  FResetCS.Leave
end
end;

// а это дестрактор табличного потока

destructor TThreadTable.Destroy;
begin
 StoreCashedData;
 FreeAndNil(FQueryList);
 FreeAndNil(FQueryCS);
 FreeAndNil(FUpdateList);
 FreeAndNil(FUpdateCS);
 FreeAndNil(FPXUpdator);
 inherited
end;


Сбой БДЕ случается в объекте FPXUpdator, занимающимся конвертацией таблицы с MS SQL Server в Paradox, но он при трассировке в дестракторе уничтожается благополучно, а вот на строке Inherited трассировка заканчивается и менеджер потоков больше на запросы не реагирует (даже не выходя в finally). Попытка расстрассировать Inherited успеха не имеет - там какие-то экспорты в модуле Windows начинаются. Что может вызывать такой сокрушительный сбой или хотя бы как можно удалить поток без такого вывеса?

---

Петров Денис   (2004-06-18 13:17:00) [1]

> default ©   (17.06.04 14:34) [1]

Чтобы вызывать TerminateThread, нужны ОЧЕНЬ веские основания. Все, что рассказывает автор темы, на это явно не тянет.

> Aleksandr.   (17.06.04 14:23)

Речь, насколько понимаю, идет о некоем конверторе данных из одного формата в другой. Сама по себе фраза "этот метод должен убить сбойный поток и запустить новый" вызывает массу вопросов типа "нафига?"

Уж не пытаешься ли ты обрабатывать каждую таблицу в отдельном потоке? Если да, то представь, что таблиц, например, 100. Открой диспечер задач, и посмотри, у какого из процессов число потоков хотя бы приближено к сотне? Если это попытка достичь быстродействия, то она, мягко говоря, неудачна.

Почему бы не определить причину возникновения загадочной ошибки BDE?

---

Aleksandr.   (2004-06-18 11:58:00) [2]

Спасибо! А что ему в параметр ExitCode загонять?

---

TUser   (2004-06-17 16:07:00) [3]

Да. Он прибьет поток (виндовский). А объект потом, наверное, надо будет уничтожить самому.

---

default   (2004-06-17 14:34:00) [4]

TerminateThread по-моему

---

Наверх