Subject | Re: Retrieving list of user (same as gsec displayusers) |
---|---|
Author | russellbelding |
Post date | 2004-10-07T21:30:29Z |
--- In IBObjects@yahoogroups.com, "henry FRANQUET" <h.franquet@t...>
wrote:
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
wrote:
>Hello Henry
> 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
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