[FB] Neuen User im Netzwerk anlegen

[Hansa]

Hi,

wie lege ich einen neuen User an (zur Laufzeit) ? Habe mich an dem Beispiel in der OH orientiert :

Delphi-Quellcode:

with UserService do begin
showmessage (DBName);
  ServerName := DBName;
//  ServerName := 'Poulet';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
    try
      UserName := 'TEST';
      FirstName := '1';
      MiddleName := '2';
      LastName := '3';
      UserID := 4;
      GroupID := 5;
      Password := 'TESPW';
      AddUser;
    finally
      Active := False;
    end;
  end;

Zu diesem Zeitpunkt ist auch die richtige DB bereits geöffnet. An der Stelle mit dem Hähnchen liegts wohl. Die showmessage zeigt den richtigen Namen an, also in diesem Fall im Format "SERVER:C:\DB\DB.FDB" Der Name wird vorher ermittelt, an die Variable DBName übergeben. Das Ganze wird auch überall im Programm verwendet ohne Fehler.

Nun kommt aber folgende Exception : "Unavailable Resource. Cannot Attach to Services-Manager. Service C:\DB\DB.FDB Services-mgr is not defined." Vom Servernamen ist da keine Rede. 8)

[mkinzler]

Ich kenne FIPlus nicht. Mit IBX kan man z:B. auch problemlos auf eine FB-datenbank zugreifen, die Admin-Komponten sind aber auf IB ausgerichtet. Ich vermute mal bei FIPlus ist es ähnlich. Vielleicht kann man aber irgendwo einstellen, das es sich beim Server um FB handelt.

[Hansa]

Moin,

den User anlegen klappt jetzt. Fragt mich bloß nicht warum. Weniger ist manchmal mehr. 8) Heißt :

Delphi-Quellcode:

  UserService.LoginPrompt := false;
  UserService.Active := True;
  UserService.UserName := 'TEST';
  UserService.Password := '';
  try
    UserService.AddUser;
  except
    ShowMessage('Error by adding new user');
  end;

Jetzt stellt sich nur noch eine Frage : der soll nur angelegt werden, wenn er nicht schon da ist. Wie kann man das jetzt überprüfen ?

[dstein]

Hi,
schau dir doch mal meine Tools Usermanager und Userlist an.
Dort wird dein Thema behandelt.
Ich verwende D7 mit FibPlus 6.x SourceCode sende ich auf Wunsch zu.

http://www.dirkstein.de



hth
Dirk Stein