Subject Re: Retrieving list of user (same as gsec displayusers)
Author russellbelding
--- 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.

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