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;
当打开连接时出错,错误信息为:
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;