Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Как уничтожить 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 , сто процентов не помогает.
Делал уже так..., и еще раз только что попробовал...

Не помогает.



Romkin   (2002-03-05 15:16) [6]

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



drpass   (2002-03-05 15:57) [7]

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



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.027 c
3-66802           TwoK                  2002-02-24 12:14  2002.03.21  
Не подскажете альтернативные движки кроме BDE? Фриварные, шароварные - все равно...(-)


1-66844           Techno                2002-03-05 11:27  2002.03.21  
Настройка принтера


14-66967          McSimm                2002-02-05 11:51  2002.03.21  
Еще задачка. Почему нельзя казнить.


3-66757           Ольга                 2002-02-21 13:54  2002.03.21  
SQL


7-67030           Skyter                2001-12-18 13:32  2002.03.21  
Как получить информацию об исполняемом файле