Angemeldete Nutzer und geöffnete Datenbank ermitteln

[DirkG]

Hallo DP'ler.

Ich habe wieder mal ein Problem. Wir wollen in einem Monitoring Tool feststellen, welche Benutzer auf einem Interbase Server eingerichtet sind, ob sie momentan online sind und mit welcher Datenbank sie verbunden sind.

Benutzer ermitteln ist mit IBSecurityService kein Problem.

Für die Ermittlung welche User Online sind, wollten wir IBServerProperties mit FetchDatabaseInfo eine Liste der Datenbanken ermitteln und da ging es los. Laut F1 sollte es mit folgendem Code möglich sein, eine Liste der Datenbanken eines Server zu bekommen. Es passiert aber nichts

Delphi-Quellcode:

  with IBServerProperties1 do begin
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    Active := True;
    try
      Options := [Database];
      FetchDatabaseInfo; // bis hier alles ok
      for i:= 0 to High(DatabaseInfo.DbName) do // DatabaseInfo ist leer ???
        User.Database:= DatabaseInfo.DbName[i];
    finally
      Active := False;
    end;
  end;

User.Database ist eine Stuktur zur Aufnahme der Daten

Woran liegt es, das DatabaseInfo leer bleibt? Hat jemand von euch schon mal sowas gemacht?