DescribeSnapshots Delphi (DLL) Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
CreationTime: Integer;
Lifecycle: PWideChar;
Message: PWideChar;
Name: PWideChar;
ResourceARN: PWideChar;
SnapshotId: PWideChar;
VolumeId: PWideChar;
j: Integer;
count_j: Integer;
AdministrativeActionType: PWideChar;
FailureDetailsMessage: PWideChar;
ProgressPercent: Integer;
RequestTime: Integer;
Status: PWideChar;
TargetFileSystemValuesCreationTime: Integer;
DNSName: PWideChar;
FileSystemId: PWideChar;
FileSystemType: PWideChar;
FileSystemTypeVersion: PWideChar;
KmsKeyId: PWideChar;
TargetFileSystemValuesLifecycle: PWideChar;
AutomaticBackupRetentionDays: Integer;
CopyTagsToBackups: Integer;
DailyAutomaticBackupStartTime: PWideChar;
DataCompressionType: PWideChar;
AutoImportPolicy: PWideChar;
ExportPath: PWideChar;
ImportedFileChunkSize: Integer;
ImportPath: PWideChar;
DataRepositoryConfigurationLifecycle: PWideChar;
DeploymentType: PWideChar;
DriveCacheType: PWideChar;
Destination: PWideChar;
Level: PWideChar;
MountName: PWideChar;
PerUnitStorageThroughput: Integer;
WeeklyMaintenanceStartTime: PWideChar;
OntapConfigurationAutomaticBackupRetentionDays: Integer;
OntapConfigurationDailyAutomaticBackupStartTime: PWideChar;
OntapConfigurationDeploymentType: PWideChar;
Iops: Integer;
Mode: PWideChar;
EndpointIpAddressRange: PWideChar;
InterclusterDNSName: PWideChar;
ManagementDNSName: PWideChar;
PreferredSubnetId: PWideChar;
ThroughputCapacity: Integer;
OntapConfigurationWeeklyMaintenanceStartTime: PWideChar;
OpenZFSConfigurationAutomaticBackupRetentionDays: Integer;
OpenZFSConfigurationCopyTagsToBackups: Integer;
CopyTagsToVolumes: Integer;
OpenZFSConfigurationDailyAutomaticBackupStartTime: PWideChar;
OpenZFSConfigurationDeploymentType: PWideChar;
DiskIopsConfigurationIops: Integer;
DiskIopsConfigurationMode: PWideChar;
RootVolumeId: PWideChar;
OpenZFSConfigurationThroughputCapacity: Integer;
OpenZFSConfigurationWeeklyMaintenanceStartTime: PWideChar;
OwnerId: PWideChar;
TargetFileSystemValuesResourceARN: PWideChar;
StorageCapacity: Integer;
StorageType: PWideChar;
VpcId: PWideChar;
ActiveDirectoryId: PWideChar;
AuditLogDestination: PWideChar;
FileAccessAuditLogLevel: PWideChar;
FileShareAccessAuditLogLevel: PWideChar;
WindowsConfigurationAutomaticBackupRetentionDays: Integer;
WindowsConfigurationCopyTagsToBackups: Integer;
WindowsConfigurationDailyAutomaticBackupStartTime: PWideChar;
WindowsConfigurationDeploymentType: PWideChar;
PreferredFileServerIp: PWideChar;
WindowsConfigurationPreferredSubnetId: PWideChar;
RemoteAdministrationEndpoint: PWideChar;
DomainName: PWideChar;
FileSystemAdministratorsGroup: PWideChar;
OrganizationalUnitDistinguishedName: PWideChar;
UserName: PWideChar;
WindowsConfigurationThroughputCapacity: Integer;
WindowsConfigurationWeeklyMaintenanceStartTime: PWideChar;
TargetSnapshotValues: PWideChar;
TargetVolumeValuesCreationTime: Integer;
TargetVolumeValuesFileSystemId: PWideChar;
TargetVolumeValuesLifecycle: PWideChar;
LifecycleTransitionReasonMessage: PWideChar;
TargetVolumeValuesName: PWideChar;
FlexCacheEndpointType: PWideChar;
JunctionPath: PWideChar;
OntapVolumeType: PWideChar;
SecurityStyle: PWideChar;
SizeInMegabytes: Integer;
StorageEfficiencyEnabled: Integer;
StorageVirtualMachineId: PWideChar;
StorageVirtualMachineRoot: Integer;
CoolingPeriod: Integer;
TieringPolicyName: PWideChar;
UUID: PWideChar;
CopyTagsToSnapshots: Integer;
OpenZFSConfigurationDataCompressionType: PWideChar;
CopyStrategy: PWideChar;
SnapshotARN: PWideChar;
ParentVolumeId: PWideChar;
ReadOnly: Integer;
RecordSizeKiB: Integer;
StorageCapacityQuotaGiB: Integer;
StorageCapacityReservationGiB: Integer;
VolumePath: PWideChar;
TargetVolumeValuesResourceARN: PWideChar;
TargetVolumeValuesVolumeId: PWideChar;
VolumeType: PWideChar;
k: Integer;
count_k: Integer;
strVal: PWideChar;
Key: PWideChar;
Value: PWideChar;
json1: HCkJsonObject;
i1: Integer;
count_i1: Integer;
Clients: PWideChar;
j1: Integer;
count_j1: Integer;
Id: Integer;
v_Type: PWideChar;
NextToken: PWideChar;
i: Integer;
count_i: Integer;
begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
rest := CkRest_Create();
authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY');
// Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
CkAuthAws_putRegion(authAws,'us-west-2');
CkAuthAws_putServiceName(authAws,'fsx');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://fsx.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'fsx.us-west-2.amazonaws.com',443,True,True);
if (success <> True) then
begin
Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
// The following code creates the JSON request body.
// The JSON created by this code is shown below.
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'Filters[0].Name','string');
CkJsonObject_UpdateString(json,'Filters[0].Values[0]','string');
CkJsonObject_UpdateInt(json,'MaxResults',123);
CkJsonObject_UpdateString(json,'NextToken','string');
CkJsonObject_UpdateString(json,'SnapshotIds[0]','string');
// The JSON request body created by the above code:
// {
// "Filters": [
// {
// "Name": "string",
// "Values": [
// "string"
// ]
// }
// ],
// "MaxResults": number,
// "NextToken": "string",
// "SnapshotIds": [
// "string"
// ]
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','AWSSimbaAPIService_v20180301.DescribeSnapshots');
sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/',sbRequestBody,sbResponseBody);
if (success <> True) then
begin
Memo1.Lines.Add(CkRest__lastErrorText(rest));
Exit;
end;
respStatusCode := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode <> 200) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(CkRest__responseHeader(rest));
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
Exit;
end;
jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
NextToken := CkJsonObject__stringOf(jResp,'NextToken');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Snapshots');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
CreationTime := CkJsonObject_IntOf(jResp,'Snapshots[i].CreationTime');
Lifecycle := CkJsonObject__stringOf(jResp,'Snapshots[i].Lifecycle');
Message := CkJsonObject__stringOf(jResp,'Snapshots[i].LifecycleTransitionReason.Message');
Name := CkJsonObject__stringOf(jResp,'Snapshots[i].Name');
ResourceARN := CkJsonObject__stringOf(jResp,'Snapshots[i].ResourceARN');
SnapshotId := CkJsonObject__stringOf(jResp,'Snapshots[i].SnapshotId');
VolumeId := CkJsonObject__stringOf(jResp,'Snapshots[i].VolumeId');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
AdministrativeActionType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].AdministrativeActionType');
FailureDetailsMessage := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].FailureDetails.Message');
ProgressPercent := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].ProgressPercent');
RequestTime := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].RequestTime');
Status := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].Status');
TargetFileSystemValuesCreationTime := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.CreationTime');
DNSName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.DNSName');
FailureDetailsMessage := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FailureDetails.Message');
FileSystemId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemId');
FileSystemType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemType');
FileSystemTypeVersion := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.FileSystemTypeVersion');
KmsKeyId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.KmsKeyId');
TargetFileSystemValuesLifecycle := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Lifecycle');
AutomaticBackupRetentionDays := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.AutomaticBackupRetentionDays');
CopyTagsToBackups := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.CopyTagsToBackups');
DailyAutomaticBackupStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DailyAutomaticBackupStartTime');
DataCompressionType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataCompressionType');
AutoImportPolicy := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.AutoImportPolicy');
ExportPath := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ExportPath');
FailureDetailsMessage := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.FailureDetails.Message');
ImportedFileChunkSize := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportedFileChunkSize');
ImportPath := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.ImportPath');
DataRepositoryConfigurationLifecycle := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DataRepositoryConfiguration.Lifecycle');
DeploymentType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DeploymentType');
DriveCacheType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.DriveCacheType');
Destination := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Destination');
Level := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.LogConfiguration.Level');
MountName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.MountName');
PerUnitStorageThroughput := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.PerUnitStorageThroughput');
WeeklyMaintenanceStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.LustreConfiguration.WeeklyMaintenanceStartTime');
OntapConfigurationAutomaticBackupRetentionDays := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.AutomaticBackupRetentionDays');
OntapConfigurationDailyAutomaticBackupStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DailyAutomaticBackupStartTime');
OntapConfigurationDeploymentType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DeploymentType');
Iops := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Iops');
Mode := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.DiskIopsConfiguration.Mode');
EndpointIpAddressRange := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.EndpointIpAddressRange');
InterclusterDNSName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.DNSName');
ManagementDNSName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.DNSName');
PreferredSubnetId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.PreferredSubnetId');
ThroughputCapacity := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.ThroughputCapacity');
OntapConfigurationWeeklyMaintenanceStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.WeeklyMaintenanceStartTime');
OpenZFSConfigurationAutomaticBackupRetentionDays := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.AutomaticBackupRetentionDays');
OpenZFSConfigurationCopyTagsToBackups := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToBackups');
CopyTagsToVolumes := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.CopyTagsToVolumes');
OpenZFSConfigurationDailyAutomaticBackupStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DailyAutomaticBackupStartTime');
OpenZFSConfigurationDeploymentType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DeploymentType');
DiskIopsConfigurationIops := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Iops');
DiskIopsConfigurationMode := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.DiskIopsConfiguration.Mode');
RootVolumeId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.RootVolumeId');
OpenZFSConfigurationThroughputCapacity := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.ThroughputCapacity');
OpenZFSConfigurationWeeklyMaintenanceStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OpenZFSConfiguration.WeeklyMaintenanceStartTime');
OwnerId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OwnerId');
TargetFileSystemValuesResourceARN := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.ResourceARN');
StorageCapacity := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.StorageCapacity');
StorageType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.StorageType');
VpcId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.VpcId');
ActiveDirectoryId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.ActiveDirectoryId');
AuditLogDestination := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.AuditLogDestination');
FileAccessAuditLogLevel := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileAccessAuditLogLevel');
FileShareAccessAuditLogLevel := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AuditLogConfiguration.FileShareAccessAuditLogLevel');
WindowsConfigurationAutomaticBackupRetentionDays := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.AutomaticBackupRetentionDays');
WindowsConfigurationCopyTagsToBackups := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.CopyTagsToBackups');
WindowsConfigurationDailyAutomaticBackupStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.DailyAutomaticBackupStartTime');
WindowsConfigurationDeploymentType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.DeploymentType');
PreferredFileServerIp := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.PreferredFileServerIp');
WindowsConfigurationPreferredSubnetId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.PreferredSubnetId');
RemoteAdministrationEndpoint := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.RemoteAdministrationEndpoint');
DomainName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DomainName');
FileSystemAdministratorsGroup := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.FileSystemAdministratorsGroup');
OrganizationalUnitDistinguishedName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.OrganizationalUnitDistinguishedName');
UserName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.UserName');
WindowsConfigurationThroughputCapacity := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.ThroughputCapacity');
WindowsConfigurationWeeklyMaintenanceStartTime := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.WeeklyMaintenanceStartTime');
TargetSnapshotValues := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetSnapshotValues');
TargetVolumeValuesCreationTime := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.CreationTime');
TargetVolumeValuesFileSystemId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.FileSystemId');
TargetVolumeValuesLifecycle := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Lifecycle');
LifecycleTransitionReasonMessage := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.LifecycleTransitionReason.Message');
TargetVolumeValuesName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Name');
FlexCacheEndpointType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.FlexCacheEndpointType');
JunctionPath := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.JunctionPath');
OntapVolumeType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.OntapVolumeType');
SecurityStyle := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SecurityStyle');
SizeInMegabytes := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.SizeInMegabytes');
StorageEfficiencyEnabled := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageEfficiencyEnabled');
StorageVirtualMachineId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineId');
StorageVirtualMachineRoot := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.StorageVirtualMachineRoot');
CoolingPeriod := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.CoolingPeriod');
TieringPolicyName := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.TieringPolicy.Name');
UUID := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OntapConfiguration.UUID');
CopyTagsToSnapshots := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.CopyTagsToSnapshots');
OpenZFSConfigurationDataCompressionType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.DataCompressionType');
CopyStrategy := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.CopyStrategy');
SnapshotARN := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.OriginSnapshot.SnapshotARN');
ParentVolumeId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ParentVolumeId');
ReadOnly := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.ReadOnly');
RecordSizeKiB := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.RecordSizeKiB');
StorageCapacityQuotaGiB := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityQuotaGiB');
StorageCapacityReservationGiB := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.StorageCapacityReservationGiB');
VolumePath := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.VolumePath');
TargetVolumeValuesResourceARN := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.ResourceARN');
TargetVolumeValuesVolumeId := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.VolumeId');
VolumeType := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.VolumeType');
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.AdministrativeActions');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.AdministrativeActions[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.NetworkInterfaceIds');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.NetworkInterfaceIds[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Intercluster.IpAddresses[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.Endpoints.Management.IpAddresses[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.RouteTableIds');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.OntapConfiguration.RouteTableIds[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.SubnetIds');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.SubnetIds[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
Key := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags[k].Key');
Value := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.Tags[k].Value');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
Lifecycle := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases[k].Lifecycle');
Name := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.Aliases[k].Name');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.MaintenanceOperationsInProgress[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetFileSystemValues.WindowsConfiguration.SelfManagedActiveDirectoryConfiguration.DnsIps[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
strVal := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.AdministrativeActions[k]');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
json1 := CkJsonObject_ObjectOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.NfsExports[k]');
i1 := 0;
count_i1 := CkJsonObject_SizeOfArray(json1,'ClientConfigurations');
while i1 < count_i1 do
begin
CkJsonObject_putI(json1,i1);
Clients := CkJsonObject__stringOf(json1,'ClientConfigurations[i].Clients');
j1 := 0;
count_j1 := CkJsonObject_SizeOfArray(json1,'ClientConfigurations[i].Options');
while j1 < count_j1 do
begin
CkJsonObject_putJ(json1,j1);
strVal := CkJsonObject__stringOf(json1,'ClientConfigurations[i].Options[j]');
j1 := j1 + 1;
end;
i1 := i1 + 1;
end;
CkJsonObject_Dispose(json1);
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
Id := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Id');
StorageCapacityQuotaGiB := CkJsonObject_IntOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].StorageCapacityQuotaGiB');
v_Type := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.OpenZFSConfiguration.UserAndGroupQuotas[k].Type');
k := k + 1;
end;
k := 0;
count_k := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags');
while k < count_k do
begin
CkJsonObject_putK(jResp,k);
Key := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Key');
Value := CkJsonObject__stringOf(jResp,'Snapshots[i].AdministrativeActions[j].TargetVolumeValues.Tags[k].Value');
k := k + 1;
end;
j := j + 1;
end;
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Snapshots[i].Tags');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
Key := CkJsonObject__stringOf(jResp,'Snapshots[i].Tags[j].Key');
Value := CkJsonObject__stringOf(jResp,'Snapshots[i].Tags[j].Value');
j := j + 1;
end;
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "NextToken": "string",
// "Snapshots": [
// {
// "AdministrativeActions": [
// {
// "AdministrativeActionType": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "ProgressPercent": number,
// "RequestTime": number,
// "Status": "string",
// "TargetFileSystemValues": {
// "AdministrativeActions": [
// "AdministrativeAction"
// ],
// "CreationTime": number,
// "DNSName": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "FileSystemId": "string",
// "FileSystemType": "string",
// "FileSystemTypeVersion": "string",
// "KmsKeyId": "string",
// "Lifecycle": "string",
// "LustreConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DataCompressionType": "string",
// "DataRepositoryConfiguration": {
// "AutoImportPolicy": "string",
// "ExportPath": "string",
// "FailureDetails": {
// "Message": "string"
// },
// "ImportedFileChunkSize": number,
// "ImportPath": "string",
// "Lifecycle": "string"
// },
// "DeploymentType": "string",
// "DriveCacheType": "string",
// "LogConfiguration": {
// "Destination": "string",
// "Level": "string"
// },
// "MountName": "string",
// "PerUnitStorageThroughput": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "NetworkInterfaceIds": [
// "string"
// ],
// "OntapConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "DiskIopsConfiguration": {
// "Iops": number,
// "Mode": "string"
// },
// "EndpointIpAddressRange": "string",
// "Endpoints": {
// "Intercluster": {
// "DNSName": "string",
// "IpAddresses": [
// "string"
// ]
// },
// "Management": {
// "DNSName": "string",
// "IpAddresses": [
// "string"
// ]
// }
// },
// "PreferredSubnetId": "string",
// "RouteTableIds": [
// "string"
// ],
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "OpenZFSConfiguration": {
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "CopyTagsToVolumes": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "DiskIopsConfiguration": {
// "Iops": number,
// "Mode": "string"
// },
// "RootVolumeId": "string",
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// },
// "OwnerId": "string",
// "ResourceARN": "string",
// "StorageCapacity": number,
// "StorageType": "string",
// "SubnetIds": [
// "string"
// ],
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VpcId": "string",
// "WindowsConfiguration": {
// "ActiveDirectoryId": "string",
// "Aliases": [
// {
// "Lifecycle": "string",
// "Name": "string"
// }
// ],
// "AuditLogConfiguration": {
// "AuditLogDestination": "string",
// "FileAccessAuditLogLevel": "string",
// "FileShareAccessAuditLogLevel": "string"
// },
// "AutomaticBackupRetentionDays": number,
// "CopyTagsToBackups": boolean,
// "DailyAutomaticBackupStartTime": "string",
// "DeploymentType": "string",
// "MaintenanceOperationsInProgress": [
// "string"
// ],
// "PreferredFileServerIp": "string",
// "PreferredSubnetId": "string",
// "RemoteAdministrationEndpoint": "string",
// "SelfManagedActiveDirectoryConfiguration": {
// "DnsIps": [
// "string"
// ],
// "DomainName": "string",
// "FileSystemAdministratorsGroup": "string",
// "OrganizationalUnitDistinguishedName": "string",
// "UserName": "string"
// },
// "ThroughputCapacity": number,
// "WeeklyMaintenanceStartTime": "string"
// }
// },
// "TargetSnapshotValues": "Snapshot",
// "TargetVolumeValues": {
// "AdministrativeActions": [
// "AdministrativeAction"
// ],
// "CreationTime": number,
// "FileSystemId": "string",
// "Lifecycle": "string",
// "LifecycleTransitionReason": {
// "Message": "string"
// },
// "Name": "string",
// "OntapConfiguration": {
// "FlexCacheEndpointType": "string",
// "JunctionPath": "string",
// "OntapVolumeType": "string",
// "SecurityStyle": "string",
// "SizeInMegabytes": number,
// "StorageEfficiencyEnabled": boolean,
// "StorageVirtualMachineId": "string",
// "StorageVirtualMachineRoot": boolean,
// "TieringPolicy": {
// "CoolingPeriod": number,
// "Name": "string"
// },
// "UUID": "string"
// },
// "OpenZFSConfiguration": {
// "CopyTagsToSnapshots": boolean,
// "DataCompressionType": "string",
// "NfsExports": [
// {
// "ClientConfigurations": [
// {
// "Clients": "string",
// "Options": [
// "string"
// ]
// }
// ]
// }
// ],
// "OriginSnapshot": {
// "CopyStrategy": "string",
// "SnapshotARN": "string"
// },
// "ParentVolumeId": "string",
// "ReadOnly": boolean,
// "RecordSizeKiB": number,
// "StorageCapacityQuotaGiB": number,
// "StorageCapacityReservationGiB": number,
// "UserAndGroupQuotas": [
// {
// "Id": number,
// "StorageCapacityQuotaGiB": number,
// "Type": "string"
// }
// ],
// "VolumePath": "string"
// },
// "ResourceARN": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VolumeId": "string",
// "VolumeType": "string"
// }
// }
// ],
// "CreationTime": number,
// "Lifecycle": "string",
// "LifecycleTransitionReason": {
// "Message": "string"
// },
// "Name": "string",
// "ResourceARN": "string",
// "SnapshotId": "string",
// "Tags": [
// {
// "Key": "string",
// "Value": "string"
// }
// ],
// "VolumeId": "string"
// }
// ]
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
