Subject | Re: [IBO] Some method to retrieve all users in security2.fdb ? |
---|---|
Author | hamacker |
Post date | 2007-12-03T13:18:16Z |
Hi Again,
I found and I did install IBOAdmin, but studing your properties I conclude
that to retrieve all users :
var ResultList:TStringLIST;
n:Integer;
begin
ResultList:=TStringLIST.Create;
with IBOSecurityService1 do
begin
UserName:=FormMAIN.FB_SERVER.Username;
Password:=FormMAIN.FB_SERVER.Password;
LoginPrompt := False;
ServerName:=FormMAIN.FB_SERVER.Params.Values['SERVER'];
Params.Clear;
Params.AddStrings(FormMAIN.FB_SERVER.Params);
Protocol:=FormMAIN.FB_SERVER.Protocol;
try
Attach;
for n:=0 to (IBOSecurityService1.UserInfoCount) do
begin
// UserName := Edit1.Text;
// DisplayUser(UserName);
// Edit2.Text := UserInfo[0].FirstName;
// Edit3.Text := UserInfo[0].MiddleName;
// Edit4.Text := UserInfo[0].LastName;
// Edit5.Text := IntToStr(UserInfo[0].UserID);
// Edit6.Text := IntToStr(UserInfo[0].GroupID);
ResultLIST.Add(UserInfo[0].FirstName);
end;
except
on e:exception do
begin
Application.MessageBox(Pchar(e.message),Pchar('Can not attach
'+ServerName+':'));
end;
end;
Active:=false;
end;
But ever "SPB constant not supported" appear.
How can I retrieve all logins using IBOAdmin, some idea ?
2007/12/2, Alan McDonald <alan@...>:
I found and I did install IBOAdmin, but studing your properties I conclude
that to retrieve all users :
var ResultList:TStringLIST;
n:Integer;
begin
ResultList:=TStringLIST.Create;
with IBOSecurityService1 do
begin
UserName:=FormMAIN.FB_SERVER.Username;
Password:=FormMAIN.FB_SERVER.Password;
LoginPrompt := False;
ServerName:=FormMAIN.FB_SERVER.Params.Values['SERVER'];
Params.Clear;
Params.AddStrings(FormMAIN.FB_SERVER.Params);
Protocol:=FormMAIN.FB_SERVER.Protocol;
try
Attach;
for n:=0 to (IBOSecurityService1.UserInfoCount) do
begin
// UserName := Edit1.Text;
// DisplayUser(UserName);
// Edit2.Text := UserInfo[0].FirstName;
// Edit3.Text := UserInfo[0].MiddleName;
// Edit4.Text := UserInfo[0].LastName;
// Edit5.Text := IntToStr(UserInfo[0].UserID);
// Edit6.Text := IntToStr(UserInfo[0].GroupID);
ResultLIST.Add(UserInfo[0].FirstName);
end;
except
on e:exception do
begin
Application.MessageBox(Pchar(e.message),Pchar('Can not attach
'+ServerName+':'));
end;
end;
Active:=false;
end;
But ever "SPB constant not supported" appear.
How can I retrieve all logins using IBOAdmin, some idea ?
2007/12/2, Alan McDonald <alan@...>:
>[Non-text portions of this message have been removed]
> Google is your friend
> IBOAdmin - the first in the list
> Alan
>
> > -----Original Message-----
> > From: IBObjects@yahoogroups.com <IBObjects%40yahoogroups.com>
> > [mailto:IBObjects@yahoogroups.com <IBObjects%40yahoogroups.com>] On
> Behalf Of hamacker
> > Sent: Monday, 3 December 2007 8:07 AM
> > To: IBObjects@yahoogroups.com <IBObjects%40yahoogroups.com>
> > Subject: Re: [IBO] Some method to retrieve all users in
> > security2.fdb ?
> >
> >
> > I do not have this component on my pallete.
> > Where is it ?
> >
> > 2007/11/30, Alan McDonald <alan@... <alan%40meta.com.au>>:
> > >
> > > > I need a help,
> > > >
> > > > In FB1.x I connect directly to security.fdb to retrieve
> > all logins,
> > > > but in FB2 it does not possible, only via API.
> > > >
> > > > I am a newbie in IBO Components, I tried to
> > IB_Connection.Users by
> > > > this method retrieve only connected users and I need to
> > all logins
> > > > (connected or not).
> > > >
> > > > Ideas ?
> > >
> > > You'll have to use the IBOAdmin components for start.
> > > And you'll have to hack the security2.fdb file to grant
> > public to the
> > > users view.
> > >
> > > Alan
> > >
> > >
> > >
> >
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
> > __________________________________________________________
> > _____________
> > IB Objects - direct, complete, custom connectivity to
> > Firebird or InterBase
> > without the need for BDE, ODBC or any other
> > layer.
> > __________________________________________________________
> > _____________
> > http://www.ibobjects.com - your IBO community resource for
> > Tech Info papers,
> > keyword-searchable FAQ, community code contributions and more
> > !
> > Yahoo! Groups Links
> >
> >
> >
> >
>
>
>