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

[Jeferson Oliveira]

Melhor assim (para evitar vazamentos de memória):

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


Abraço!
Jeferson Oliveira