delphi - 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 & PC1 & RSA 过滤器？

Answer 1

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

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

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

但这仍然会得到Connection Closed Gracefully您在这里遇到的Delphi XE – Datasnap Filter 问题。