Delphi - récupérer les infos d'un utilisateur [FAQ]

[jlf]

bonjour

comment récuperer les Frst, middle et last_name de l'user à la connexion à une base FireBird avec les composants IB standards de Delphi 7 ?

merci de votre aide
jlf

[Barbibulle]

Palette Interbase Admin prendre le composant IBSecurityService.

Extrait de l'aide en ligne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Button4Click(Sender: TObject);
 
var
  I: Integer;
begin
 WITH IBSecurityService1 do
  begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.ADD('user_name=sysdba');
    Params.ADD('password=masterkey');
    Active := True;
    Memo1.LINES.Clear;
    try
      DisplayUsers;
      FOR I := 0 TO UserInfoCount - 1 do
      begin
        WITH UserInfo[i] do
        begin
          Memo1.LINES.ADD('User Name : ' + UserName);
 
          Memo1.LINES.ADD('Name: ' + FirstName + ' ' + MiddleName + ' ' + LastName);
          Memo1.LINES.ADD('UID: ' + IntToStr(UserId));
          Memo1.LINES.ADD('GID: ' + IntToStr(GroupId));
          Memo1.LINES.ADD('-----------------------------------');
        end;
      end;
    finally
      Active := False;
    end;
  end;
end;

[jlf]

merci Barbibulle

Je n'avais pas essayé cette méthode parce que je croyais que l'utilisation de IBSecurityService nécessitait d'avoir les droits d'administration sur la base (?)
il s'agit simplement d'afficher le nom réel de l'user, qui peut être n'importe qui, en tous cas rarement avec des droits d'admin

je vais essayer votre suggestion
merci encore
jlf