Datasnap Conexion

[maurogambo]

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