Re[2]: Создание COM объекта "руками"
От: Dimsk  
Дата: 12.11.03 07:32
Оценка:
Здравствуйте, Mr. Partizan, Вы писали:

MP>В нужном Вам методе вызываете CoCreateInstance для другого COM объекта и возвращаете ссылку на него как результат.


В этом-то и заключается вопрос: У нас имеется класс, реализующий некоторый COM-интерфейс, но при этом в IDL помеченный как noncreatable. Как в методе другого класса создать экземпляр первого класса и вернуть на него указатель как на COM объект ?

Правильно ли так?

type
TFirstCOMClass = class(TAutoObject, ICustomInterface1)
....

function TSecondCOMClass.CreateFirstCOMClass:ICustomInterface1;
var objFirstClass:TFirstCOMClass;
begin
  objFirstClass := TFirstCOMClass.Create; //корректно ли так делать ?
  Result := objFirstClass As ICustomInterface1;

//objFirstClass.Free - когда вызывать 
end;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.