我有这么一个问题 我导入了TLB文件,其中有这么两个接口。
IApp = interface(IDispatch)
   function GetSes: IDispatch; safecall;
ISessions = interface(IDispatch)
  function Item(index: OleVariant): IDispatch; safecall;
ISession = interface(IDispatch)
 procedure GetH(out H: Smallint); safecall;
VC++.net中这样写
 this->sessions = this->tem->GetSes();
        Int32 __gc* intsession = 0;
        Int32 __gc* sessioname = sessionn;
        try
        {
            intsession = (sessioname - 1);
        }
        catch (Object __gc* obj1)
        {
            intsession = 0;
        }
        try
        {
            this->session = this->sessions->Item(intsession);
        }
我DELPHI中
   sess :=  ISessions(app.GetSessions);
   ShowMessage('Get Sessions');
   ses:=ISession(sess.Item(0)); //这里出错,报oleaut32.dll错误
该如何处理?谢谢