Ver Mensaje Individual
  #4  
Antiguo 24-02-2021
Albescdi Albescdi is offline
Registrado
 
Registrado: feb 2021
Posts: 4
Reputación: 0
Albescdi Va por buen camino
Ya encontré la razón del error!

En el DataSnap Server tenía la siguiente programación

Código Delphi [-]
procedure TWebModule1.DSHTTPWebDispatcher1FormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
begin
  if Pos('Data',ResultVal.ToJSON) > 0 then
  begin
    ResultVal:=(ResultVal as TJSONArray).Remove(0);
    Handled:=True;
  end;
end;

Al quitarla, todo funcionó correctamente en el DataSnap Client

Última edición por Neftali [Germán.Estévez] fecha: 25-02-2021 a las 11:41:49.
Responder Con Cita