Subject | Re: IBOAdmin |
---|---|
Author | Alan |
Post date | 2009-12-21T20:32:08Z |
>gosh this is a very old message... but yes it all works for me and has done for ages. I have it working fine in D2010 and th latest IBO.
>
> --- In IBObjects@yahoogroups.com, "Alan McDonald" <alan@> wrote:
> >
> > Has anyone used Mr Mengoni's IBOSecurityService component? and can tell me
> > how to use it? or have some examples?
> > no matter what I try I get "cancelled by user" exceptions.
> > I am trying to use the GetUserList functions with FB2
> > any clues would be appreciated
> >
> > regards
> > Alan McDonald
> >
>
> Alan:
>
> I get the same error message. Did you discover the solution for this?
>
> jf
Make sure the protocol is set to cpTCP_IP
procedure TSchoolDB.AlterUser(gUserName, gPassword, gGroup, gFirstName, gMiddleName, gLastName: String);
begin
try
with IBOSecurityService1 do begin
ServerName := my.Server;
Params.Clear;
Params.Add('user_name='+IB_Connection1.Username);
Params.Add('password='+ IB_Connection1.Password);
UserName := gUserName;
FirstName := gFirstName;
MiddleName := gMiddleName;
LastName := gLastName;
GroupName := gGroup;
Password := gPassword;
Active := True;
ModifyUser;
Active := False;
end;
etc.
Alan