(Delphi DLL) Azure Key Vault Get Certificates

See more Azure Key Vault Examples

Demonstrates how to list the certificates in an Azure Key Vault.

Note: This example requires Chilkat v9.5.0.96 or later.

For more information, see https://learn.microsoft.com/en-us/rest/api/keyvault/certificates/get-certificates/get-certificates?tabs=HTTP

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
http: HCkHttp;
sbResponse: HCkStringBuilder;
success: Boolean;
statusCode: Integer;
jsonResp: HCkJsonObject;
id: PWideChar;
x5t: PWideChar;
Enabled: Boolean;
Nbf: Integer;
Exp: Integer;
Created: Integer;
Updated: Integer;
subject: PWideChar;
i: Integer;
count_i: Integer;

begin
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// We demonstrated how to get an access token for your Azure Key Vault
// in this example: Azure Key Vault Get OAuth2 Access Token using Client Credentials

// However.. starting in Chilkat v9.5.0.96, instead of directly providing Chilkat with the OAuth2 access token,
// you can instead provide the means for Chilkat to automatically get the OAuth2 access token,
// and in addition, Chilkat will automatically re-fetch a new OAuth2 access token as needed, such as shortly 
// prior to or after expiration.

// You do this by setting the AuthToken property to a JSON string that contains the required information.

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'client_id','APP_ID');

// The APP_PASSWORD is the "password" returned by the Azure CLI command: az ad sp create-for-rbac --name http://example.com --role Contributor
// See Azure Key Vault Get OAuth2 Access Token using Client Credentials
CkJsonObject_UpdateString(json,'client_secret','APP_PASSWORD');

// The access token will be for Azure Key Vault operations.
CkJsonObject_UpdateString(json,'resource','https://vault.azure.net');

// Specify the token endpoint which includes your tenant ID.
CkJsonObject_UpdateString(json,'token_endpoint','https://login.microsoftonline.com/TENANT_ID/oauth2/token');

http := CkHttp_Create();

// Instead of providing an actual access token, we give Chilkat the information that allows it to 
// automatically fetch the access token using the OAuth2 client credentials flow.
CkHttp_putAuthToken(http,CkJsonObject__emit(json));

// Replace key_vault_name with the name of your Azure Key Vault.
sbResponse := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://key_vault_name.vault.azure.net/certificates?api-version=7.4',sbResponse);
if (success = False) then
  begin

    statusCode := CkHttp_getLastStatus(http);
    if (statusCode = 0) then
      begin
        // We did not get a response from the server..
        Memo1.Lines.Add(CkHttp__lastErrorText(http));
      end
    else
      begin
        // We received a response, but it was an error.
        Memo1.Lines.Add('Error response status code: ' + IntToStr(statusCode));
        Memo1.Lines.Add('Error response:');
        Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponse));
      end;
    Exit;
  end;

jsonResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jsonResp,sbResponse);
CkJsonObject_putEmitCompact(jsonResp,False);

Memo1.Lines.Add(CkJsonObject__emit(jsonResp));

// The output looks like this:

// {
//   "value": [
//     {
//       "id": "https://kvchilkat.vault.azure.net/certificates/BadSSL",
//       "x5t": "U04xLnb8Ww7BKkW9dD7P1cCHNDY",
//       "attributes": {
//         "enabled": true,
//         "nbf": 1674409014,
//         "exp": 1737481014,
//         "created": 1697294224,
//         "updated": 1697294224
//       },
//       "subject": ""
//     },
//     {
//       "id": "https://kvchilkat.vault.azure.net/certificates/Brasil",
//       "x5t": "ayF5eBtlA35xPMivusE0wpmFjnA",
//       "attributes": {
//         "enabled": true,
//         "nbf": 1667830002,
//         "exp": 1699366002,
//         "created": 1697294090,
//         "updated": 1697294090
//       },
//       "subject": ""
//     }
//   ],
//   "nextLink": null
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

i := 0;
count_i := CkJsonObject_SizeOfArray(jsonResp,'value');
while i < count_i do
  begin
    CkJsonObject_putI(jsonResp,i);
    id := CkJsonObject__stringOf(jsonResp,'value[i].id');
    x5t := CkJsonObject__stringOf(jsonResp,'value[i].x5t');
    Enabled := CkJsonObject_BoolOf(jsonResp,'value[i].attributes.enabled');
    Nbf := CkJsonObject_IntOf(jsonResp,'value[i].attributes.nbf');
    Exp := CkJsonObject_IntOf(jsonResp,'value[i].attributes.exp');
    Created := CkJsonObject_IntOf(jsonResp,'value[i].attributes.created');
    Updated := CkJsonObject_IntOf(jsonResp,'value[i].attributes.updated');
    subject := CkJsonObject__stringOf(jsonResp,'value[i].subject');
    i := i + 1;
  end;

CkJsonObject_Dispose(json);
CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponse);
CkJsonObject_Dispose(jsonResp);

end;