我有这么一个问题 我导入了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错误
该如何处理?谢谢
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错误
该如何处理?谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货