(Delphi DLL) Invalidating Dependent Variables When Inputs Change

See more CURL Examples

This example demonstrates how HttpCurl automatically updates the execution plan when a known variable is cleared or changed.

After a multi-step execution plan runs successfully, variables such as site_id and drive_id may become known. Later calls to DoYourThing can reuse those values, resulting in a shorter execution plan.

However, if an input variable is cleared using ClearVar, or changed using SetVar, any variables that depend on that value are automatically invalidated. This ensures that stale values are not reused.

For example, if site_name changes, then the previously resolved site_id is no longer valid. Because drive_id depends on site_id, it is also invalidated. The next execution plan is rebuilt to resolve the dependency chain again using the new input value.

Note: This example requires Chilkat v11.5.0 or greater.

For more information, see https://www.chilkatsoft.com/curl_dependency_engine.asp

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, JsonObject, HttpCurl;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
httpCurl: HCkHttpCurl;
targetCurl: PWideChar;
fnName: PWideChar;
jsonOAuth2: HCkJsonObject;
planJson: HCkJsonObject;

begin
success := False;

httpCurl := CkHttpCurl_Create();

// The target curl command we ultimately want to execute.
// It requires drive_id.
targetCurl := 'curl -X GET https://graph.microsoft.com/v1.0/drives/{{drive_id}}/root/children';

// Define a helper function that produces drive_id.
// This requires site_id.
fnName := 'getDrives';
CkHttpCurl_AddFunction(httpCurl,fnName,'curl -X GET https://graph.microsoft.com/v1.0/sites/{{site_id}}/drives');
CkHttpCurl_AddOutput(httpCurl,fnName,'value[0].id','drive_id');

// Define another helper function that produces site_id.
// This requires site_name.
fnName := 'getSite';
CkHttpCurl_AddFunction(httpCurl,fnName,'curl -X GET https://graph.microsoft.com/v1.0/sites/root:/sites/{{site_name}}');
CkHttpCurl_AddOutput(httpCurl,fnName,'id','site_id');

// site_name is the starting known value.
CkHttpCurl_SetVar(httpCurl,'site_name','test');

// Configure OAuth2 authentication.
jsonOAuth2 := CkJsonObject_Create();
CkJsonObject_putEnableSecrets(jsonOAuth2,True);
CkJsonObject_UpdateString(jsonOAuth2,'oauth2.client_id','!!sharepoint|oauth2|client_id');
CkJsonObject_UpdateString(jsonOAuth2,'oauth2.client_secret','!!sharepoint|oauth2|client_secret');
CkJsonObject_UpdateString(jsonOAuth2,'oauth2.scope','https://graph.microsoft.com/.default');
CkJsonObject_UpdateString(jsonOAuth2,'oauth2.token_endpoint','!!sharepoint|oauth2|token_endpoint');
CkHttpCurl_SetAuth(httpCurl,jsonOAuth2);

// -----------------------------------------------------------------------------
// First execution plan:
// site_id and drive_id are not known yet, so the full dependency chain is needed.
// -----------------------------------------------------------------------------
planJson := CkJsonObject_Create();
CkJsonObject_putEmitCompact(planJson,False);

Memo1.Lines.Add('Execution plan before first call:');
success := CkHttpCurl_ExaminePlan(httpCurl,targetCurl,planJson);
Memo1.Lines.Add(CkJsonObject__emit(planJson));

// Expected:
// 
// {
//   "plan": [{
//     "function": "getSite",
//     "inputs": ["site_name"],
//     "outputs": ["site_id"]
//   },{
//     "function": "getDrives",
//     "inputs": ["site_id"],
//     "outputs": ["drive_id"]
//   },{
//     "function": "targetCurl",
//     "inputs": ["drive_id"],
//     "outputs": []
//   }]
// }

success := CkHttpCurl_DoYourThing(httpCurl,targetCurl);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttpCurl__lastErrorText(httpCurl));
    Exit;
  end;

Memo1.Lines.Add('After first call:');
Memo1.Lines.Add('site_id  = ' + CkHttpCurl__getVar(httpCurl,'site_id'));
Memo1.Lines.Add('drive_id = ' + CkHttpCurl__getVar(httpCurl,'drive_id'));

