Delphi Datasnap-XE :How does one setup a filter pragmatically?

Question

I am using the following code to setup DataSnap Connection pragmatically

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);

QUESTION:

How do I setup a Zlib & PC1 & RSA filter pragmatically?

Answer 1

If you have a look at the dfm file you see what is going on with the magic Driver property in the Object Inspector. The selections you make are stored in TSQLConnection.Params for name Filters.

To add the filters you can do this.

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

But this will still get Connection Closed Gracefully that you have experienced here Delphi XE – Datasnap Filter problems.