delphi datasnap连接MSSQL

[Gaohuming]

在窗体上直接使用控件TSQLConnection，设置属性：
DriverUnit=Data.DBXDataSnap
HostName=192.168.0.178
Port=20000
CommunicationProtocol=tcp/ip
DatasnapContext=datasnap/
DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland.Data.DbxClientDriver,Version=16.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
Filters={}
CommunicationTimeout=50000
ConnectTimeout=50000
能连接服务端。
--------------------------------
但是动态创建TSQLConnection却不能连接服务端。
代码如下：
SQLConn := TSQLConnection.Create(self);
SQLConn.ConnectionName := 'DataSnapCONNECTION';
SQLConn.DriverName := 'DataSnap';
SQLConn.LoginPrompt := False;
SQLConn.KeepConnection := True;
SQLConn.Params.Append('DriverUnit=Data.DBXDataSnap');
SQLConn.Params.Append('CommunicationProtocol=tcp/ip');
SQLConn.Params.Append('DatasnapContext=datasnap/');
SQLConn.Params.Append('DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland.Data.DbxClientDriver,Version=16.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b');
SQLConn.Params.Append('HostName=192.168.0.178');
SQLConn.Params.Append('Port=20000');
SQLConn.Params.Append('ConnectTimeout=50000');
SQLConn.Connected := True;

--------------------------------

[h2285409]

我也发现了，正在找答案中