Delphi ActiveX Requires Chilkat v11.5.0+

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

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}}}