saber quien esta conectado a mi programa delphi

[ecfisa]

Hola.

Otra opción es valerte de la propiedad UserNames de TIBDatabaseInfo.

Código Delphi [-]
  IBDatabase.Connected:= True;
  ListBox1.Items:= IBDatabaseInfo.UserNames;

Saludos.

[Casimiro Noteví]

Creo recordar que también el componente TIBDataBaseInfo tiene una propiedad que lista los usuarios conectados, creo que era UserNames, devuelve un StringList con la lista.

Edito: ya se me adelantó ecfisa

[Casimiro Noteví]

Añado otra forma:

Código SQL [-]
SELECT DISTINCT RDB$USER
  FROM RDB$USER_PRIVILEGES;

Creo que sólo con FB2.1 en adelante.

[[Chris]]

Empezado por Casimiro Notevi

Añado otra forma:

Código SQL [-]
SELECT DISTINCT RDB$USER
  FROM RDB$USER_PRIVILEGES;

Creo que sólo con FB2.1 en adelante.

Creo que RDB$USER_PRIVILEGES contiene información de los privilegios de los usuarios, no los que en este momento están conectados.

Saludos,
Chris

[ecfisa]

Hola.

Creo que la consulta SQL completa sería:

Código Delphi [-]
SELECT MON$USER, MON$REMOTE_ADDRESS, MON$REMOTE_PID, MON$TIMESTAMP FROM MON$ATTACHMENTS

Saludos.

[[Caral]]

Hola
Yo lo que hago es muy simple.
Tengo usuarios que entran al programa por medio de un login.
Una vez que esta autorizado cambio un campo activo por SI.
Una vez que el usuario sale del programa el campo activo vuelve a cambiar a NO.
Simple, en una pantalla puedo ver los usuarios que estan usando el programa en tiempo real, incluso si quisiera podria poner hora y dia de entrada y salida.
Saludos

[casacham]

Hola Caral

Yo utilizo un sistema similar para loguear a los usuarios de la base de datos, y esta pregunta que da inicio al hilo me ha surgido un monton de veces. No me anime a hacer lo que propones porque se me ocurrio que si hubo un corte de luz o algo por el estio (resetean la maquina), queda registrado como logueado cuando puede no estarlo.

Se me ocurre que se pueden utilizar los componentes INDY cliente y servidor UDP o TCP, similar a un programa de chat, para lograr una interconeccion entre los ejecutables y se den aviso entre ellos de quien esta logueado. Estoy tratando de aprender mas sobre como utilizar esos componentes. Me gustaria saber si alguien ha logrado plasmar esa idea y que opinas tu (CARAL) al respecto.

[ingabraham]

Empezado por Caral

Hola
Yo lo que hago es muy simple.
Tengo usuarios que entran al programa por medio de un login.
Una vez que esta autorizado cambio un campo activo por SI.
Una vez que el usuario sale del programa el campo activo vuelve a cambiar a NO.
Simple, en una pantalla puedo ver los usuarios que estan usando el programa en tiempo real, incluso si quisiera podria poner hora y dia de entrada y salida.
Saludos

no me actualiza la lista

1. al iniciar usuario

Código Delphi [-]
   DMDatos.CambiarUsuario(CBUsuarios.Text,'Conectado');

Procedure TDMDatos.CambiarUsuario(PUsuario,PEstado:String);
Begin
   With ConsultaFlash do
   Begin
    close;
    SQL.Clear;
    SQL.Add('Update Usuarios Set US_ESTADO=''' +PEstado+'''  where US_USUARIO =''' +PUsuario+''' ');
    ExecQuery;
  end;
     DMDatos.IBTransaction.CommitRetaining;
End;

2. al salir

Código Delphi [-]
  DMDatos.CambiarUsuario(CBUsuarios.Text,'DesConectado');

3. el timer q me muestra los usuarios

Código Delphi [-]

 if Temporizador.Interval  = 5000  then
 begin

  TreeView1.Items.Clear;
   With DMDatos.IBConsultaSql do
    Begin
      Sql.Clear;
      Sql.Add('Select * From USUARIOS ');
      Open;
      DMDatos.IBConsultaSql.First;
       While Not DMDatos.IBConsultaSql.Eof Do
       Begin
          if  'Conectado' = DMDatos.IBConsultaSql.fieldbyname('US_ESTADO').AsString THEN
            TreeView1.Items.AddChild(nil, DMDatos.IBConsultaSql.fieldbyname('US_USUARIO').AsString  );

           DMDatos.IBConsultaSql.Next;
       End;
   End;
 end;

pero al momento de otro pc q esta en la red entra no me actualiza la lista. parece que no reconociera los cambios de la bdatos, lo la refrescara no se si algun trigger o procedure me pueda solucionar esto.

[[Chris]]

Empezado por ecfisa

Hola.

Creo que la consulta SQL completa sería:

Código Delphi [-]
SELECT MON$USER, MON$REMOTE_ADDRESS, MON$REMOTE_PID, MON$TIMESTAMP FROM MON$ATTACHMENTS

Saludos.

Esa sería la solución perfecta, pero a cómo dije anteriormente estos datos MON$* solo están disponibles a partir de la versión 2.1 de Firebird y la que está usando el compañero lamentablemente es la 2.0.

[Casimiro Noteví]

En un soft que desarrollé hace años usé un sistema prácticamente idéntico al descrito por Neftalí.
Por cierto, no sé de dónde he sacado la sql que puse antes . Para controlar las conexiones se puede hacer también en un trigger que haga saltar una excepción cuando llegue al máximo permitido, a ver si ahora lo copio bien:

Código SQL [-]
CREATE EXCEPTION bloquear 'Ha superado el máximo de conexiones permitidas';

create trigger ocVerificarConexiones on connect as
BEGIN
   if ((select count(*) from MON$ATTACHMENTS) > 5) then EXCEPTION bloquear;
END

Aunque creo que también está disponible a partir de fb2.1