saber quien esta conectado a mi programa delphi

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

[oesqueda]

El metodo de caral es mejor, solo agrega la fecha y hora.

Si la fecha de ingreso es menor a la del dia es que se desconecto de mala manera.
Si la hora de ingreso es menor a 4 horas por ejemplo pues lo mismo, es cuestion de poner restricciones.

La opcion de indy la maneja el software de Contpaq i aqui en Mexico, donde manejan un software en el servidor llamado Administrador de licencias y asi tambien validas cuantos usuarios entran.

Si el servidor de licencias detecgta que cierta IP perdio la conexion simplemente la quita de la lista de conectados y ya.

Por esa razon no me gusta poner esas cosas jejejeje.

[[Caral]]

Hola
Ya sabeis que me complico poco la vida, por eso trato de hacer las cosas mas sencillas.
En el caso del sistema que uso lo he probado apagando los ordenadores (simulando una falla eléctrica), saliendo del programa etc y siempre actualiza la lista por que uso una comprobación con un sencillo timer cada 20 minutos.
Me imagino que habran sistemas mas complejos y mejores, pero en mi caso funciona bien.
Saludos

[Neftali [Germán.Estévez]]

Empezado por casacham

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.

Hace tiempo utilizamos un sistema similar. La única modificación para evitar esto, es que cada minuto (configurable) el usuario/cliente hacía un UPDATE a la tabla de ENTRADAS para guardar la hora (hora del servidor). El UPDATE no "perjudica" mucho, pues 1 UPDATE cada minuto es poco (ojo si tenemos 400 clientes conectados que entonces a lo mejor si sobrecarga... ) y de esta forma puedes detectar las conexiones fantasma.

Las conexiones que llamamos "zombies" o "fantasmas" son aquellas que llevan entre 1 y 5 minutos sin actualizar. Pasados 5 minutos se borran esas entradas. De esta forma cuando una máquina se cuelga, pasado 1 minuto esa entrada se considera zombie, y pasados 3 o 5 se borra. Es una forma de tener "actualizada" esa información de la tabla de ENTRADAS. Los tiempo son configurables dependiendo de las necesidades y de la sobrecarga del sistema. Si son 5 máquinas puedes usar 1 minuto, si son 300 tal vez sea mejor utilizar 10 minutos.

Empezado por casacham

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.

Esta la estamos utilizando ahora, pero la verdad es que cuando hay muchas máquinas (hablamos de 100 conexiones), y sobre todo cuando se conectan a la vez (todo el mundo llega a las 9:00 conecta el ordenador y entra en la aplicación) estamos notando retardos.

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

[oesqueda]

Revisa tu transaccion como esta configurada, te paso un codigo que acelera tu codigo:

Código Delphi [-]
 if Temporizador.Interval  = 5000  then  begin    TreeView1.Items.Clear;    With DMDatos.IBConsultaSql do     Begin       Sql.Clear;       Sql.Add('Select * From USUARIOS where US_ESTADO = ''Conectado''';       Open;       DMDatos.IBConsultaSql.First;        While Not DMDatos.IBConsultaSql.Eof Do        Begin             TreeView1.Items.AddChild(nil, DMDatos.IBConsultaSql.fieldbyname('US_USUARIO').AsString  );             DMDatos.IBConsultaSql.Next;        End;    End;  end;

Ademas te recomiendo cambiar el us_esado a numerico y ponerle un indice, seria mucho mas rapido.

Saludos

[ingabraham]

Empezado por oesqueda

Revisa tu transaccion como esta configurada, te paso un codigo que acelera tu codigo:

Código Delphi [-]
 if Temporizador.Interval  = 5000  then  begin    TreeView1.Items.Clear;    With DMDatos.IBConsultaSql do     Begin       Sql.Clear;       Sql.Add('Select * From USUARIOS where US_ESTADO = ''Conectado''';       Open;       DMDatos.IBConsultaSql.First;        While Not DMDatos.IBConsultaSql.Eof Do        Begin             TreeView1.Items.AddChild(nil, DMDatos.IBConsultaSql.fieldbyname('US_USUARIO').AsString  );             DMDatos.IBConsultaSql.Next;        End;    End;  end;

Ademas te recomiendo cambiar el us_esado a numerico y ponerle un indice, seria mucho mas rapido.

Saludos

Mi transaccion
esta de la sgt manera

active true
autostopaction saNone

defaulaction TARollback


que propiedades deberia tener,
ps te comento que las cambie x todas las posibles combinaciones, y no me actualiza los usuarios.

[oesqueda]

hablo de la propiedad params, si esta vacia te falta ajustarla

saludos

[ingabraham]

k tipo de parametro le ingreso .
no tengo ni idea

[oesqueda]

Mi estimado, aqui creo y que me corrijan los moderadores, pero ya necesitas ponerte a estudiar, yo practico con este precepto dale un pescado a un hombre y comera un dia, enseñale a pescar y comera toda la vida.

Por lo que te encomiendo a buscar en google articulos de delphi con firebird, con interbase 6.0 por lo menos, encontre esto en internet, es un manual de firebird.

http://infoback.com.ar/buhardilla/firebird/firebird.htm

Que alguna vez fue publicado en el foro, y pues si necesitas algo mas estoy a tus ordenes, pero creo que necesitas darle un clavado a por lo menos las bases de firebird y como funciona y asi ya empezar a entender como funcionan la conexion con al base, transacciones y el uso de IBDataset (no ibtable o ibquery que solo estan para compatibilidad).