Pascal (Lazarus/Delphi)

curl Update Local Manager Secrets

See more CURL Examples

Demonstrates how to initially write secrets to the local manager that will later be used in curl commands. On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Secrets,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  secrets: TSecrets;
  json: TJsonObject;
  json2: TJsonObject;

begin
  success := False;

  //  This example will store 3 secrets in the local manager.

  //  On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain.
  //  These secrets will be used at a later point in time in curl commands,
  //  as shown in this example:  Using Local Manager Secrets with curl

  //  Also see: Chilkat v11.5.0 — Secrets Integration
  //  and also: Chilkat Secrets API

  secrets := TSecrets.Create;

  json := TJsonObject.Create;

  json.UpdateString('appName','sharepoint');
  json.UpdateString('service','oauth2');
  json.UpdateString('username','client_id');

  //  These are not actual/real values..
  success := secrets.UpdateSecretStr(json,'4afc67c5-6d3f-4ed0-91c7-5d239c78bff7');
  if (success = False) then
    begin
      WriteLn(secrets.LastErrorText);
      Exit;
    end;

  json.UpdateString('username','client_secret');
  success := secrets.UpdateSecretStr(json,'Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6');
  if (success = False) then
    begin
      WriteLn(secrets.LastErrorText);
      Exit;
    end;

  json.UpdateString('username','token_endpoint');
  success := secrets.UpdateSecretStr(json,'https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token');
  if (success = False) then
    begin
      WriteLn(secrets.LastErrorText);
      Exit;
    end;

  //  -----------------------------------------------------------------------------------------------------------
  //  The above secrets would be accessed like this:
  json2 := TJsonObject.Create;

  json2.EnableSecrets := True;

  //  Chilkat sees the secret specification string (beginning with "!!") and resolves from the local manager.
  json2.UpdateString('x','!!sharepoint|oauth2|client_id');
  WriteLn('x = ' + json2.StringOf('x'));

  json2.UpdateString('y','!!sharepoint|oauth2|client_secret');
  WriteLn('y = ' + json2.StringOf('y'));

  json2.UpdateString('z','!!sharepoint|oauth2|token_endpoint');
  WriteLn('z = ' + json2.StringOf('z'));

  //  You can see the values retrieved from the local manager:

  //  x = 4afc67c5-6d3f-4ed0-91c7-5d239c78bff7
  //  y = Rlh8Q~xaP10Dw-goWQDLXrRJfYAFVW1hHauvfhO6
  //  z = https://login.microsoftonline.com/5f410b89-177f-40b3-9d66-ac519c728025/oauth2/v2.0/token


  secrets.Free;
  json.Free;
  json2.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.