(Delphi ActiveX) Azure List Storage Accounts

Demonstrates how to list Azure storage accounts.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
success: Integer;
url: WideString;
jsonResp: WideString;
json: TChilkatJsonObject;
i: Integer;
count_i: Integer;
skuName: WideString;
skuTier: WideString;
kind: WideString;
id: WideString;
name: WideString;
v_type: WideString;
location: WideString;
propertiesNetworkAclsBypass: WideString;
propertiesNetworkAclsDefaultAction: WideString;
propertiesSupportsHttpsTrafficOnly: Integer;
propertiesEncryptionServicesFileEnabled: Integer;
propertiesEncryptionServicesFileLastEnabledTime: WideString;
propertiesEncryptionServicesBlobEnabled: Integer;
propertiesEncryptionServicesBlobLastEnabledTime: WideString;
propertiesEncryptionKeySource: WideString;
propertiesProvisioningState: WideString;
propertiesCreationTime: WideString;
propertiesPrimaryEndpointsBlob: WideString;
propertiesPrimaryEndpointsQueue: WideString;
propertiesPrimaryEndpointsTable: WideString;
propertiesPrimaryEndpointsFile: WideString;
propertiesPrimaryLocation: WideString;
propertiesStatusOfPrimary: WideString;

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

http := TChilkatHttp.Create(Self);

// Load an OAuth2 access token previously fetched by this example:  Get Azure OAuth2 Access Token
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/azureToken.json');
// Assuming success..
http.AuthToken := jsonToken.StringOf('access_token');
Memo1.Lines.Add('AuthToken: ' + http.AuthToken);

http.Accept := 'application/json';

url := 'https://management.azure.com/subscriptions/{subscriptionId}/providers/Microsoft.Storage/storageAccounts?api-version=2018-11-01';

jsonResp := http.QuickGetStr(url);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response Status Code: ' + IntToStr(http.LastStatus));

json := TChilkatJsonObject.Create(Self);
json.Load(jsonResp);
json.EmitCompact := 0;
Memo1.Lines.Add(json.Emit());

if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample output...
// (See the parsing code below..)
// 
// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

// {
//   "value": [
//     {
//       "sku": {
//         "name": "Standard_LRS",
//         "tier": "Standard"
//       },
//       "kind": "Storage",
//       "id": "/subscriptions/6c42643b-ebef-45e0-b917-b3583b84a57f/resourceGroups/gchilkat/providers/Microsoft.Storage/storageAccounts/chilkat",
//       "name": "chilkat",
//       "type": "Microsoft.Storage/storageAccounts",
//       "location": "eastus",
//       "tags": {},
//       "properties": {
//         "networkAcls": {
//           "bypass": "AzureServices",
//           "virtualNetworkRules": [
//           ],
//           "ipRules": [
//           ],
//           "defaultAction": "Allow"
//         },
//         "supportsHttpsTrafficOnly": true,
//         "encryption": {
//           "services": {
//             "file": {
//               "enabled": true,
//               "lastEnabledTime": "2017-12-28T11:02:10.6840887Z"
//             },
//             "blob": {
//               "enabled": true,
//               "lastEnabledTime": "2017-12-28T11:02:10.6840887Z"
//             }
//           },
//           "keySource": "Microsoft.Storage"
//         },
//         "provisioningState": "Succeeded",
//         "creationTime": "2016-04-18T22:57:36.5377065Z",
//         "primaryEndpoints": {
//           "blob": "https://chilkat.blob.core.windows.net/",
//           "queue": "https://chilkat.queue.core.windows.net/",
//           "table": "https://chilkat.table.core.windows.net/",
//           "file": "https://chilkat.file.core.windows.net/"
//         },
//         "primaryLocation": "eastus",
//         "statusOfPrimary": "available"
//       }
//     }
//   ]
// }
// 

i := 0;
count_i := json.SizeOfArray('value');
while i < count_i do
  begin
    json.I := i;
    skuName := json.StringOf('value[i].sku.name');
    skuTier := json.StringOf('value[i].sku.tier');
    kind := json.StringOf('value[i].kind');
    id := json.StringOf('value[i].id');
    name := json.StringOf('value[i].name');
    v_type := json.StringOf('value[i].type');
    location := json.StringOf('value[i].location');
    propertiesNetworkAclsBypass := json.StringOf('value[i].properties.networkAcls.bypass');
    propertiesNetworkAclsDefaultAction := json.StringOf('value[i].properties.networkAcls.defaultAction');
    propertiesSupportsHttpsTrafficOnly := json.BoolOf('value[i].properties.supportsHttpsTrafficOnly');
    propertiesEncryptionServicesFileEnabled := json.BoolOf('value[i].properties.encryption.services.file.enabled');
    propertiesEncryptionServicesFileLastEnabledTime := json.StringOf('value[i].properties.encryption.services.file.lastEnabledTime');
    propertiesEncryptionServicesBlobEnabled := json.BoolOf('value[i].properties.encryption.services.blob.enabled');
    propertiesEncryptionServicesBlobLastEnabledTime := json.StringOf('value[i].properties.encryption.services.blob.lastEnabledTime');
    propertiesEncryptionKeySource := json.StringOf('value[i].properties.encryption.keySource');
    propertiesProvisioningState := json.StringOf('value[i].properties.provisioningState');
    propertiesCreationTime := json.StringOf('value[i].properties.creationTime');
    propertiesPrimaryEndpointsBlob := json.StringOf('value[i].properties.primaryEndpoints.blob');
    propertiesPrimaryEndpointsQueue := json.StringOf('value[i].properties.primaryEndpoints.queue');
    propertiesPrimaryEndpointsTable := json.StringOf('value[i].properties.primaryEndpoints.table');
    propertiesPrimaryEndpointsFile := json.StringOf('value[i].properties.primaryEndpoints.file');
    propertiesPrimaryLocation := json.StringOf('value[i].properties.primaryLocation');
    propertiesStatusOfPrimary := json.StringOf('value[i].properties.statusOfPrimary');
    i := i + 1;
  end;
end;