Как уничтожить OLE-объект ?

← →
Dok_3D © (2002-03-05 12:46) [0]

Здравствуйте,
хочу создать Ole-объект и поработать с ним
Для этого пишу -
var MyInterface : IMyInterface;
begin
MyInterface:=CreateOleObject("OleServer.ServerName") AS IMyInterface;
MyInterface.CoolAction(maza,faka);
end;

Все работает в лучшем виде, но:
на этапе выполнения мне вдруг захотелось осводить память от моего Ole-объекта,
Как мне сделать что-то вроде MyInterface.Free ?

← →
serg © (2002-03-05 12:52) [1]

MyInterface:=Unassigned;

← →
Romkin © (2002-03-05 12:56) [2]

MyInterface := nil; //это указатель
А вообще-то перед end Delphi сама все освободит

← →
Dok_3D © (2002-03-05 12:58) [3]

2Serg,
а вот ничего подобного :(((
такая штука прокатит только если
var MyInterface : Variant;

А если я так и делаю (то есть использую позднее связывание), то все равно память после моего злосчастного OLE-объекта не освобождается.

Как быть ? Я в тупике.

← →
Digitman © (2002-03-05 12:58) [4]

MyInterface := nil;

← →
Dok_3D © (2002-03-05 13:10) [5]

2Digitman
2Romkin

Хотите верьте, хотите нет...
Не помогает MyInterface := nil , сто процентов не помогает.
Делал уже так..., и еще раз только что попробовал...

Не помогает.

Значит, неправильно написан сам объект, не освобождается про refcount = 0. МОжно попробовать MyInterface._Release, но это уже чернуха - при MyInterface := nil Delphi сама эту процедуру вызывает, так что вряд ли поможет

Нет, все-таки что-то в этом коде не так. Если ты используешь переменную-интерфейс, то попробуй создавать объект прямо через CoCreateInstance, и высвобождать по nil. А если ты пользуешься CreateOleObject, то и указатель на него бери типа Variant, высвобождая по Unassigned. Так, кажется, должно сработать. А, кстати, у твоего объекта нет какого-нибудь метода типа "Quit"?

← →
Набережных С. (2002-03-05 16:02) [8]

Сервер - DLL или EXE? Написан тобой или сторонний? Если EXE, то либо он блокируется в памяти(например, вызывается LockServer), либо у него ошибка в механизме подсчета ссылок. Если DLL, то поробуй CoFreeUnusedLibraries.

Как уничтожить OLE-объект ? Найти похожие ветки