Programm durch Lizenznummer freischalten/erweitern

[dataspider]

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