Ayuda con Metodo de DataSnapClient

[LEVV]

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

[LEVV]

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

[LEVV]

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

simplemente tenia que usar AS

cambio la Linea..

WUsuario:=SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject;

Quedando asi la Linea

WUsuario:=SerVerMetodoGetUsuario.ParamByName('WUsuario').AsObject as Tusuario;


y eso es TODO...

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