Re: [firebase-br] Usuários Conectados no banco

[Jeferson Oliveira]

Enio,

Legal ter compartilhado conosco seu código.
Aproveitando o ensejo, se puder utilizar os componentes InterbaseAdmin
(não sei sobre compatibilidade com Fb 2.0) a função abaixo pode ser
utilizada também para o mesmo objetivo:

function ConexoesAtivasBD(dbVerificar: TIBDatabase): Integer;
var
  IBDatabaseInfo: TIBDatabaseInfo;
begin
  IBDatabaseInfo := TIBDatabaseInfo.Create(Application);
  IBDatabaseInfo.Database := dbVerificar;
  Result := IBDatabaseInfo.UserNames.Count;
  IBDatabaseInfo.Free;
end;

[modo OFF On]

P.S.: conheça o DelForExp (http://www.dow.wau.nl/aew/DelForExp.html)
pode tornar seu código mais organizado

[modo OFF Off]


Abraço!
Jeferson Oliveira