role_name rausfinden

[cugar]

Hi,
wie kann ich bitte aus dem Prog. heraus, den Role-Namen auslesen.

Im Moment:
1.Starte Login-Fenster
-Über SecurityService prüfe ich nach ob der User existiert und begrüße ihn

Um die Tabellen zu öffnen, muss aber zum Benutzernamen und Passwort auch die Role angegeben werden (bei mir zB.: ALLE_ERLAUBT oder NUR_LESEN). Gibt es ne Möglichkeit den Role-Namen von InterBase über Delphi zu erfahren und auszulesen??

Viele Grüsse
Andreas

[HeikoAdams]

Also bei Firebird geht das über
USERROLE = RDB$GET_CONTEXT('SYSTEM', 'CURRENT_ROLE');

[cugar]

Danke für die schnelle Antwort.
InterBase ist für mich immer noch ein Neuland, deswegeg bin ich jetzt am experimentieren.

Also den Namen und paar Infos zum User finde ich so raus: UserNameTest = DataModule1.IBSecurityService1.UserInfo[i].UserName

Geht wahrscheinlich über
select rdb$get_context('SYSTEM', 'DB_NAME') from rdb$database
werde es gleich versuchen.

Geht doch nicht, bekomme immer eine Fehlermeldung