DescribeCertificate delphiAx Example
var
rest: TChilkatRest;
success: Integer;
authAws: TChilkatAuthAws;
json: TChilkatJsonObject;
sbRequestBody: TChilkatStringBuilder;
sbResponseBody: TChilkatStringBuilder;
respStatusCode: Integer;
jResp: TChilkatJsonObject;
Name: WideString;
ResourceRecordType: WideString;
Value: WideString;
ValidationDomain: WideString;
ValidationMethod: WideString;
ValidationStatus: WideString;
j: Integer;
count_j: Integer;
strVal: WideString;
OID: WideString;
ResourceRecordName: WideString;
ResourceRecordValue: WideString;
CertificateArn: WideString;
CertificateAuthorityArn: WideString;
CreatedAt: Integer;
DomainName: WideString;
FailureReason: WideString;
ImportedAt: Integer;
IssuedAt: Integer;
Issuer: WideString;
KeyAlgorithm: WideString;
NotAfter: Integer;
NotBefore: Integer;
CertificateTransparencyLoggingPreference: WideString;
RenewalEligibility: WideString;
RenewalStatus: WideString;
RenewalStatusReason: WideString;
UpdatedAt: Integer;
RevocationReason: WideString;
RevokedAt: Integer;
Serial: WideString;
SignatureAlgorithm: WideString;
Status: WideString;
Subject: WideString;
v_Type: 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 := 'acm';
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
rest.SetAuthAws(authAws.ControlInterface);
// URL: https://acm.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := rest.Connect('acm.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('CertificateArn','string');
// The JSON request body created by the above code:
// {
// "CertificateArn": "string"
// }
rest.AddHeader('Content-Type','application/x-amz-json-1.1');
rest.AddHeader('X-Amz-Target','CertificateManager.DescribeCertificate');
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
CertificateArn := jResp.StringOf('Certificate.CertificateArn');
CertificateAuthorityArn := jResp.StringOf('Certificate.CertificateAuthorityArn');
CreatedAt := jResp.IntOf('Certificate.CreatedAt');
DomainName := jResp.StringOf('Certificate.DomainName');
FailureReason := jResp.StringOf('Certificate.FailureReason');
ImportedAt := jResp.IntOf('Certificate.ImportedAt');
IssuedAt := jResp.IntOf('Certificate.IssuedAt');
Issuer := jResp.StringOf('Certificate.Issuer');
KeyAlgorithm := jResp.StringOf('Certificate.KeyAlgorithm');
NotAfter := jResp.IntOf('Certificate.NotAfter');
NotBefore := jResp.IntOf('Certificate.NotBefore');
CertificateTransparencyLoggingPreference := jResp.StringOf('Certificate.Options.CertificateTransparencyLoggingPreference');
RenewalEligibility := jResp.StringOf('Certificate.RenewalEligibility');
RenewalStatus := jResp.StringOf('Certificate.RenewalSummary.RenewalStatus');
RenewalStatusReason := jResp.StringOf('Certificate.RenewalSummary.RenewalStatusReason');
UpdatedAt := jResp.IntOf('Certificate.RenewalSummary.UpdatedAt');
RevocationReason := jResp.StringOf('Certificate.RevocationReason');
RevokedAt := jResp.IntOf('Certificate.RevokedAt');
Serial := jResp.StringOf('Certificate.Serial');
SignatureAlgorithm := jResp.StringOf('Certificate.SignatureAlgorithm');
Status := jResp.StringOf('Certificate.Status');
Subject := jResp.StringOf('Certificate.Subject');
v_Type := jResp.StringOf('Certificate.Type');
i := 0;
count_i := jResp.SizeOfArray('Certificate.DomainValidationOptions');
while i < count_i do
begin
jResp.I := i;
DomainName := jResp.StringOf('Certificate.DomainValidationOptions[i].DomainName');
Name := jResp.StringOf('Certificate.DomainValidationOptions[i].ResourceRecord.Name');
ResourceRecordType := jResp.StringOf('Certificate.DomainValidationOptions[i].ResourceRecord.Type');
Value := jResp.StringOf('Certificate.DomainValidationOptions[i].ResourceRecord.Value');
ValidationDomain := jResp.StringOf('Certificate.DomainValidationOptions[i].ValidationDomain');
ValidationMethod := jResp.StringOf('Certificate.DomainValidationOptions[i].ValidationMethod');
ValidationStatus := jResp.StringOf('Certificate.DomainValidationOptions[i].ValidationStatus');
j := 0;
count_j := jResp.SizeOfArray('Certificate.DomainValidationOptions[i].ValidationEmails');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('Certificate.DomainValidationOptions[i].ValidationEmails[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Certificate.ExtendedKeyUsages');
while i < count_i do
begin
jResp.I := i;
Name := jResp.StringOf('Certificate.ExtendedKeyUsages[i].Name');
OID := jResp.StringOf('Certificate.ExtendedKeyUsages[i].OID');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Certificate.InUseBy');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('Certificate.InUseBy[i]');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Certificate.KeyUsages');
while i < count_i do
begin
jResp.I := i;
Name := jResp.StringOf('Certificate.KeyUsages[i].Name');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Certificate.RenewalSummary.DomainValidationOptions');
while i < count_i do
begin
jResp.I := i;
DomainName := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].DomainName');
ResourceRecordName := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Name');
ResourceRecordType := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Type');
ResourceRecordValue := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Value');
ValidationDomain := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ValidationDomain');
ValidationMethod := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ValidationMethod');
ValidationStatus := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ValidationStatus');
j := 0;
count_j := jResp.SizeOfArray('Certificate.RenewalSummary.DomainValidationOptions[i].ValidationEmails');
while j < count_j do
begin
jResp.J := j;
strVal := jResp.StringOf('Certificate.RenewalSummary.DomainValidationOptions[i].ValidationEmails[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('Certificate.SubjectAlternativeNames');
while i < count_i do
begin
jResp.I := i;
strVal := jResp.StringOf('Certificate.SubjectAlternativeNames[i]');
i := i + 1;
end;
// A sample JSON response body parsed by the above code:
// {
// "Certificate": {
// "CertificateArn": "string",
// "CertificateAuthorityArn": "string",
// "CreatedAt": number,
// "DomainName": "string",
// "DomainValidationOptions": [
// {
// "DomainName": "string",
// "ResourceRecord": {
// "Name": "string",
// "Type": "string",
// "Value": "string"
// },
// "ValidationDomain": "string",
// "ValidationEmails": [
// "string"
// ],
// "ValidationMethod": "string",
// "ValidationStatus": "string"
// }
// ],
// "ExtendedKeyUsages": [
// {
// "Name": "string",
// "OID": "string"
// }
// ],
// "FailureReason": "string",
// "ImportedAt": number,
// "InUseBy": [
// "string"
// ],
// "IssuedAt": number,
// "Issuer": "string",
// "KeyAlgorithm": "string",
// "KeyUsages": [
// {
// "Name": "string"
// }
// ],
// "NotAfter": number,
// "NotBefore": number,
// "Options": {
// "CertificateTransparencyLoggingPreference": "string"
// },
// "RenewalEligibility": "string",
// "RenewalSummary": {
// "DomainValidationOptions": [
// {
// "DomainName": "string",
// "ResourceRecord": {
// "Name": "string",
// "Type": "string",
// "Value": "string"
// },
// "ValidationDomain": "string",
// "ValidationEmails": [
// "string"
// ],
// "ValidationMethod": "string",
// "ValidationStatus": "string"
// }
// ],
// "RenewalStatus": "string",
// "RenewalStatusReason": "string",
// "UpdatedAt": number
// },
// "RevocationReason": "string",
// "RevokedAt": number,
// "Serial": "string",
// "SignatureAlgorithm": "string",
// "Status": "string",
// "Subject": "string",
// "SubjectAlternativeNames": [
// "string"
// ],
// "Type": "string"
// }
// }