// -----------------------------------------------------------------------------
// Second execution plan:
// site_id and drive_id are now known, so only the target curl command is needed.
// -----------------------------------------------------------------------------
Memo1.Lines.Add('Execution plan after first call:');
success := CkHttpCurl_ExaminePlan(httpCurl,targetCurl,planJson);
Memo1.Lines.Add(CkJsonObject__emit(planJson));

// Expected:
// 
// {
//   "plan": [{
//     "function": "targetCurl",
//     "inputs": ["drive_id"],
//     "outputs": []
//   }]
// }

// -----------------------------------------------------------------------------
// Change the original input.
// Because site_id was produced from site_name, changing site_name invalidates site_id.
// Because drive_id depends on site_id, drive_id is also invalidated.
// -----------------------------------------------------------------------------

// Note: Make sure this site exists on in your SharePoint...
CkHttpCurl_SetVar(httpCurl,'site_name','anotherSite');

Memo1.Lines.Add('After changing site_name:');
Memo1.Lines.Add('site_id defined?  ' + IntToStr(Ord(CkHttpCurl_VarDefined(httpCurl,'site_id'))));
Memo1.Lines.Add('drive_id defined? ' + IntToStr(Ord(CkHttpCurl_VarDefined(httpCurl,'drive_id'))));

// -----------------------------------------------------------------------------
// The execution plan is automatically rebuilt.
// Since site_id and drive_id were invalidated, the full dependency chain is needed again.
// -----------------------------------------------------------------------------
Memo1.Lines.Add('Execution plan after changing site_name:');
success := CkHttpCurl_ExaminePlan(httpCurl,targetCurl,planJson);
Memo1.Lines.Add(CkJsonObject__emit(planJson));

// Expected:
// 
// {
//   "plan": [{
//     "function": "getSite",
//     "inputs": ["site_name"],
//     "outputs": ["site_id"]
//   },{
//     "function": "getDrives",
//     "inputs": ["site_id"],
//     "outputs": ["drive_id"]
//   },{
//     "function": "targetCurl",
//     "inputs": ["drive_id"],
//     "outputs": []
//   }]
// }

success := CkHttpCurl_DoYourThing(httpCurl,targetCurl);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttpCurl__lastErrorText(httpCurl));
    Exit;
  end;

Memo1.Lines.Add('After running again with the new site_name:');
Memo1.Lines.Add('site_id  = ' + CkHttpCurl__getVar(httpCurl,'site_id'));
Memo1.Lines.Add('drive_id = ' + CkHttpCurl__getVar(httpCurl,'drive_id'));

// -----------------------------------------------------------------------------
// Clearing a variable also invalidates values that depend on it.
// Here, clearing site_id also invalidates drive_id.
// -----------------------------------------------------------------------------
CkHttpCurl_ClearVar(httpCurl,'site_id');

Memo1.Lines.Add('After clearing site_id:');
Memo1.Lines.Add('site_id defined?  ' + IntToStr(Ord(CkHttpCurl_VarDefined(httpCurl,'site_id'))));
Memo1.Lines.Add('drive_id defined? ' + IntToStr(Ord(CkHttpCurl_VarDefined(httpCurl,'drive_id'))));

Memo1.Lines.Add('Execution plan after clearing site_id:');
success := CkHttpCurl_ExaminePlan(httpCurl,targetCurl,planJson);
Memo1.Lines.Add(CkJsonObject__emit(planJson));

// Expected:
// 
// {
//   "plan": [{
//     "function": "getSite",
//     "inputs": ["site_name"],
//     "outputs": ["site_id"]
//   },{
//     "function": "getDrives",
//     "inputs": ["site_id"],
//     "outputs": ["drive_id"]
//   },{
//     "function": "targetCurl",
//     "inputs": ["drive_id"],
//     "outputs": []
//   }]
// }

CkHttpCurl_Dispose(httpCurl);
CkJsonObject_Dispose(jsonOAuth2);
CkJsonObject_Dispose(planJson);

end;