我做了个客户端,和服务器端。
服务器:使用TRemoteDataModule,并在模板上放置DataSetProvider1: TDataSetProvider;,ADOConnection1: TADOConnection;,ADOQuery1: TADOQuery;,连接正常。
客户端:使用Tdatamode,模板名myData,DCOMConnection1: TDCOMConnection;,DataSource1: TDataSource;,ClientDataSet1: TClientDataSet;,属性设置连接正常。
并在客户端我写个连接性质代码如下:
//下面是一个点击连接服务器并返回数据的按钮事件代码(按钮为:[连接服务器....])
// myData数据模板名称
myData.DCOMConnection1.ComputerName :=edit1.text;//应用服务器ip
myData.DCOMConnection1.ServerName := edit2.Text;//应用服务器注册名称
myData.DCOMConnection1.Open;
myData.ClientDataSet1.Close;
myData.ClientDataSet1.Open;
------问题如下------
1、我在同一台机器上运行客户端和服务器端可以正常启动,并能在客户端显示数据。
2、当我将服务器放在别的机器上运行则提示:
“RPC服务器不可用”,这是怎么回事情?
服务器:使用TRemoteDataModule,并在模板上放置DataSetProvider1: TDataSetProvider;,ADOConnection1: TADOConnection;,ADOQuery1: TADOQuery;,连接正常。
客户端:使用Tdatamode,模板名myData,DCOMConnection1: TDCOMConnection;,DataSource1: TDataSource;,ClientDataSet1: TClientDataSet;,属性设置连接正常。
并在客户端我写个连接性质代码如下:
//下面是一个点击连接服务器并返回数据的按钮事件代码(按钮为:[连接服务器....])
// myData数据模板名称
myData.DCOMConnection1.ComputerName :=edit1.text;//应用服务器ip
myData.DCOMConnection1.ServerName := edit2.Text;//应用服务器注册名称
myData.DCOMConnection1.Open;
myData.ClientDataSet1.Close;
myData.ClientDataSet1.Open;
------问题如下------
1、我在同一台机器上运行客户端和服务器端可以正常启动,并能在客户端显示数据。
2、当我将服务器放在别的机器上运行则提示:
“RPC服务器不可用”,这是怎么回事情?
您可以使用TSocketConnection连接比TDCOMConnection方便多了。