Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

CoInitialize + CoUninitialize   Найти похожие ветки 

 
hexone ©   (2004-04-26 15:19) [0]

Добрый день.
Объясните мне, плиз, баг сие али нет.
* Консольное приложение вариант 1
var
test : ITest = nil;
begin
 test := CreateCOMObject(CLASS_TEST) as ITest;
end;

Вылетает с Exception - не был вызван CoInitialize - замечательно
* Тоже самое вариант 2
var
test : ITest = nil;
begin
CoInitialize;
 test := CreateCOMObject(CLASS_TEST) as ITest;
CoUninitialize;
end;

Вылетает с Access Violation

Если в конце не писать CoUninitialize исключения нет.
Вопрос, почему?

P.S. Елманова, Трепалин "Delphi 6 технология COM" цитата:
"...Если вы в своей программе используете модуль ComObj, то инициализация COM для основного потока осуществляется этим модулем автоматически при старте приложения."
Врут! Деинициализация - да, но инициализация как минимум в Application.Initialize, которая вызывает InitComObj из ComObj.


 
clickmaker ©   (2004-04-26 15:25) [1]


> hexone ©   (26.04.04 15:19)  

А смысл: создать ком-объект и тут же CoUnitialize ? Ну если уж на то пошло:
CoInitialize;
try
test := CreateCOMObject(CLASS_TEST) as ITest;
if (test <> nil) then
  test := nil;
finally
 CoUninitialize;
end;


 
hexone ©   (2004-04-26 15:27) [2]

Exception выдает CoUnitialize, код я привел для примера.


 
clickmaker ©   (2004-04-26 15:49) [3]

Хм... Не заметил сразу, убери присвоение nil в объявлении test. Во-первых, незачем - он и так nil, а потом - это безграмотно, поскольку присвоение nil интерфейсному указателю в обжект паскале означает освобождение интерфейса


 
hexone ©   (2004-04-26 16:15) [4]


> Хм... Не заметил сразу, убери присвоение nil в объявлении
> test. Во-первых, незачем - он и так nil, а потом - это безграмотно,
> поскольку присвоение nil интерфейсному указателю в обжект
> паскале означает освобождение интерфейса

Присвоение nil глобальной переменной избавляет от бага по НЕУНИЧТОЖЕНИЮ объекта интерфейса заданного как глобальная переменная. Да и вообщем нет разницы. Если я в конце напишу test:=nil или в начале в объявлении. Причем с test:=nil также не работает.

> а потом - это безграмотно, поскольку присвоение nil интерфейсному
> указателю в обжект паскале означает освобождение интерфейса
Вот уж нет. Оно означает вызов Release, но не факт, что освобождение объекта.


 
clickmaker ©   (2004-04-26 16:21) [5]


> hexone ©   (26.04.04 16:15) [4]
> Присвоение nil глобальной переменной избавляет от бага по
> НЕУНИЧТОЖЕНИЮ объекта интерфейса заданного как глобальная
> переменная

Это как, интересно? У тебя оно приводит как раз таки к AV. Не веришь - убери да посмотри


 
hexone ©   (2004-04-26 16:28) [6]

var
punk : IInterface;
m    : IMyClass ;

begin
Coinitialize(nil);
punk := CreateCOMObject(CLASS_COMYCLASS);
 punk.QueryInterface(IID_MY,m);
m.test;
 punk := nil;
m := nil;
CoUninitialize;
end.

Убрал, посмотрел, ничего не изменилось


 
clickmaker ©   (2004-04-26 16:45) [7]


> hexone ©   (26.04.04 16:28) [6]

У меня такой код (с другими интерфейсам, ессессно) работает без AV


 
hexone ©   (2004-04-26 17:31) [8]

Да, действительно, с другими некоторыми работает.



Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
1-1106521601
ninja
2005-01-24 02:06
2005.02.06
прокрутка StringGrid


1-1106366410
Александр1
2005-01-22 07:00
2005.02.06
wcrypt2.dcu


1-1106410715
sardox
2005-01-22 19:18
2005.02.06
Тулбар...


4-1103012818
ПЛОВ
2004-12-14 11:26
2005.02.06
CreateProcessWithLogonW


3-1104753098
alexXn
2005-01-03 14:51
2005.02.06
Данные из системных таблиц Oracle