Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: Programm durch Lizenznummer freischalten/erweitern

  Alt 3. Mär 2006, 13:07
Zitat von mschaefer:
Sehe ich das richtig, das dann der Datenbankserver die Lizensdatei verarbeiten müßte. Nur der kann ja entscheiden, ob noch ein User angemeldet werden darf ?!?

Grüße // Martin
Das ist nich richtig.
Zum Programmstart lese ich die Lizenzdatei ein und prüfe die Anzahl der mit der DB verbundenen User mit der Zahl in der Lizenzdatei.
Dabei nutze ich die Möglichkeiten von IBO (Firebird DB). Die Connection liefert über Users (TStrings) alle Informationen.
Also:
Delphi-Quellcode:
if Connection.Users.Count > Lic.MaxUser then
begin
  // nur als Beispiel
  ShowMessage('Maximale Anzahl Benutzer erreicht...');
  Connection.DisConnect;
  Application.Terminate;
end;
Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat