Chilkat Online Tools

CreateImageBuilder delphiAx Example

Amazon AppStream

var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
EndpointType: WideString;
VpceId: WideString;
ErrorCode: WideString;
ErrorMessage: WideString;
ErrorTimestamp: Integer;
strVal: WideString;
AppstreamAgentVersion: WideString;
Arn: WideString;
CreatedTime: Integer;
Description: WideString;
DisplayName: WideString;
DirectoryName: WideString;
OrganizationalUnitDistinguishedName: WideString;
EnableDefaultInternetAccess: Integer;
IamRoleArn: WideString;
ImageArn: WideString;
InstanceType: WideString;
Name: WideString;
EniId: WideString;
EniPrivateIpAddress: WideString;
Platform: WideString;
State: WideString;
Code: WideString;
Message: WideString;
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 := TChilkatRest.Create(Self);

authAws := TChilkatAuthAws.Create(Self);
authAws.AccessKey := 'AWS_ACCESS_KEY';
authAws.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.)
authAws.Region := 'us-west-2';
authAws.ServiceName := 'appstream';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);

// URL: https://appstream2.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('appstream2.us-west-2.amazonaws.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
    Memo1.Lines.Add(rest.LastErrorText);
    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 := TChilkatJsonObject.Create(Self);
json.UpdateString('AccessEndpoints[0].EndpointType','string');
json.UpdateString('AccessEndpoints[0].VpceId','string');
json.UpdateString('AppstreamAgentVersion','string');
json.UpdateString('Description','string');
json.UpdateString('DisplayName','string');
json.UpdateString('DomainJoinInfo.DirectoryName','string');
json.UpdateString('DomainJoinInfo.OrganizationalUnitDistinguishedName','string');
json.UpdateInt('EnableDefaultInternetAccess',123);
json.UpdateString('IamRoleArn','string');
json.UpdateString('ImageArn','string');
json.UpdateString('ImageName','string');
json.UpdateString('InstanceType','string');
json.UpdateString('Name','string');
json.UpdateString('Tags.string','string');
json.UpdateString('VpcConfig.SecurityGroupIds[0]','string');
json.UpdateString('VpcConfig.SubnetIds[0]','string');

// The JSON request body created by the above code:

// {
//   "AccessEndpoints": [
//     {
//       "EndpointType": "string",
//       "VpceId": "string"
//     }
//   ],
//   "AppstreamAgentVersion": "string",
//   "Description": "string",
//   "DisplayName": "string",
//   "DomainJoinInfo": {
//     "DirectoryName": "string",
//     "OrganizationalUnitDistinguishedName": "string"
//   },
//   "EnableDefaultInternetAccess": boolean,
//   "IamRoleArn": "string",
//   "ImageArn": "string",
//   "ImageName": "string",
//   "InstanceType": "string",
//   "Name": "string",
//   "Tags": {
//     "string": "string"
//   },
//   "VpcConfig": {
//     "SecurityGroupIds": [
//       "string"
//     ],
//     "SubnetIds": [
//       "string"
//     ]
//   }
// }

rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','PhotonAdminProxyService.CreateImageBuilder');

