Delphi Datasnap-XE：如何实用地设置过滤器？

Question

我正在使用以下代码来实用地设置 DataSnap 连接

procedure TConnectThreed.Execute;
var
    DataSnapCon : TSQLConnection;
    proxy       : TSystemRDMClient;
begin
  proxy       := nil;
  DataSnapCon := nil;
  try
    DataSnapCon := TSQLConnection.Create(nil);
    DataSnapCon.Connected := False;
    DataSnapCon.DriverName := 'DATASNAP';
    DataSnapCon.LoginPrompt := False;
    DataSnapCon.Params.Values['port'] :=  '211';
    DataSnapCon.Params.Values['HostName'] :=  DevicesAddr;
    // 
    // What code must be added here to setup a Zlib + PC1 +RSA Filter ?
    // 
    try
      DataSnapCon.Open;
      proxy := TSystemRDMClient.Create(DataSnapCon.DBXConnection);

问题：

如何设置 Zlib 和 Zlib？ PC1& RSA 过滤实用吗？

Answer 1

如果您查看 dfm 文件，您会看到对象检查器中神奇的 Driver 属性发生了什么。您所做的选择存储在名称过滤器的 TSQLConnection.Params 中。

要添加过滤器，您可以这样做。

DataSnapCon.Params.Values['Filters'] :=
  '{"ZLibCompression":{"CompressMoreThan":"1024"},'+
   '"PC1":{"Key":"LiveStrongLance!"}}';

但这仍然会得到您在这里经历过的连接优雅地关闭Delphi XE – Datasnap 过滤器问题。