Eu estou trabalhando no projeto DataSnap no Delphi XE2 usando o protocolo TCP / IP que precisa passar um fluxo de dados binários para o servidor como um parâmetro de método. O problema que estou encontrando é que parece haver um limite de tamanho de cerca de 32 KB no conteúdo do fluxo. Além desse limite, o fluxo recebido no servidor está vazio. Se eu passar parâmetros de método adicionais eles chegam intactos, então parece ser um problema no nível do parâmetro.

Aqui está como a classe de serviço DataSnap é declarada:

  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;

A abordagem que estou usando deve funcionar, pelo menos de acordo com o artigo de Jim Tierney. Dito isto, aparentemente houve mudanças desde o Delphi 2009 que quebraram o código de amostra de Jim Tierney.

Parâmetros do fluxo do método DataSnap Server

Qualquer idéia sobre como resolver esse problema seria muito apreciada.