TSeatChecker - TMethod defines the two methods of software licensing -- by user (seat- } { based) or by total number of users (concurrent use-based).
Register - Method is the method of licensing being used, either seat-based or } { concurrent-use based.
TMethod
TStatus
kLurchTableName
kMaxSeats
procedure Register;
Method is the method of licensing being used, either seat-based or } { concurrent-use based.
TMethod = (mByUser, mByTotal);
This type defines the status of the application, whether it is occupying one } { of the licensed seats or not.
TStatus = (sSitting, sStanding);
This is a general exception for all errors within this unit.
kLurchTableName = 'LURCH.DB'
****************************************************************************} {*** ScComps.PAS **************************************************} {*** by Stephen R. Broadwell **************************************************} {*** copyright (c) 1997 **************************************************} {******************************************************************************} {*** This unit defines the component TSeatChecker, a license-enforcing ***} {*** component for database applications. By using TSeatChecker in your ***} {*** code, you can enforce your licensing agreement by limiting either the ***} {*** total number of concurrent users of your software, or the number of ***} {*** seats. ***} {******************************************************************************} {*** TSeatChecker works by making use of a lurch table to keep track of ***} {*** who is using the software. See the associated documentation for more ***} {*** details on creating and using a lurch table. ***} {******************************************************************************} {******************************************************************************} {*** Please direct any and all questions/comments to: ***} {*** sbroadwell@bridge-way.com ***} {
kMaxSeats = 3
This is the name of the lurch table. You may want to change it for security } { reasons.