saber quien esta conectado a mi programa delphi

[ingabraham]

tengo desarrollado un programa qlo hice el delphi 7 y firebird 2.0
lo conecto a los clientes a traves de la ip del servidor.


quiero que en mi form principal me aparescan usuarios conectados. ps puede ser en una barra statusbar.

[[Chris]]

Creo que ese tipo de información no la puedes obtener con Firebird 2.0. No estoy seguro, pero me parece que así es.

Con la misma inseguridad te digo, que a partir de Firebird 2.1 se introdujeron las tablas MON$*. Éstas albergan entre otras cosas ese tipo de información que necesitas. Tengo entendido que el único problema es que la información contenida en esas tablas solo puede ser consultada por SYSDBA y el propietario de la BD. De la misma forma, tengo entendido que la limitación que te acabo de mencionar ya ha sido quitada en la versión 2.5 de Firebird.

Espero que corrobores la información que te he dado, o que los demás compañeros me corrijan sino es así.

Saludos,
Chris

[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 Notevi]

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

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