how to obtain roles of logged in user in delphi

See more:

C#

Delphi

H,
I am trying to display logged in user and the roles which user is involved.

function UserName() : String;
var
User : Pchar;
i:DWORD;
begin
  i:=1024;
  user:=StrAlloc(Succ(i));
  if GetUserName(User, i) then
   Result := StrPas(user)
   else
   Result := 'unknown';
end;

With this code I was able to display the user logged in details. Once the User name is Obtained I Created a button in mainform and was able to display the logged in user name without any problem.

Am trying to display the roles of the current user, when I declare a role to the user this is where in my code the roles pop up I had break points and found this




public void Initialize() {
var saSettings = new SaSettings();
_context = new RbaContext( saSettings );

_effectiveMappings = ReadUserMapping(_context);
_mappings = _effectiveMappings.Clone();
var curIdentity = WindowsIdentity.GetCurrent();
_roles = _context.ReadRolesDefinition();

In effective mapping open mapping in results view all the roles are stored.

Is there a way that we can extract these roles and display them.