tnxSecurityMonitor.addUser v3.1004 d7

[nick]

where has tnxSecurityMonitor.addUser() gone in v3.1004? How do I add a user now?

nick wrote:

> where has tnxSecurityMonitor.addUser() gone in v3.1004? How do I add a
> user now?

You have to call:

function TnxSecurityMonitor.LogIn(const aUserName : UnicodeString;
const aPassword : UnicodeString)
: InxLoggedInUser31000;

InxLoggedInUser31000 = interface(InxInvokable)
['{6BF2AC76-CB7F-4051-B770-73AF46CA627F}']

function GetUserName : UnicodeString;
function GetIsUser : Boolean;
function GetIsAdmin : Boolean;
function GetHasReadAccess : Boolean;
function GetHasWriteAccess : Boolean;

procedure ChangePassword(aPassword: UnicodeString);

property UserName: UnicodeString
read GetUserName;
property IsUser: Boolean
read GetIsUser;
property IsAdmin: Boolean
read GetIsAdmin;
property HasReadAccess: Boolean
read GetHasReadAccess;
property HasWriteAccess: Boolean
read GetHasWriteAccess;
end;

with a username/password that has admin rights.

There is always a user called Administrator which can not be deleted or
disabled. The default password is NexusDB, but can (and should) be changed.

If the user has admin rights, then an interface cast to
InxLoggedInAdministrator31000 will succeed:

var
LoggedInUser : InxLoggedInUser31000;
LoggedInAdmin : InxLoggedInAdministrator31000
begin
//...
If Supports(LoggedInUser, InxLoggedInAdministrator31000, LoggedInAdmin) then
begin
//...
end;

That interface:

InxLoggedInAdministrator31000 = interface(InxInvokable)
['{D8E30E37-4A36-4979-A7A7-9B3DFB1849C4}']
function UserList: TnxUnicodeStrings;
function AdminList: TnxUnicodeStrings;

function UserExists(const aUserName : UnicodeString)
: Boolean;

procedure AddUser(const aUserName : UnicodeString;
const aPassword : UnicodeString;
aAsAdmin : Boolean;
aReadAccess : Boolean;
aWriteAccess : Boolean);
procedure RemoveUser(const aUserName : UnicodeString);
function ModifyUser(const aUserName : UnicodeString)
: InxModifyUser31000;

procedure GrantAdminKey(const aUserName: UnicodeString);
procedure RevokeAdminKey(const aUserName: UnicodeString);

procedure SetUserDisabled(const aUserName : UnicodeString;
aDisabled : Boolean);
procedure SetUserPassword(const aUserName : UnicodeString;
const aPassword : UnicodeString);
end;

can then be used to add/remove/modify users.

You can also get access to this functionality from any client if the session is
correctly authenticated as an administrator:

function TnxBaseSession.LoggedInAdministrator: InxLoggedInAdministrator31000;

When modifying a user, in addition to changing the read and write access flags,
it's also now possible to associate table encryption passwords with the user
account:

InxModifyUser31000 = interface(InxInvokable)
['{36B7586D-FE19-4F89-B658-8DC3B616DEFA}']
procedure AddTablePassword(const aAlias, aTable, aPassword: UnicodeString);
procedure RemoveTablePassword(const aAlias, aTable, aPassword:
UnicodeString);
procedure RemoveAllTablePasswords;

function GetIsAdmin: Boolean;
//procedure SetIsAdmin(aValue: Boolean);

function GetHasReadAccess: Boolean;
procedure SetHasReadAccess(aValue: Boolean);

function GetHasWriteAccess: Boolean;
procedure SetHasWriteAccess(aValue: Boolean);

property IsAdmin: Boolean
read GetIsAdmin{
write SetIsAdmin};
property HasReadAccess: Boolean
read GetHasReadAccess
write SetHasReadAccess;
property HasWriteAccess: Boolean
read GetHasWriteAccess
write SetHasWriteAccess;
end;

This makes it possible to use table password encryption without the encryption
password having to be exposted to the client program or user.

[nick]

that was a quick reply. I am digesting it with my breakfast