DescribeCertificate delphiDll Example
var
rest: HCkRest;
success: Boolean;
authAws: HCkAuthAws;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jResp: HCkJsonObject;
Name: PWideChar;
ResourceRecordType: PWideChar;
Value: PWideChar;
ValidationDomain: PWideChar;
ValidationMethod: PWideChar;
ValidationStatus: PWideChar;
j: Integer;
count_j: Integer;
strVal: PWideChar;
OID: PWideChar;
ResourceRecordName: PWideChar;
ResourceRecordValue: PWideChar;
CertificateArn: PWideChar;
CertificateAuthorityArn: PWideChar;
CreatedAt: Integer;
DomainName: PWideChar;
FailureReason: PWideChar;
ImportedAt: Integer;
IssuedAt: Integer;
Issuer: PWideChar;
KeyAlgorithm: PWideChar;
NotAfter: Integer;
NotBefore: Integer;
CertificateTransparencyLoggingPreference: PWideChar;
RenewalEligibility: PWideChar;
RenewalStatus: PWideChar;
RenewalStatusReason: PWideChar;
UpdatedAt: Integer;
RevocationReason: PWideChar;
RevokedAt: Integer;
Serial: PWideChar;
SignatureAlgorithm: PWideChar;
Status: PWideChar;
Subject: PWideChar;
v_Type: 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,'acm');
// SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
CkRest_SetAuthAws(rest,authAws);
// URL: https://acm.us-west-2.amazonaws.com/
// Use the same region as specified above.
success := CkRest_Connect(rest,'acm.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,'CertificateArn','string');
// The JSON request body created by the above code:
// {
// "CertificateArn": "string"
// }
CkRest_AddHeader(rest,'Content-Type','application/x-amz-json-1.1');
CkRest_AddHeader(rest,'X-Amz-Target','CertificateManager.DescribeCertificate');
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
CertificateArn := CkJsonObject__stringOf(jResp,'Certificate.CertificateArn');
CertificateAuthorityArn := CkJsonObject__stringOf(jResp,'Certificate.CertificateAuthorityArn');
CreatedAt := CkJsonObject_IntOf(jResp,'Certificate.CreatedAt');
DomainName := CkJsonObject__stringOf(jResp,'Certificate.DomainName');
FailureReason := CkJsonObject__stringOf(jResp,'Certificate.FailureReason');
ImportedAt := CkJsonObject_IntOf(jResp,'Certificate.ImportedAt');
IssuedAt := CkJsonObject_IntOf(jResp,'Certificate.IssuedAt');
Issuer := CkJsonObject__stringOf(jResp,'Certificate.Issuer');
KeyAlgorithm := CkJsonObject__stringOf(jResp,'Certificate.KeyAlgorithm');
NotAfter := CkJsonObject_IntOf(jResp,'Certificate.NotAfter');
NotBefore := CkJsonObject_IntOf(jResp,'Certificate.NotBefore');
CertificateTransparencyLoggingPreference := CkJsonObject__stringOf(jResp,'Certificate.Options.CertificateTransparencyLoggingPreference');
RenewalEligibility := CkJsonObject__stringOf(jResp,'Certificate.RenewalEligibility');
RenewalStatus := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.RenewalStatus');
RenewalStatusReason := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.RenewalStatusReason');
UpdatedAt := CkJsonObject_IntOf(jResp,'Certificate.RenewalSummary.UpdatedAt');
RevocationReason := CkJsonObject__stringOf(jResp,'Certificate.RevocationReason');
RevokedAt := CkJsonObject_IntOf(jResp,'Certificate.RevokedAt');
Serial := CkJsonObject__stringOf(jResp,'Certificate.Serial');
SignatureAlgorithm := CkJsonObject__stringOf(jResp,'Certificate.SignatureAlgorithm');
Status := CkJsonObject__stringOf(jResp,'Certificate.Status');
Subject := CkJsonObject__stringOf(jResp,'Certificate.Subject');
v_Type := CkJsonObject__stringOf(jResp,'Certificate.Type');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.DomainValidationOptions');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
DomainName := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].DomainName');
Name := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ResourceRecord.Name');
ResourceRecordType := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ResourceRecord.Type');
Value := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ResourceRecord.Value');
ValidationDomain := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ValidationDomain');
ValidationMethod := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ValidationMethod');
ValidationStatus := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ValidationStatus');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Certificate.DomainValidationOptions[i].ValidationEmails');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'Certificate.DomainValidationOptions[i].ValidationEmails[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.ExtendedKeyUsages');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
Name := CkJsonObject__stringOf(jResp,'Certificate.ExtendedKeyUsages[i].Name');
OID := CkJsonObject__stringOf(jResp,'Certificate.ExtendedKeyUsages[i].OID');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.InUseBy');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
strVal := CkJsonObject__stringOf(jResp,'Certificate.InUseBy[i]');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.KeyUsages');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
Name := CkJsonObject__stringOf(jResp,'Certificate.KeyUsages[i].Name');
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.RenewalSummary.DomainValidationOptions');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
DomainName := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].DomainName');
ResourceRecordName := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Name');
ResourceRecordType := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Type');
ResourceRecordValue := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ResourceRecord.Value');
ValidationDomain := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ValidationDomain');
ValidationMethod := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ValidationMethod');
ValidationStatus := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ValidationStatus');
j := 0;
count_j := CkJsonObject_SizeOfArray(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ValidationEmails');
while j < count_j do
begin
CkJsonObject_putJ(jResp,j);
strVal := CkJsonObject__stringOf(jResp,'Certificate.RenewalSummary.DomainValidationOptions[i].ValidationEmails[j]');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'Certificate.SubjectAlternativeNames');
while i < count_i do
begin
CkJsonObject_putI(jResp,i);
strVal := CkJsonObject__stringOf(jResp,'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"
// }
// }
CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);
