Ver Mensaje Individual
  #2  
Antiguo 22-08-2013
maurogambo maurogambo is offline
Registrado
 
Registrado: jul 2004
Posts: 6
Reputación: 0
maurogambo Va por buen camino
Datasnap server

Hola,

He desarrollados aplicaciones Datasnap con Delphi XE. Desconozco las novedades de este servicio en XE2.
Para autenticar a un usuario que intente establecer una conexión con el servidor debes implementar del lado del Servidor Datasnap el evento "OnUserAuthenticate" del componente "TDSAuthenticationManager" (Asimismo enlazarlos con TDSTCPServerTransport).

Por ejemplo:

Código Delphi [-]
procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate(
  Sender: TObject; const Protocol, Context, User, Password: string;
  var valid: Boolean; UserRoles: TStrings);
begin
  if User = 'admin' then
  begin
    UserRoles.Add('admins');
    valid := True;                           //<---- Se valida la conexión
  end
  else
    valid := false;                          //<----- Se rechaza la conexión del cliente.
end;

Echa un ojo a este artículo (en inglés): edn.embarcadero.com/article/41267
Responder Con Cita