Delphi Datasnap-XE: Как правильно настроить фильтр? - PullRequest
Новая
       36

Delphi Datasnap-XE: Как правильно настроить фильтр?

1 голос
/ 18 февраля 2011

Я использую следующий код для прагматической настройки DataSnap Connection 

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?

1 Ответ

1 голос
/ 21 февраля 2011

Если вы посмотрите на файл dfm, вы увидите, что происходит со магическим свойством Driver в Инспекторе объектов. Выбранные вами параметры сохраняются в TSQLConnection.Params для имени Фильтры.

Чтобы добавить фильтры, вы можете сделать это. 

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

Но это все равно получит Connection Closed Gracefully, что вы испытали здесь Delphi XE - Проблемы с фильтром данных .

...