Hallo,
verwende doch einfach deine FIBPlus Componente TpFIBSecurityService.
Nur die in der security database enthaltenen User können auch, je nach
Recht, auf die Datenbanken zugreifen.
Delphi-Quellcode:
var
i: Integer;
begin
SecurityService1.LoginPrompt := False;
SecurityService1.ServerName := 'servername';
SecurityService1.Params.Add('user_name=sysdba');
SecurityService1.Params.Add('password=masterkey');
ListBox1.Items.Clear;
SecurityService1.Active := True;
SecurityService1.DisplayUsers;
for i := 0 to SecurityService1.UserInfoCount - 1 do
begin
ListBox1.Items.Add(SecurityService1.UserInfo[i].UserName);
end;
SecurityService1.Active := False;
end;
alex