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