Delphi ActiveX

curl with Variable Substitution in the Request Body

See more CURL Examples

This example demonstrates using variables located in the request body with the {{variable_name}} syntax. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
sbCurl: TChilkatStringBuilder;
curl: TChilkatHttpCurl;
sbRawRequest: TChilkatStringBuilder;

begin
success := 0;

// Variables can also be used within the HTTP request body.
// Variable names are enclosed between {{ and }}

// Here is a curl command with two variables {{name}} and {{age}} located in the data.

// curl -X POST https://api.example.com/data \
//   -H "Content-Type: application/json" \
//   -d '{"name":"{{name}}","age":{{age}}}'

sbCurl := TChilkatStringBuilder.Create(Self);
sbCurl.AppendLn('curl -X POST https://api.example.com/data \");
sbCurl.AppendLn('  -H "Content-Type: application/json" \");
sbCurl.AppendLn('  -d ''{"name":"{{name}}","age":{{age}}}''');

curl := TChilkatHttpCurl.Create(Self);

// Provide values for variables.
curl.SetVar('name','Alice');
curl.SetVar('age','30');

// To demonstrate how the variables are replaced, this example does not execute the curl command. 
// Instead, it generates the raw HTTP request that would be sent if the curl command were run.
sbRawRequest := TChilkatStringBuilder.Create(Self);
success := curl.ToRawRequest(sbCurl.GetAsString(),sbRawRequest.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(curl.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(sbRawRequest.GetAsString());

// Output:

// POST /data HTTP/1.1
// Host: api.example.com
// Content-Type: application/json
// Content-Length: 25
// 
// {"name":"Alice","age":30}

// --------------------------------------------------------------------------------------------------
// Note: Variable substitution in the request body can be turned off by 
// setting the EnableBodyVars property equal to 0

curl.EnableBodyVars := 0;

success := curl.ToRawRequest(sbCurl.GetAsString(),sbRawRequest.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(curl.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(sbRawRequest.GetAsString());

// The raw request with body variable substitution disable:

// Host: api.example.com
// Content-Type: application/json
// Content-Length: 33
// 
// {"name":"{{name}}","age":{{age}}}
end;