Sample code for 30+ languages & platforms
DataFlex

Bluzone Get Project Details

See more Bluzone Examples

Get a project by its id

Chilkat DataFlex Downloads

Download Chilkat for DataFlex
DataFlex 
Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vSbResponseBody
    Handle hoSbResponseBody
    Handle hoJResp
    Integer iRespStatusCode
    Integer iProjectId
    String sName
    String sDescription
    String sStatus
    String sOwnerUsername
    String sOwnerEmailAddress
    String sDefaultUuidValue
    Boolean iEnableLocusMaps
    String sMapProviderType
    Boolean iEnableAdvancedPackets
    String sEnabledPacketTypes
    Boolean iEnableDataUnload
    Boolean iEnableScanConsumer
    Boolean iEnablePolicyConsumer
    Boolean iEnableLocationConsumer
    Boolean iEnableEmail
    String sFirmwareUpdateStrategy
    Integer iDeviceJobConcurrency
    String sMapProviderApiKey
    String sWakeupUuid
    String sReportTimezone
    String sLanguage
    String sBlufiHostnameNaming
    Integer iDateCreated
    Integer iDateUpdated
    Boolean iEnableStreamProducer
    Boolean iEnableMetricStorage
    Integer i
    Integer iCount_i
    String sTemp1

    Move False To iSuccess

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Implements the following CURL command:

    // curl -X GET \
    //   https://bluzone.io/portal/papis/v1/projects/YOUR_PROJECT_ID_HERE/ \
    //   -H 'bzid: YOUR_API_KEY_HERE'

    Send ComSetRequestHeader To hoHttp "bzid" "YOUR_API_KEY_HERE"

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
    If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
        Send CreateComObject of hoSbResponseBody
    End
    Get pvComObject of hoSbResponseBody to vSbResponseBody
    Get ComQuickGetSb Of hoHttp "https://bluzone.io/portal/papis/v1/projects/YOUR_PROJECT_ID_HERE/" vSbResponseBody To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatJsonObject)) To hoJResp
    If (Not(IsComObjectCreated(hoJResp))) Begin
        Send CreateComObject of hoJResp
    End
    Get pvComObject of hoSbResponseBody to vSbResponseBody
    Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess
    Set ComEmitCompact Of hoJResp To False

    Showln "Response Body:"
    Get ComEmit Of hoJResp To sTemp1
    Showln sTemp1

    Get ComLastStatus Of hoHttp To iRespStatusCode
    Showln "Response Status Code = " iRespStatusCode
    If (iRespStatusCode >= 400) Begin
        Showln "Response Header:"
        Get ComLastHeader Of hoHttp To sTemp1
        Showln sTemp1
        Showln "Failed."
        Procedure_Return
    End

    // Sample JSON response:

    // {
    //   "projectId": 36845,
    //   "name": "My Project",
    //   "description": "Default Project for admin@chilkatsoft.com, created on Thu Jun 06 17:18:11 GMT 2019.",
    //   "status": null,
    //   "owner": {
    //     "username": "admin@chilkatsoft.com",
    //     "emailAddress": null
    //   },
    //   "defaultUuidValue": "1b4b243c-59aa-405f-90b5-0c434cac1345",
    //   "enableLocusMaps": false,
    //   "mapProviderType": "GOOGLE",
    //   "enableAdvancedPackets": false,
    //   "enabledPacketTypes": "sBv2",
    //   "enableDataUnload": false,
    //   "enableScanConsumer": false,
    //   "enablePolicyConsumer": false,
    //   "enableLocationConsumer": false,
    //   "enableEmail": true,
    //   "firmwareUpdateStrategy": "MANUAL",
    //   "deviceJobConcurrency": -1,
    //   "mapProviderApiKey": null,
    //   "wakeupUuid": null,
    //   "reportEmailList": [
    //   ],
    //   "reportTimezone": "Etc/GMT",
    //   "language": "en",
    //   "blufiHostnameNaming": "DEFAULT",
    //   "dateCreated": 1559841491000,
    //   "dateUpdated": 1559841491000,
    //   "enableStreamProducer": true,
    //   "enableMetricStorage": true
    // }

    // Sample code for parsing the JSON response...
    // Use the following online tool to generate parsing code from sample JSON:
    // Generate Parsing Code from JSON

    Get ComIntOf Of hoJResp "projectId" To iProjectId
    Get ComStringOf Of hoJResp "name" To sName
    Get ComStringOf Of hoJResp "description" To sDescription
    Get ComStringOf Of hoJResp "status" To sStatus
    Get ComStringOf Of hoJResp "owner.username" To sOwnerUsername
    Get ComStringOf Of hoJResp "owner.emailAddress" To sOwnerEmailAddress
    Get ComStringOf Of hoJResp "defaultUuidValue" To sDefaultUuidValue
    Get ComBoolOf Of hoJResp "enableLocusMaps" To iEnableLocusMaps
    Get ComStringOf Of hoJResp "mapProviderType" To sMapProviderType
    Get ComBoolOf Of hoJResp "enableAdvancedPackets" To iEnableAdvancedPackets
    Get ComStringOf Of hoJResp "enabledPacketTypes" To sEnabledPacketTypes
    Get ComBoolOf Of hoJResp "enableDataUnload" To iEnableDataUnload
    Get ComBoolOf Of hoJResp "enableScanConsumer" To iEnableScanConsumer
    Get ComBoolOf Of hoJResp "enablePolicyConsumer" To iEnablePolicyConsumer
    Get ComBoolOf Of hoJResp "enableLocationConsumer" To iEnableLocationConsumer
    Get ComBoolOf Of hoJResp "enableEmail" To iEnableEmail
    Get ComStringOf Of hoJResp "firmwareUpdateStrategy" To sFirmwareUpdateStrategy
    Get ComIntOf Of hoJResp "deviceJobConcurrency" To iDeviceJobConcurrency
    Get ComStringOf Of hoJResp "mapProviderApiKey" To sMapProviderApiKey
    Get ComStringOf Of hoJResp "wakeupUuid" To sWakeupUuid
    Get ComStringOf Of hoJResp "reportTimezone" To sReportTimezone
    Get ComStringOf Of hoJResp "language" To sLanguage
    Get ComStringOf Of hoJResp "blufiHostnameNaming" To sBlufiHostnameNaming
    Get ComIntOf Of hoJResp "dateCreated" To iDateCreated
    Get ComIntOf Of hoJResp "dateUpdated" To iDateUpdated
    Get ComBoolOf Of hoJResp "enableStreamProducer" To iEnableStreamProducer
    Get ComBoolOf Of hoJResp "enableMetricStorage" To iEnableMetricStorage
    Move 0 To i
    Get ComSizeOfArray Of hoJResp "reportEmailList" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJResp To i
        Move (i + 1) To i
    Loop



End_Procedure