Ayuda con Metodo de DataSnapClient
 

HOLA a todos

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

Definiendo esto..

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...

Function TServerMethods1.GetUsuario(WCodUSer:String;Var WUsuario:TUsuario):Boolean;
Begin
..
end;


y el DataSnapClient .. lo utilizo..

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..

Ayuda con Parametros de Metodo en DataSnapClient
 

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..

:D:D:D:D LO ENCONTREEEEEEE ....

simplemente tenia que usar AS

cambio la Linea..

Código Delphi [-]
      WUsuario:=SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject;

Quedando asi la Linea

Código Delphi [-]
      WUsuario:=SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject as Tusuario;

y eso es TODO...

:D:D:D:D:D estoy feliz....