Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.015 c
1-66879           Геральт               2002-03-05 19:41  2002.03.21  
Как можно удалить папку?


3-66799           perov                 2002-02-20 10:33  2002.03.21  
связывание таблиц


1-66836           LazyCat               2002-03-07 18:53  2002.03.21  
Шо за фигня?


4-67048           Alev                  2002-01-23 15:25  2002.03.21  
ReadProcessMemory и Write ProcessMemory.


3-66780           fidget                2002-02-19 18:56  2002.03.21  
скорость работы MySQL+ODBC+ADO