Здравствуйте Аноним, Вы писали:


А>умирает потому что у тебя уничтожается ссылка (Delphi во wrappere автоматически делает Release)
А>имхо лучше не пользоваться всякими врапперами а создавать объект
А>так как предписано в COM API: через CoCreateInstance
А> CoInitialize(nil);
А> OleCheck(CoCreateInstance(CLSID_MyClass, nil,
А> CLSCTX_INPROC_SERVER, IUnknown, pUnk));
А> OleCheck(pUnk.QueryInterface(IMyClassInterface,pObj));
А> pObj.MyFunctionCall(x,y,z);

Увы не помогает
Переменная COM-объекта глобальная
и вызовы интерфейса осуществляются из разных процедур
а COM-объект все равно мрет по выходу из процедуры
может все из-за делегирования реализации

TChildCom = class(TComObject,IChildCom)
FMyForm : TForm1;
private
protected
public
destructor Destroy; override;
procedure Initialize; override;
!!! property MyForm : TForm1 read FMyForm implements IChildCom;
procedure ShowTest;
end;