(Lianja) Azure Create Storage Account

Demonstrates how to create an Azure storage account.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// Load an OAuth2 access token previously fetched by this example:  Get Azure OAuth2 Access Token
loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/azureToken.json")
// Assuming success..
loHttp.AuthToken = loJsonToken.StringOf("access_token")
? "AuthToken: " + loHttp.AuthToken

loHttp.Accept = "application/json"

// Create the following JSON:

// {
//   "sku": {
//     "name": "Standard_GRS"
//   },
//   "kind": "StorageV2",
//   "location": "eastus2",
// }

// Use this online tool to generate the code from sample JSON: 
// Generate Code to Create JSON

loJsonRequestBody = createobject("CkJsonObject")
loJsonRequestBody.UpdateString("sku.name","Standard_GRS")
loJsonRequestBody.UpdateString("kind","StorageV2")
loJsonRequestBody.UpdateString("location","eastus2")

lcUrl = "https://management.azure.com/subscriptions/{subscriptionId}/resourceGroups/{resourceGroupName}/providers/Microsoft.Storage/storageAccounts/{accountName}?api-version=2018-02-01"

loResp = loHttp.PText("PUT",lcUrl,loJsonRequestBody.Emit(),"utf-8","application/json",.F.,.F.)
if (loHttp.LastMethodSuccess <> .T.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJsonToken
    release loJsonRequestBody
    return
endif

? "Response Status Code: " + str(loResp.StatusCode)

loJson = createobject("CkJsonObject")
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = .F.
? loJson.Emit()

if (loResp.StatusCode >= 300) then
    ? "Failed."
    release loResp
    release loHttp
    release loJsonToken
    release loJsonRequestBody
    release loJson
    return
endif

// Successful requests to create a new account return a 202 status code with an empty response body. The storage account is created asynchronously. 
// If the account already exists or is being provisioned, the request response has a 200 return code with the configuration of the existing storage account in the response body.
if (loResp.StatusCode = 202) then
    ? "Azure-AsyncOperation: " + loResp.GetHeaderField("Azure-AsyncOperation")
endif

if (loResp.StatusCode = 200) then

    // Parse a response like this:

    // 	{
    // 	  "sku": {
    // 	    "name": "Standard_GRS",
    // 	    "tier": "Standard"
    // 	  },
    // 	  "kind": "StorageV2",
    // 	  "id": "/subscriptions/6c42643b-ebef-45f0-b917-b3583b84a57f/resourceGroups/gChilkat/providers/Microsoft.Storage/storageAccounts/chilkatsoftware",
    // 	  "name": "chilkatsoftware",
    // 	  "type": "Microsoft.Storage/storageAccounts",
    // 	  "location": "eastus2",
    // 	  "tags": {},
    // 	  "properties": {
    // 	    "networkAcls": {
    // 	      "bypass": "AzureServices",
    // 	      "virtualNetworkRules": [
    // 	      ],
    // 	      "ipRules": [
    // 	      ],
    // 	      "defaultAction": "Allow"
    // 	    },
    // 	    "supportsHttpsTrafficOnly": false,
    // 	    "encryption": {
    // 	      "services": {
    // 	        "file": {
    // 	          "enabled": true,
    // 	          "lastEnabledTime": "2019-05-14T22:18:33.2246670Z"
    // 	        },
    // 	        "blob": {
    // 	          "enabled": true,
    // 	          "lastEnabledTime": "2019-05-14T22:18:33.2246670Z"
    // 	        }
    // 	      },
    // 	      "keySource": "Microsoft.Storage"
    // 	    },
    // 	    "accessTier": "Hot",
    // 	    "provisioningState": "Succeeded",
    // 
    // 	    "creationTime": "2019-05-14T22:18:33.1309165Z",
    // 	    "primaryEndpoints": {
    // 	      "dfs": "https://chilkatsoftware.dfs.core.windows.net/",
    // 	      "web": "https://chilkatsoftware.z20.web.core.windows.net/",
    // 	      "blob": "https://chilkatsoftware.blob.core.windows.net/",
    // 	      "queue": "https://chilkatsoftware.queue.core.windows.net/",
    // 	      "table": "https://chilkatsoftware.table.core.windows.net/",
    // 	      "file": "https://chilkatsoftware.file.core.windows.net/"
    // 	    },
    // 	    "primaryLocation": "eastus2",
    // 	    "statusOfPrimary": "available",
    // 	    "secondaryLocation": "centralus",
    // 	    "statusOfSecondary": "available"
    // 	  }
    // 	}

    // Use this online tool to generate parsing code from sample JSON: 
    // Generate Parsing Code from JSON

    lcSkuName = loJson.StringOf("sku.name")
    lcSkuTier = loJson.StringOf("sku.tier")
    lcKind = loJson.StringOf("kind")
    lcId = loJson.StringOf("id")
    lcName = loJson.StringOf("name")
    lcV_type = loJson.StringOf("type")
    lcLocation = loJson.StringOf("location")
    lcPropertiesNetworkAclsBypass = loJson.StringOf("properties.networkAcls.bypass")
    lcPropertiesNetworkAclsDefaultAction = loJson.StringOf("properties.networkAcls.defaultAction")
    llPropertiesSupportsHttpsTrafficOnly = loJson.BoolOf("properties.supportsHttpsTrafficOnly")
    llPropertiesEncryptionServicesFileEnabled = loJson.BoolOf("properties.encryption.services.file.enabled")
    lcPropertiesEncryptionServicesFileLastEnabledTime = loJson.StringOf("properties.encryption.services.file.lastEnabledTime")
    llPropertiesEncryptionServicesBlobEnabled = loJson.BoolOf("properties.encryption.services.blob.enabled")
    lcPropertiesEncryptionServicesBlobLastEnabledTime = loJson.StringOf("properties.encryption.services.blob.lastEnabledTime")
    lcPropertiesEncryptionKeySource = loJson.StringOf("properties.encryption.keySource")
    lcPropertiesAccessTier = loJson.StringOf("properties.accessTier")
    lcPropertiesProvisioningState = loJson.StringOf("properties.provisioningState")
    lcPropertiesCreationTime = loJson.StringOf("properties.creationTime")
    lcPropertiesPrimaryEndpointsDfs = loJson.StringOf("properties.primaryEndpoints.dfs")
    lcPropertiesPrimaryEndpointsWeb = loJson.StringOf("properties.primaryEndpoints.web")
    lcPropertiesPrimaryEndpointsBlob = loJson.StringOf("properties.primaryEndpoints.blob")
    lcPropertiesPrimaryEndpointsQueue = loJson.StringOf("properties.primaryEndpoints.queue")
    lcPropertiesPrimaryEndpointsTable = loJson.StringOf("properties.primaryEndpoints.table")
    lcPropertiesPrimaryEndpointsFile = loJson.StringOf("properties.primaryEndpoints.file")
    lcPropertiesPrimaryLocation = loJson.StringOf("properties.primaryLocation")
    lcPropertiesStatusOfPrimary = loJson.StringOf("properties.statusOfPrimary")
    lcPropertiesSecondaryLocation = loJson.StringOf("properties.secondaryLocation")
    lcPropertiesStatusOfSecondary = loJson.StringOf("properties.statusOfSecondary")
endif

? "Success."

release loResp


release loHttp
release loJsonToken
release loJsonRequestBody
release loJson