私のアプリケーションは現在、firebirdセキュリティを使用して、アプリケーションのすべてのユーザーにログオンしています。
Delphi7とFirebird2.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;
手伝ってくれてありがとう!