怎样调用远程数据模块的Create事件

[squir]

请教高手：
我在做一个分布式程序：
服务器端：ADOConnection1 + DataSetProvider1
客户端 ：SocketConnection1 + ClientDataSet1

由于我需要动态指定服务器的IP ,所以在客户端的 ClientDataSet1 的
RemoteServer 要从配置文件中读取，而在我在手工在delphi 设置
ClientDataSet1 的 RemoteServer 时候，服务器端的数据模块还没有创建
，请问在服务器端我要怎样调用远程数据模块的Create事件啊?

[squir]

Wu~~~~~~~~~~~ Wu~~~~~~~~~~~

[snjun]

先通过SocketConnection把服务器IP等设置传到中间层存储为全局变量或写配置文件注册表
然后再开启ClientDataSet
在中间层的数据模块创建过程中先从对应变量或配置文件中读取配置再打开ADOConnection

[hiflower]

with SocketConnection do
begin
Host:=HostName;
ServerName:=MyServerName; //远程数据模块的名称
end;
with ClientDataSet do
begin
RemoteServer:=SocketConnection;
ProviderName:=DataSetProviderName;
Open; //此时，远程数据模块自动建立
end;