Как правильно освобождать память из-под COM/ActiveX?

← →
BaSergey (2002-12-23 18:05) [0]

Ситуация такая: работаю с ADO в Delphi3 через Import type library...
Мне надо вызвать 201 раз одну хранимую процедуру - обычная ADO-шная команда, возвращает Recordset с результатами:
Cmd:= CoCommand.Create;
Cmd.ActiveConnection:= MyConn;
Cmd.CommandText:= "my_SP";
Cmd.CommandType:= adCmsStoredProc
Cmd.Parameters.Refresh;
for i:=0 to 200 do
begin
Cmd.Parameters["CoolParam"].Value:= i;
RS:= Cmd.Execute(...);
Process(RS.Fields["CoolReturn"].Value);
RS.Close;
end;

В общем, типа того... И в процессе выполнения в Task Manager видно, что память выделяется, но не освобождается! .

Чего ему надо? Кто знает - как правильно освобождать память из-под COM/ActiveX?

← →
asmith (2002-12-23 18:29) [1]

Нужно освободить все интерфейсные ссылки, в данном случае
Cmd := nil;

Делфи сам проследить за ссылками; обнулять их не обязательно - при уничтожении интерфейсной переменной будет вызван Release. Конечно, если эта переменная живет долго, то можно ее обнулить, форсирую вызов Release. Однако:

1) Уничтожение СОМ объекта не гарантирует выгрузку библиотеки в которой он живет. Для форсирования этого дела надо либо вызвать CoUninitialize(что нежелательно - функциями СОМ нельзя будет пользоваться; Делфи вызывает эту API сам секции финализации), либо вызывать CoFreeUnusedLibraries.
2) Освобождаемая менеджером памяти процесса память возращается менеджеру памяти, а не системе. То есть со стороны системы может выглядеть так, как будто память и не освободилась. У длл, естессвенно, свой менеджер памяти.

Как правильно освобождать память из-под COM/ActiveX? Найти похожие ветки