Ver Mensaje Individual
  #1  
Antiguo 16-06-2014
doctorhd doctorhd is offline
Miembro
NULL
 
Registrado: abr 2013
Posts: 48
Reputación: 0
doctorhd Va por buen camino
Devolver DataSetProveider

Hola estimados, estoy construyendo una aplicación datasnap y tengo implementadas algunas funciones de servidor que devuelven como resultado un datasetproveider para que este sea rescatado por la aplicación cliente, el problema es que al momento de ejecutarlo la aplicación servidora genera una excepcion que indica que no son soportados retornos de datos de tipo puntero. Creo entender que este tipo de llamadas no soporta la devolución de datos complejos como lo son objetos o conjuntos de datos. Me gustaría me aclararan si es correcto lo que indico o es solo un error en la forma de devolver el objeto. Aquí va el código:
Código Delphi [-]
unit UsuarioMetodosUnit;

interface

  uses Datasnap.Provider, DataSnap.DSProviderDataModuleAdapter,
       System.Classes, ClassUsuarioDataFirebirdUnit;//Capa de datos Firebird

  type
    {$MethodInfo ON}
    TUsuario = class(TComponent)

    private { Private declarations }

    public { Public declarations }
      function SeleccionaUserByCodigo(ACodUsuario:String):TDataSetProvider;
    end;
    {$MethodInfo OFF}

implementation

Uses DeclaracionesGlobalesUnit;

  function TUsuario.SeleccionaUserByCodigo(ACodUsuario:String):TDataSetProvider;
  var FUsuario:TUsuarioDataFB;
  begin
    if vParamProveedorData.ProveedorData = tcFirebird then begin
       FUsuario:=TUsuarioDataFB.Create;
       result:=FUsuario.fbSeleccionaUsuario(ACodUsuario)
    end;
    //tcProgress:
    //tcMySql:
  end;
end.

Saludos...
Responder Con Cita