--- In IBObjects@yahoogroups.com, "russellbelding" <russell@b...>
wrote:

>
> --- In IBObjects@yahoogroups.com, "henry FRANQUET"

<h.franquet@t...>

> wrote:
> >
> > Hi,
> > When using TIB_Connection.Users, I get only the logged users.
> > Is there a equivalent to Gsec command DisplayUsers to have all

the

> > users allowed ?
> >
> > thanks
>
> Hello Henry
>
> I have not found this capability in IBO but you can use IBOAdmin
> components to get the list you want. Download IBOAdmin from
> www.mengoni.com. Or directly from
> http://members.xoom.virgilio.it/lorenzomengo/downloads/IBOAdmin.zip
> To learn how to use IBOAdmin components you can examine the help

file

> for IBAdmin components in the Delphi VCL Reference Help file.

Oops. The help file is the IBX.HLP file. It has examples of using the
IBAdmin components and the IBOAdmin components seem to use the same
properties and methods. In IBX.hlp Find - IBSecurityService.

>
> The component you wan for the user list is IBOSecurityServices.

Here

> is a rough example. (I'm still learning how to use these components)
>
> procedure ...
> var
> I : integer;
> begin
> with IBOSecurityService1. do
> begin
> Detach; // gives an error if hit twice
> ServerName := 'bcd800';
> LoginPrompt := False;
> Params.Add('user_name=sysdba');
> Params.Add('password=masterkey');
> Attach;
> Active := True;
> try
> DisplayUsers;
> for I:=0 to userInfoCount-1 do
> begin
> Edit1.Text := UserInfo[I].UserName;
> Edit2.Text := UserInfo[I].FirstName;
> Edit3.Text := UserInfo[I].MiddleName;
> Edit4.Text := UserInfo[I].LastName;
> Edit5.Text := IntToStr(UserInfo[I].UserID);
> Edit6.Text := IntToStr(UserInfo[I].GroupID);
> showmessage('next');
> end;
> finally
> Active := False;
> end;
> end;
> end;
>
> Regards
>
> Russell