Estoy trabajando en el proyecto DataSnap en Delphi XE2 utilizando el protocolo TCP / IP que necesita pasar una secuencia de datos binarios al servidor como parámetro del método. El problema que estoy encontrando es que parece haber un límite de tamaño de aproximadamente 32 KB en el contenido de la transmisión. Más allá de este límite, el flujo recibido en el servidor está vacío. Si paso parámetros de método adicionales, llegarán intactos, por lo que parece ser un problema en el nivel de parámetro.

Aquí es cómo se declara la clase de servicio DataSnap:

  TDataSnapTestClient = class(TDSAdminClient)
  private
    FSendDataCommand: TDBXCommand;
  public
    constructor Create(ADBXConnection: TDBXConnection); overload;
    constructor Create(ADBXConnection: TDBXConnection; AInstanceOwner: Boolean); overload;
    destructor Destroy; override;
    procedure SendData(Data: TStream);
  end;

El enfoque que estoy usando debería funcionar, al menos de acuerdo con el artículo de Jim Tierney. Dicho esto, aparentemente ha habido cambios desde Delphi 2009 que han roto el código de muestra de Jim Tierney.

Parámetros de la secuencia del método del servidor DataSnap

Cualquier idea sobre cómo resolver este problema sería muy apreciada.