我的应用程序目前使用firebird安全机制来为我的应用程序的任何用户登录。
我们使用的是Delphi7和Firebird 2.1。
现在我们需要改变这一点，我们需要自己控制访问。
我们正在考虑从数据库中检索所有用户的密码（作为转换例程），并将密码保存在我们的表中......
有可能做到吗？
我尝试使用Delphi组件TIBSecurityService，但没有成功。
看一看：

var
  i: integer;
  l: TStrings;
  pwd: string;
begin
  IBSecurityService1.Attach;
  IBSecurityService1.DisplayUsers;
  l := TStringList.Create;
  try
    for i := 0 to IBSecurityService1.UserInfoCount-1 do
      l.add(IBSecurityService1.UserInfo[i].UserName);

    while l.Count > 0 do
      try
        IBSecurityService1.DisplayUser(l[0]);
        pwd := IBSecurityService1.Password;
        // pwd = ''
      finally
        l.Delete(0);
      end;
  finally
    l.Free;
  end;
end;

多谢帮忙!