GetLicenseCounterByID
This method returns the license counter information for any given active or inactive license counter.
An active counter is one that is specifically identified in the license file and is enforced by the licensing mechanism.
Note: This method is not available for engine-level counters. Use GetLicenseCounterByName instead.
Syntax
GetLicenseCounterByID(CounterID as SCBCdrPROJLib.CDRLicenseCounter, Count as Long, Active as Boolean)| Parameter | Description |
|---|---|
| CounterID | Counter ID from which the value is retrieved. The ID is determined by the CdrLicenseCounter project data type. |
| Count | The returned utilization value from the licensing mechanism. This stores the value of usage. |
| Active | Identifies if the license counter is active, or specified in the license file. |
Sample Code
The following sample code returns the OCRed number of documents.
Dim theLicensingInterface2 as SCBCdrPROJLib.SCBCdrLicenseInfoAccessDim theObject2 as Object
Dim vValue2 as Long
Dim vValue3 as Variant
Dim LicInfoMsg2 as String
vValue2=0
vValue3=0
Set theObject2 = Project
Set theLicensingInterface2 = theObject2
' theLicensingInterface2.GetLicenseCounterByID(TLCPeriodPagesOCRed, vValue2, False)
' theLicensingInterface2.GetLicenseCounterByID(TLCTotalPagesOCRed, vValue3, False)
' theLicensingInterface2.GetLicenseCounterByID(TLCFineReaderRemainingUnits, vValue2, True)
theLicensingInterface2.GetLicenseCounterByName ("Overall OCRed Pages", vValue2, True)
LicInfoMsg2 = "OCRed count - " & CStr(vValue2)
MsgBox(LicInfoMsg2, vbOkOnly,"Get License Count By ID")