Вобщем Я создаю поток так:

Код

procedure TForm1.Button1Click(Sender: TObject); var   C: Cardinal; begin   hThrd := CreateThread(nil, 1024, @Proc, Self, 0, C); end;

Proc - это процедурина в которой происходит цикл(внутри цикла всё что угодно)
Всё то время пока исполняется процедура прога в наглую "жрёт" память,
после того как проца отроботала память не освобождается, даже
если сделать так:

Код

procedure TForm1.Button2Click(Sender: TObject); var   E: Cardinal; begin   GetExitCodeThread(hThrd, E);   TerminateThread(hThrd, E);   CloseHandle(hThrd); end;

Что нужно сделать для того чтобы прога освобождала "съеденную" память ?
Ведь если например нужно будет запускать этот поток неоднократно, то
скока-ж памяти тогда потребуется ?

О том, когда нужно освободить память, решает Винда. Возможно, она захочет подержать её какое-то время, и лишь потом освободить.

RaIDeR, а почему ты не хочешь использовать класс TThread? Там есть деструктор Destroy, каторый завершает поток и высвобождает все ресурсы, связанные с объектом TThread.
Добавлено @ 17:06
А еще своиство FreeOnTerminate

Poseidon, где можно по подробней почитать/ознакомиться с классом TThread ?

ps
Первый раз с потоками связался.

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:52

Цитата(RaIDeR @ 25.7.2005, 16:48)

Ведь если например нужно будет запускать этот поток неоднократно, то скока-ж памяти тогда потребуется ?

Вот потому-то и винда не освобождает сразу память.
Тебе нужно почитать статейку про менеджер памяти WinXP и о встроенной оптимизации.

Цитата(RaIDeR @ 25.7.2005, 22:54)

Poseidon, где можно по подробней почитать/ознакомиться с классом TThread ?

Как всегда рекомендую статью Многопоточность - как это делается в Дельфи. (Перевод статьи "Martin Harvey. Multithreading - The Delphi Way." сделанный Борисом Новгородовым)

Цитата(RaIDeR @ 25.7.2005, 17:48)

Что нужно сделать для того чтобы прога освобождала "съеденную" память ? Ведь если например нужно будет запускать этот поток неоднократно, то скока-ж памяти тогда потребуется ?

...

С памятью не все просто. Есть несколько обязательных правил:

1. Память выделяемая потоку под стек распределяется и освобождается системой. Т.е. при корректном завершении потока о ней заботиться не надо.
2. Память выделяемую явно в процедуре потока должна освобождать сама процедура потока.
3. Память выделенная под создаваемые потоком Delphi-объекты, должна освобождаться самим потоком. Т.е. Все созданные потоком объекты должны им-же и уничтожаться.
4. Хендл потока, как и все созданные им хендлы обязательно должны быть закрыты как только станут не нужными. Иначе, это тоже может приводить к "утечке" памяти. Например, см. последний фрагмент из http://forum.vingrad.ru/index.php?showtopi...ndpost&p=476565

Но, даже при их соблюдении, снаружи все может выглядеть не так пристойно как хочется . Хотя, на самом деле все будет впорядке. Это вызвано тем, что для оптимизации работы программ по скорости, и система, и сама Delphi занимается оптимизацией распределения памяти. Поэтому, иногда кажется что программа "жрет" память, хотя это и не так. А определить "жрет" или "не жрет", можно только специальными тестами, или наблюдением за длительной работой программы.
Напомню так же, что при завершении программы, почти все выделенные ей ресурсы автоматически освобождаются системой. Для коротко живущих (быстро исполняемых) программ, можно этим пользоваться , хотя это "дурной тон".

Спасибо БОЛЬШОЕ !

Цитата

Как всегда рекомендую статью Многопоточность - как это делается в Дельфи. (Перевод статьи "Martin Harvey. Multithreading - The Delphi Way." сделанный Борисом Новгородовым)

Где бы эту книгу скачать ?

Цитата(RaIDeR @ 26.7.2005, 12:22)

Где бы эту книгу скачать ?

Блин.
Ну народ совсем обленился. Просто кликнуть по ссылке уже не могут.

Петрович, сорри ... блин, сорри ещё раз Я что-то в попыхах тогда не заметил ...