sbRequestBody := TChilkatStringBuilder.Create(Self);
json.EmitSb(sbRequestBody.ControlInterface);
sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestSb('POST','/',sbRequestBody.ControlInterface,sbResponseBody.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;
respStatusCode := rest.ResponseStatusCode;
Memo1.Lines.Add('response status code = ' + IntToStr(respStatusCode));
if (respStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(rest.ResponseHeader);
    Memo1.Lines.Add('Response Body:');
    Memo1.Lines.Add(sbResponseBody.GetAsString());
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);

// 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

AppstreamAgentVersion := jResp.StringOf('ImageBuilder.AppstreamAgentVersion');
Arn := jResp.StringOf('ImageBuilder.Arn');
CreatedTime := jResp.IntOf('ImageBuilder.CreatedTime');
Description := jResp.StringOf('ImageBuilder.Description');
DisplayName := jResp.StringOf('ImageBuilder.DisplayName');
DirectoryName := jResp.StringOf('ImageBuilder.DomainJoinInfo.DirectoryName');
OrganizationalUnitDistinguishedName := jResp.StringOf('ImageBuilder.DomainJoinInfo.OrganizationalUnitDistinguishedName');
EnableDefaultInternetAccess := jResp.IntOf('ImageBuilder.EnableDefaultInternetAccess');
IamRoleArn := jResp.StringOf('ImageBuilder.IamRoleArn');
ImageArn := jResp.StringOf('ImageBuilder.ImageArn');
InstanceType := jResp.StringOf('ImageBuilder.InstanceType');
Name := jResp.StringOf('ImageBuilder.Name');
EniId := jResp.StringOf('ImageBuilder.NetworkAccessConfiguration.EniId');
EniPrivateIpAddress := jResp.StringOf('ImageBuilder.NetworkAccessConfiguration.EniPrivateIpAddress');
Platform := jResp.StringOf('ImageBuilder.Platform');
State := jResp.StringOf('ImageBuilder.State');
Code := jResp.StringOf('ImageBuilder.StateChangeReason.Code');
Message := jResp.StringOf('ImageBuilder.StateChangeReason.Message');
i := 0;
count_i := jResp.SizeOfArray('ImageBuilder.AccessEndpoints');
while i < count_i do
  begin
    jResp.I := i;
    EndpointType := jResp.StringOf('ImageBuilder.AccessEndpoints[i].EndpointType');
    VpceId := jResp.StringOf('ImageBuilder.AccessEndpoints[i].VpceId');
    i := i + 1;
  end;

i := 0;
count_i := jResp.SizeOfArray('ImageBuilder.ImageBuilderErrors');
while i < count_i do
  begin
    jResp.I := i;
    ErrorCode := jResp.StringOf('ImageBuilder.ImageBuilderErrors[i].ErrorCode');
    ErrorMessage := jResp.StringOf('ImageBuilder.ImageBuilderErrors[i].ErrorMessage');
    ErrorTimestamp := jResp.IntOf('ImageBuilder.ImageBuilderErrors[i].ErrorTimestamp');
    i := i + 1;
  end;

i := 0;
count_i := jResp.SizeOfArray('ImageBuilder.VpcConfig.SecurityGroupIds');
while i < count_i do
  begin
    jResp.I := i;
    strVal := jResp.StringOf('ImageBuilder.VpcConfig.SecurityGroupIds[i]');
    i := i + 1;
  end;

i := 0;
count_i := jResp.SizeOfArray('ImageBuilder.VpcConfig.SubnetIds');
while i < count_i do
  begin
    jResp.I := i;
    strVal := jResp.StringOf('ImageBuilder.VpcConfig.SubnetIds[i]');
    i := i + 1;
  end;

// A sample JSON response body parsed by the above code:

// {
//   "ImageBuilder": {
//     "AccessEndpoints": [
//       {
//         "EndpointType": "string",
//         "VpceId": "string"
//       }
//     ],
//     "AppstreamAgentVersion": "string",
//     "Arn": "string",
//     "CreatedTime": number,
//     "Description": "string",
//     "DisplayName": "string",
//     "DomainJoinInfo": {
//       "DirectoryName": "string",
//       "OrganizationalUnitDistinguishedName": "string"
//     },
//     "EnableDefaultInternetAccess": boolean,
//     "IamRoleArn": "string",
//     "ImageArn": "string",
//     "ImageBuilderErrors": [
//       {
//         "ErrorCode": "string",
//         "ErrorMessage": "string",
//         "ErrorTimestamp": number
//       }
//     ],
//     "InstanceType": "string",
//     "Name": "string",
//     "NetworkAccessConfiguration": {
//       "EniId": "string",
//       "EniPrivateIpAddress": "string"
//     },
//     "Platform": "string",
//     "State": "string",
//     "StateChangeReason": {
//       "Code": "string",
//       "Message": "string"
//     },
//     "VpcConfig": {
//       "SecurityGroupIds": [
//         "string"
//       ],
//       "SubnetIds": [
//         "string"
//       ]
//     }
//   }
// }