Získání informací o licenci naprogramováním

Při analýze, reportování nebo ladění serverové aplikace můžete chtít znát počet dostupných klientů, počet spotřebovaných připojení, datum vypršení platnosti a mnoho dalších informací.

Nyní můžete pomocí verze 4D v16 R4 získat podrobné informace o aktivní licenci spuštěného produktu 4D (například 4D Server). Např:

• verze,
• platforma,
• počet dostupných a spotřebovaných připojení pro 4D Write Pro,
• počet dostupných a spotřebovaných připojení pro 4D Client,
• datum vypršení platnosti,
• …

Stačí zavolat příkaz Get license info new příkaz, který vrátí objekt:

C_OBJECT($obj)
$obj :=Get license info

Zde je například objekt vrácený pro licenci 4D Server:

{
    "name": "4D Server v16 R3",
    "licenseNumber": "xxxx",
    "version": "16R3",
    "userName": "John DOE",
    "userMail": "john.doe@alpha.com",
    "companyName": "Alpha",
    "platforms": ["macOS", "windows"],
    "expirationDate": {"day":1, "month":1, "year":2018},
    "products":[
        {
            // Expansion of 15 4D Write - 4D Write Pro connections
            "allowedCount": 15,
            "id": 808464697,
            "name": "4D Write - 4D Write Pro",
            "rights": [
                {
                    // 5 connections until December 1st, 2017
                    "count": 5,
                    "expirationDate": {"day":1, "month":12, "year":2017}
                }, {
                    // 10 connections until November 1st, 2017 
                    "count": 10,
                    "expirationDate": {"day":1, "month":11, "year":2017}
                }
            ],
            // 12 4D Write - 4D Write Pro licenses currently used
            "usedCount": 12
        },
        {...}
    ]
}