CreateDeliveryStream Foxpro Example
LOCAL loRest
LOCAL lnSuccess
LOCAL loAuthAws
LOCAL loJson
LOCAL loSbRequestBody
LOCAL loSbResponseBody
LOCAL lnRespStatusCode
LOCAL loJResp
LOCAL lcDeliveryStreamARN
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loRest = CreateObject('Chilkat_9_5_0.Rest')
loAuthAws = CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "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.)
loAuthAws.Region = "us-west-2"
loAuthAws.ServiceName = "firehose"
* SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
loRest.SetAuthAws(loAuthAws)
* URL: https://firehose.us-west-2.amazonaws.com/
* Use the same region as specified above.
lnSuccess = loRest.Connect("firehose.us-west-2.amazonaws.com",443,1,1)
IF (lnSuccess <> 1) THEN
? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
? loRest.LastErrorText
RELEASE loRest
RELEASE loAuthAws
CANCEL
ENDIF
* 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
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.ClusterEndpoint","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.DomainARN","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.IndexName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.IndexRotationPeriod","string")
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.RoleARN","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3BackupMode","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.BucketARN","string")
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.S3Configuration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.S3Configuration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("AmazonopensearchserviceDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.CompressionFormat","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.ErrorOutputPrefix","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.Prefix","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.S3Configuration.RoleARN","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.TypeName","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.VpcConfiguration.RoleARN","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.VpcConfiguration.SecurityGroupIds[0]","string")
loJson.UpdateString("AmazonopensearchserviceDestinationConfiguration.VpcConfiguration.SubnetIds[0]","string")
loJson.UpdateString("DeliveryStreamEncryptionConfigurationInput.KeyARN","string")
loJson.UpdateString("DeliveryStreamEncryptionConfigurationInput.KeyType","string")
loJson.UpdateString("DeliveryStreamName","string")
loJson.UpdateString("DeliveryStreamType","string")
loJson.UpdateInt("ElasticsearchDestinationConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("ElasticsearchDestinationConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("ElasticsearchDestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("ElasticsearchDestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.ClusterEndpoint","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.DomainARN","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.IndexName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.IndexRotationPeriod","string")
loJson.UpdateInt("ElasticsearchDestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("ElasticsearchDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateInt("ElasticsearchDestinationConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("ElasticsearchDestinationConfiguration.RoleARN","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3BackupMode","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.BucketARN","string")
loJson.UpdateInt("ElasticsearchDestinationConfiguration.S3Configuration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("ElasticsearchDestinationConfiguration.S3Configuration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("ElasticsearchDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.CompressionFormat","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.ErrorOutputPrefix","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.Prefix","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.S3Configuration.RoleARN","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.TypeName","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.VpcConfiguration.RoleARN","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.VpcConfiguration.SecurityGroupIds[0]","string")
loJson.UpdateString("ElasticsearchDestinationConfiguration.VpcConfiguration.SubnetIds[0]","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.BucketARN","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.CompressionFormat","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.Enabled",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.HiveJsonSerDe.TimestampFormats[0]","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.CaseInsensitive",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.ColumnToJsonKeyMappings.string","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.InputFormatConfiguration.Deserializer.OpenXJsonSerDe.ConvertDotsInJsonKeysToUnderscores",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BlockSizeBytes",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BloomFilterColumns[0]","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.BloomFilterFalsePositiveProbability",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.Compression","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.DictionaryKeyThreshold",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.EnablePadding",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.FormatVersion","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.PaddingTolerance",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.RowIndexStride",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.OrcSerDe.StripeSizeBytes",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.BlockSizeBytes",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.Compression","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.EnableDictionaryCompression",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.MaxPaddingBytes",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.PageSizeBytes",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.OutputFormatConfiguration.Serializer.ParquetSerDe.WriterVersion","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.CatalogId","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.DatabaseName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.Region","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.RoleARN","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.TableName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.DataFormatConversionConfiguration.SchemaConfiguration.VersionId","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DynamicPartitioningConfiguration.Enabled",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.DynamicPartitioningConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.ErrorOutputPrefix","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.Prefix","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.RoleARN","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.BucketARN","string")
loJson.UpdateInt("ExtendedS3DestinationConfiguration.S3BackupConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.S3BackupConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("ExtendedS3DestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.CompressionFormat","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.ErrorOutputPrefix","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.Prefix","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupConfiguration.RoleARN","string")
loJson.UpdateString("ExtendedS3DestinationConfiguration.S3BackupMode","string")
loJson.UpdateInt("HttpEndpointDestinationConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("HttpEndpointDestinationConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("HttpEndpointDestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("HttpEndpointDestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.EndpointConfiguration.AccessKey","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.EndpointConfiguration.Name","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.EndpointConfiguration.Url","string")
loJson.UpdateInt("HttpEndpointDestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("HttpEndpointDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.RequestConfiguration.CommonAttributes[0].AttributeName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.RequestConfiguration.CommonAttributes[0].AttributeValue","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.RequestConfiguration.ContentEncoding","string")
loJson.UpdateInt("HttpEndpointDestinationConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("HttpEndpointDestinationConfiguration.RoleARN","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3BackupMode","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.BucketARN","string")
loJson.UpdateInt("HttpEndpointDestinationConfiguration.S3Configuration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("HttpEndpointDestinationConfiguration.S3Configuration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("HttpEndpointDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.CompressionFormat","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.ErrorOutputPrefix","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.Prefix","string")
loJson.UpdateString("HttpEndpointDestinationConfiguration.S3Configuration.RoleARN","string")
loJson.UpdateString("KinesisStreamSourceConfiguration.KinesisStreamARN","string")
loJson.UpdateString("KinesisStreamSourceConfiguration.RoleARN","string")
loJson.UpdateInt("RedshiftDestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("RedshiftDestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.ClusterJDBCURL","string")
loJson.UpdateString("RedshiftDestinationConfiguration.CopyCommand.CopyOptions","string")
loJson.UpdateString("RedshiftDestinationConfiguration.CopyCommand.DataTableColumns","string")
loJson.UpdateString("RedshiftDestinationConfiguration.CopyCommand.DataTableName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.Password","string")
loJson.UpdateInt("RedshiftDestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("RedshiftDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("RedshiftDestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateInt("RedshiftDestinationConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("RedshiftDestinationConfiguration.RoleARN","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.BucketARN","string")
loJson.UpdateInt("RedshiftDestinationConfiguration.S3BackupConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("RedshiftDestinationConfiguration.S3BackupConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("RedshiftDestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.CompressionFormat","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.ErrorOutputPrefix","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.Prefix","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupConfiguration.RoleARN","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3BackupMode","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.BucketARN","string")
loJson.UpdateInt("RedshiftDestinationConfiguration.S3Configuration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("RedshiftDestinationConfiguration.S3Configuration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("RedshiftDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.CompressionFormat","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.ErrorOutputPrefix","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.Prefix","string")
loJson.UpdateString("RedshiftDestinationConfiguration.S3Configuration.RoleARN","string")
loJson.UpdateString("RedshiftDestinationConfiguration.Username","string")
loJson.UpdateString("S3DestinationConfiguration.BucketARN","string")
loJson.UpdateInt("S3DestinationConfiguration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("S3DestinationConfiguration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("S3DestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("S3DestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("S3DestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("S3DestinationConfiguration.CompressionFormat","string")
loJson.UpdateString("S3DestinationConfiguration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("S3DestinationConfiguration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("S3DestinationConfiguration.ErrorOutputPrefix","string")
loJson.UpdateString("S3DestinationConfiguration.Prefix","string")
loJson.UpdateString("S3DestinationConfiguration.RoleARN","string")
loJson.UpdateInt("SplunkDestinationConfiguration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("SplunkDestinationConfiguration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("SplunkDestinationConfiguration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateInt("SplunkDestinationConfiguration.HECAcknowledgmentTimeoutInSeconds",123)
loJson.UpdateString("SplunkDestinationConfiguration.HECEndpoint","string")
loJson.UpdateString("SplunkDestinationConfiguration.HECEndpointType","string")
loJson.UpdateString("SplunkDestinationConfiguration.HECToken","string")
loJson.UpdateInt("SplunkDestinationConfiguration.ProcessingConfiguration.Enabled",123)
loJson.UpdateString("SplunkDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterName","string")
loJson.UpdateString("SplunkDestinationConfiguration.ProcessingConfiguration.Processors[0].Parameters[0].ParameterValue","string")
loJson.UpdateString("SplunkDestinationConfiguration.ProcessingConfiguration.Processors[0].Type","string")
loJson.UpdateInt("SplunkDestinationConfiguration.RetryOptions.DurationInSeconds",123)
loJson.UpdateString("SplunkDestinationConfiguration.S3BackupMode","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.BucketARN","string")
loJson.UpdateInt("SplunkDestinationConfiguration.S3Configuration.BufferingHints.IntervalInSeconds",123)
loJson.UpdateInt("SplunkDestinationConfiguration.S3Configuration.BufferingHints.SizeInMBs",123)
loJson.UpdateInt("SplunkDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.Enabled",123)
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogGroupName","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.CloudWatchLoggingOptions.LogStreamName","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.CompressionFormat","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.EncryptionConfiguration.KMSEncryptionConfig.AWSKMSKeyARN","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.EncryptionConfiguration.NoEncryptionConfig","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.ErrorOutputPrefix","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.Prefix","string")
loJson.UpdateString("SplunkDestinationConfiguration.S3Configuration.RoleARN","string")
loJson.UpdateString("Tags[0].Key","string")
loJson.UpdateString("Tags[0].Value","string")
* The JSON request body created by the above code:
* {
* "AmazonopensearchserviceDestinationConfiguration": {
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "ClusterEndpoint": "string",
* "DomainARN": "string",
* "IndexName": "string",
* "IndexRotationPeriod": "string",
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RetryOptions": {
* "DurationInSeconds": number
* },
* "RoleARN": "string",
* "S3BackupMode": "string",
* "S3Configuration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "TypeName": "string",
* "VpcConfiguration": {
* "RoleARN": "string",
* "SecurityGroupIds": [
* "string"
* ],
* "SubnetIds": [
* "string"
* ]
* }
* },
* "DeliveryStreamEncryptionConfigurationInput": {
* "KeyARN": "string",
* "KeyType": "string"
* },
* "DeliveryStreamName": "string",
* "DeliveryStreamType": "string",
* "ElasticsearchDestinationConfiguration": {
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "ClusterEndpoint": "string",
* "DomainARN": "string",
* "IndexName": "string",
* "IndexRotationPeriod": "string",
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RetryOptions": {
* "DurationInSeconds": number
* },
* "RoleARN": "string",
* "S3BackupMode": "string",
* "S3Configuration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "TypeName": "string",
* "VpcConfiguration": {
* "RoleARN": "string",
* "SecurityGroupIds": [
* "string"
* ],
* "SubnetIds": [
* "string"
* ]
* }
* },
* "ExtendedS3DestinationConfiguration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "DataFormatConversionConfiguration": {
* "Enabled": boolean,
* "InputFormatConfiguration": {
* "Deserializer": {
* "HiveJsonSerDe": {
* "TimestampFormats": [
* "string"
* ]
* },
* "OpenXJsonSerDe": {
* "CaseInsensitive": boolean,
* "ColumnToJsonKeyMappings": {
* "string": "string"
* },
* "ConvertDotsInJsonKeysToUnderscores": boolean
* }
* }
* },
* "OutputFormatConfiguration": {
* "Serializer": {
* "OrcSerDe": {
* "BlockSizeBytes": number,
* "BloomFilterColumns": [
* "string"
* ],
* "BloomFilterFalsePositiveProbability": number,
* "Compression": "string",
* "DictionaryKeyThreshold": number,
* "EnablePadding": boolean,
* "FormatVersion": "string",
* "PaddingTolerance": number,
* "RowIndexStride": number,
* "StripeSizeBytes": number
* },
* "ParquetSerDe": {
* "BlockSizeBytes": number,
* "Compression": "string",
* "EnableDictionaryCompression": boolean,
* "MaxPaddingBytes": number,
* "PageSizeBytes": number,
* "WriterVersion": "string"
* }
* }
* },
* "SchemaConfiguration": {
* "CatalogId": "string",
* "DatabaseName": "string",
* "Region": "string",
* "RoleARN": "string",
* "TableName": "string",
* "VersionId": "string"
* }
* },
* "DynamicPartitioningConfiguration": {
* "Enabled": boolean,
* "RetryOptions": {
* "DurationInSeconds": number
* }
* },
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RoleARN": "string",
* "S3BackupConfiguration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "S3BackupMode": "string"
* },
* "HttpEndpointDestinationConfiguration": {
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "EndpointConfiguration": {
* "AccessKey": "string",
* "Name": "string",
* "Url": "string"
* },
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RequestConfiguration": {
* "CommonAttributes": [
* {
* "AttributeName": "string",
* "AttributeValue": "string"
* }
* ],
* "ContentEncoding": "string"
* },
* "RetryOptions": {
* "DurationInSeconds": number
* },
* "RoleARN": "string",
* "S3BackupMode": "string",
* "S3Configuration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* }
* },
* "KinesisStreamSourceConfiguration": {
* "KinesisStreamARN": "string",
* "RoleARN": "string"
* },
* "RedshiftDestinationConfiguration": {
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "ClusterJDBCURL": "string",
* "CopyCommand": {
* "CopyOptions": "string",
* "DataTableColumns": "string",
* "DataTableName": "string"
* },
* "Password": "string",
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RetryOptions": {
* "DurationInSeconds": number
* },
* "RoleARN": "string",
* "S3BackupConfiguration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "S3BackupMode": "string",
* "S3Configuration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "Username": "string"
* },
* "S3DestinationConfiguration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* },
* "SplunkDestinationConfiguration": {
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "HECAcknowledgmentTimeoutInSeconds": number,
* "HECEndpoint": "string",
* "HECEndpointType": "string",
* "HECToken": "string",
* "ProcessingConfiguration": {
* "Enabled": boolean,
* "Processors": [
* {
* "Parameters": [
* {
* "ParameterName": "string",
* "ParameterValue": "string"
* }
* ],
* "Type": "string"
* }
* ]
* },
* "RetryOptions": {
* "DurationInSeconds": number
* },
* "S3BackupMode": "string",
* "S3Configuration": {
* "BucketARN": "string",
* "BufferingHints": {
* "IntervalInSeconds": number,
* "SizeInMBs": number
* },
* "CloudWatchLoggingOptions": {
* "Enabled": boolean,
* "LogGroupName": "string",
* "LogStreamName": "string"
* },
* "CompressionFormat": "string",
* "EncryptionConfiguration": {
* "KMSEncryptionConfig": {
* "AWSKMSKeyARN": "string"
* },
* "NoEncryptionConfig": "string"
* },
* "ErrorOutputPrefix": "string",
* "Prefix": "string",
* "RoleARN": "string"
* }
* },
* "Tags": [
* {
* "Key": "string",
* "Value": "string"
* }
* ]
* }
loRest.AddHeader("Content-Type","application/x-amz-json-1.1")
loRest.AddHeader("X-Amz-Target","Firehose_20150804.CreateDeliveryStream")
loSbRequestBody = CreateObject('Chilkat_9_5_0.StringBuilder')
loJson.EmitSb(loSbRequestBody)
loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/",loSbRequestBody,loSbResponseBody)
IF (lnSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loRest
RELEASE loAuthAws
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loSbResponseBody
CANCEL
ENDIF
lnRespStatusCode = loRest.ResponseStatusCode
? "response status code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode <> 200) THEN
? "Response Header:"
? loRest.ResponseHeader
? "Response Body:"
? loSbResponseBody.GetAsString()
RELEASE loRest
RELEASE loAuthAws
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loSbResponseBody
CANCEL
ENDIF
loJResp = CreateObject('Chilkat_9_5_0.JsonObject')
loJResp.LoadSb(loSbResponseBody)
* 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
lcDeliveryStreamARN = loJResp.StringOf("DeliveryStreamARN")
* A sample JSON response body parsed by the above code:
* {
* "DeliveryStreamARN": "string"
* }
RELEASE loRest
RELEASE loAuthAws
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loSbResponseBody
RELEASE loJResp