Форум: "Основная";
Текущий архив: 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c