Освобождение памяти

[JUDAS]

Автор, лови.
Дисптечер задач показывает отваливание кусков памяти у proect1.exe при гибели очередного потока

[vipok72]

Сообщение от JUDAS

Автор, лови.
Дисптечер задач показывает отваливание кусков памяти у proect1.exe при гибели очередного потока

destructor TMyThread.Destroy;
begin
  if Assigned(FStream) then FStream.Free;
  FStream := nil;
  SendMessage(FExtWND, $0700, FIndex, 1);  // 1- зануление. потока уже нет
  inherited;
end;

Я так понял в этом месте идет очистка
Но кроме FStream.Free я ничего не понял, но это не работает с переменной типа String например, а в строчке где
threads[message.WParam]:= nil;
я так понял идет освобождение памяти занятой включая и потоков?

[JUDAS]

деструктор для удаление говна созданного в конструкторе.
Он вызывается при окончании работы потока или при сбое.
Перед тем, как поток закончит свой жизненный путь, я отсылаю сообщение в главную форму и зануляю его "ячейку" в массиве. Когда подохнут все потоки, можно занулить и весь массив.
Кроме того, в любой момент, можно в цикле вызвать метод Terminate для потока что приведёт к скоропостижной и одновременной гибели каждого из них с освобождением памяти

добавил к примочке кнопку на которой скоропостижное уничтожение всех неотработанных

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
  for i:= 0 to Length(threads)-1 do
  if Assigned(threads[i]) then
   threads[i].Terminate;
end;

[vipok72]

Сообщение от JUDAS

деструктор для удаление говна созданного в конструкторе.
Он вызывается при окончании работы потока или при сбое.
Перед тем, как поток закончит свой жизненный путь, я отсылаю сообщение в главную форму и зануляю его "ячейку" в массиве. Когда подохнут все потоки, можно занулить и весь массив.
Кроме того, в любой момент, можно в цикле вызвать метод Terminate для потока что приведёт к скоропостижной и одновременной гибели каждого из них с освобождением памяти

добавил к примочке кнопку на которой скоропостижное уничтожение всех неотработанных

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
  for i:= 0 to Length(threads)-1 do
  if Assigned(threads[i]) then
   threads[i].Terminate;
end;

Т.е. для типа String будет достаточно или нет?

Peremennaya:=nil;

Как очистить то я так и не понял

[JUDAS]

Т.е. для типа String будет достаточно или нет?

в отличии от сишников мы паскалевцы не занимаемся анонизмом с буферами, байтами и строками. Тип string живёт в пределах той функции в которой он объявлен.
То есть если

function getvalue(....):....;
var str : string;
begin
  str := 'd;fka;fk;gfsdkg;sd';
end;

a := getvalue(b);
<< вот тут пеоеменной str уже нет в природе

другое дело с массивами. Если он статический всё нормально, если динамический
вот такой value : array of ТИП;
то в деструкторе (или по окончанию работы с ним) нужно делать
Finalize(переменная)

[vipok72]

Сообщение от JUDAS

в отличии от сишников мы паскалевцы не занимаемся анонизмом с буферами, байтами и строками. Тип string живёт в пределах той функции в которой он объявлен.
То есть если

function getvalue(....):....;
var str : string;
begin
  str := 'd;fka;fk;gfsdkg;sd';
end;

a := getvalue(b);
<< вот тут пеоеменной str уже нет в природе

другое дело с массивами. Если он статический всё нормально, если динамический
вот такой value : array of ТИП;
то в деструкторе (или по окончанию работы с ним) нужно делать
Finalize(переменная)

Я так понял Finalize и FreeMem это то что мне надо для очистки перменных типа: string, integer, float.
А как же насчет еще парочки:
ICefStringMultimap, ICefPostData, ICefRequest и ICefFrame?
Как их можно наверняка почистить?
Короче все переменные из threadvar засунул в Finalize, память занимаемая так и продолжает увеличиваться
в вашем примере кода переменная объявлена внутри самой функции а не в начале после type, threadvar нельзя объявлять в потоке вроде как

[Аватар]

Зачем вообще огород городить комбинируя threadvar и ttread? Спокойно можно не использовать threadvar, не в этом месте обосновано её применение

[vipok72]

Сообщение от Аватар

Зачем вообще огород городить комбинируя threadvar и ttread? Спокойно можно не использовать threadvar, не в этом месте обосновано её применение

В моем случае легче всего делать это, поверьте

[JUDAS]

Сообщение от vipok72

threadvar нельзя объявлять в потоке вроде как

а зачем?

ICefStringMultimap, ICefPostData, ICefRequest и ICefFrame?

вот с этого бы мусора и начинал тему.
Интерфейсы это единственный объект который программист не может принудительно освободить никогда, даже в однонитевом приложении/
мусор порождённый от IDispatch посредством OLE технологии удаляется через метод Release (_Release). В некоторых случаях, нужно вызывать встроенные конструкторы. Например на объекты MS Office нужно сначала вызывать Quit а потом занулять переменную без Release.
Короче, порождение от IDispatch это геморой 70-го уровня после которого может случится вот это

[vipok72]

Сообщение от JUDAS

а зачем?


вот с этого бы мусора и начинал тему.
Интерфейсы это единственный объект который программист не может принудительно освободить никогда, даже в однонитевом приложении/
мусор порождённый от IDispatch посредством OLE технологии удаляется через метод Release (_Release). В некоторых случаях, нужно вызывать встроенные конструкторы. Например на объекты MS Office нужно сначала вызывать Quit а потом занулять переменную без Release.
Короче, порождение от IDispatch это геморой 70-го уровня после которого может случится вот это

Кажется я справился со своей проблемой благодаря вам, дело в том что я в threadvar создавал переменную:

	IdHTTP1:TIdHTTP;

Достаточно было лишь в finally для потока прописать IdHTTP1.Free как память стала нормально освобождаться, спасибо вам!