在线程中调用远程方法的问题(30分)

  • 主题发起人 主题发起人 wangweidong_hr
  • 开始时间 开始时间
W

wangweidong_hr

Unregistered / Unconfirmed
GUEST, unregistred user!
在线程中调用了服务器中的自定义方法,使用DCOM
当打开连接时出错,错误信息为:
EOLESYSERROR WITH MESSAGE '标记没有引用存储'
代码如下:
FreeOnTerminate :=true;
rconn:=TDCOMConnection.Create (nil);
rface:=TClientDataSet.Create (nil);
rconn.ComputerName :=form1.DCOMConnection1.ComputerName ;
rconn.ServerGUID :=form1.DCOMConnection1.ServerGUID ;
rconn.ServerName :=form1.DCOMConnection1.ServerName ;
rface.RemoteServer :=rconn;
rconn.Open ;
//执行到此出错 !!!!!!!!!!!
{if rconn.AppServer.userlogin('','') then
begin
rface.ProviderName :='port';
rface.Open ;
dispstring:=(rface.appserver as test).longtime;
Synchronize (dispresult);
rface.Close ;
end;
}
rconn.Close;
rface.Free;
rconn.free;
 
用coinitialize()先
 
接受答案了.
 
后退
顶部