[LEVV]

HOLA a todos

Otra vez molestandolos.. Tengo una consulta.. sobre los Parametros de los Metodos en DataSnapServer.. y el DataSnapClient..

Definiendo esto..

Código Delphi [-]
TUsuario = Class
   private
    pCodUser : String;
   PNomUser : String;
   PApePat : String;
   PApeMat : String;
  public
   property CodUser : String read pCODUSER write PCODUSER;
   property NomUser : String read pNomUser write PNomUser;
   property ApePat : String read pApePat write PApePat;
   property ApeMat : String read pApeMat write PApeMat;
   constructor Create;
   destructor Destroy; override;
end;

En el DataSnapServer Tengo Este Metodo...

Código Delphi [-]
Function TServerMethods1.GetUsuario(WCodUSer:String;Var WUsuario:TUsuario):Boolean;
  Begin
    ....  
    ....
    ....
  end;

y el DataSnapClient .. lo utilizo..

Código Delphi [-]
  Var WUsuario:TUsuario;

  WUsuario:=TUsuario.Create;


  SerVerMetodoGetUsuario.ParamByName('WCodUser').Value :=WCodUser;
  SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject:=WUsuario; 
  SerVerMetodoGetUsuario.ExecuteMethod;
  IF SerVerMetodoGetUsuario.ParamByName('ReturnParameter').AsBoolean then
    Begin
      Wusuario:=SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject; 
----> AQui es donde no me deja asignar... he probado muchas formas y nada,.. porfa.. una ayuda. .¿si?..
        de funcionar funciona.. pero no logro capturar el Resutado y asignarlo a la variable --- WUsuario...
    End;

Gracias..