Добрый день.

У меня есть приложение на Delphi, в котором создается поток

BEGIN
Hndl:=CreateThread(nil,0,@DispThreadFunc,nil,0,ThID);
if Hndl=0 then showmessage('No thread');
END


В функции DispThreadFunc происходят различные действия, обращения к БД и пр..


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

Однако оно валится с ошибкой Out of memory. No thread. при достижении в диспетчере задач в поле memory определенного значения(уходит на это часов 5-6, может и меньше), - обычно порядка 160 с лишним мб.

Поле memory копится при этом и при достижении значения все валится....


Подскажите пожалуйста куда копать в данном случае, memory так и должен увеличиваться в диспетчере? Это нормально?
Я проверял все действия в функции, - везде память высвобождается, к примеру при обращении к БД и пр.
Есть ли способ с помощью потоков высвобождать память из потока либо другой способ реализации данной задачи?


RAM при этом не перегружен.

_Vasilisk_,

Добавил вот таким образом

IsMultiThread := True;
Hndl:=CreateThread(nil,0,@DispThreadFunc,nil,0,ThID);

if Hndl=0 then showmessage('No thread');

Память в диспетчере растет также

_Vasilisk_,

наверное подожду понаблюдаю выпадет ошибка или нет, растет она но уже вроде не так стремительно....

А какой альтернативный вариант можно использовать для этих целей вместо этой потоковой api функции?

Данное решение прекрасно работало на windows xp, windows 7, там конечно возникали иногда такие же ошибки, но очень редко, а тут windows server 2012 64 разрядная.
Хотя компилирую я на 32-х разрядной предварительно, может из-за этого...

Попробую скомпилить на 64 разрядной и поищу альтернативное решение для реализации потока