>
> --- In IBObjects@yahoogroups.com, "Alan McDonald" <alan@> wrote:
> >
> > Has anyone used Mr Mengoni's IBOSecurityService component? and can tell me
>

I have been using this component for 5 years without problem,
see below works perfectly :

p.s. I use IBObjects 4.6bc


IBSecurity.Params.Clear;
IBSecurity.Params.Add('user_name=sysdba');
IBSecurity.Params.Add('password=masterkey');
repeat
try
IBSecurity.Active := True;
slUsers.Clear;
IBSecurity.DisplayUsers;
for j := 0 to IBSecurity.UserInfoCount - 1 do
slUsers.Add(IBSecurity.UserInfo[j].UserName);
if( slUsers.IndexOf('barry') < 0 )then
begin
IBSecurity.UserName := 'barry';
IBSecurity.Password := 'abc';
IBSecurity.AddUser;
end;
if( slUsers.IndexOf('fred') < 0 )then
begin
IBSecurity.UserName := 'fred';
IBSecurity.Password := 'abc';
IBSecurity.AddUser;
end;
Worked := TRUE;
except
on E:Exception do
begin
inc(i);
LogErrorMessage(E.Message);
sleep(10000);
end;
end;
IBSecurity.Active := False;
until( i = 5 )or( Worked );