Pascal (Lazarus/Delphi)

DocuSign Send a Draft Envelope

See more DocuSign Examples

Demonstrates how to send a DocuSign draft envelope. 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.Http,
  Chilkat.StringBuilder,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  jsonToken: TJsonObject;
  json: TJsonObject;
  sbJson: TStringBuilder;
  url: string;
  resp: THttpResponse;
  jResp: TJsonObject;
  respStatusCode: Integer;

begin
  success := False;

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

  http := THttp.Create;

  //  Load a previously obtained OAuth2 access token.
  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/docusign.json');
  if (success = False) then
    begin
      WriteLn(jsonToken.LastErrorText);
      Exit;
    end;

  //  Adds the "Authorization: Bearer eyJ0eXAi.....UE8Kl_V8KroQ" header.
  http.AuthToken := jsonToken.StringOf('access_token');

  //  Send the following request.
  //  Make sure to use your own account ID (obtained from Get Docusign User Account Information)

  //  PUT https://demo.docusign.net/restapi/v2.1/accounts/<account ID>/envelopes/<envelope ID> HTTP/1.1
  //  Accept: application/json
  //  Cache-Control: no-cache
  //  Authorization: Bearer eyJ0eX...
  //  Content-Length: ...
  //  Content-Type: application/json
  //  
  //  {
  //    "status": "sent"
  //  }

  json := TJsonObject.Create;
  json.UpdateString('status','sent');

  sbJson := TStringBuilder.Create;
  json.EmitCompact := False;
  json.EmitSb(sbJson);

  http.SetRequestHeader('Cache-Control','no-cache');
  http.SetRequestHeader('Accept','application/json');

  //  Use your own account ID here.
  http.SetUrlVar('accountId','7f3f65ed-5e87-418d-94c1-92499ddc8252');
  //  Use the envelope ID returned by DocuSign when creating the draft envelope).
  http.SetUrlVar('envelopeId','cee4191c-f94e-4089-9d7c-8033685cbc1a');

  url := 'https://demo.docusign.net/restapi/v2.1/accounts/{$accountId}/envelopes/{$envelopeId}';

  resp := THttpResponse.Create;
  success := http.HttpSb('PUT',url,sbJson,'utf-8','application/json',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  jResp := TJsonObject.Create;
  jResp.Load(resp.BodyStr);
  jResp.EmitCompact := False;

  WriteLn('Response Body:');
  WriteLn(jResp.Emit());

  //  If you get a 401 response status code, it's likely you need to refresh the DocuSign OAuth2 token).
  respStatusCode := resp.StatusCode;
  WriteLn('Response Status Code = ' + respStatusCode);
  if (respStatusCode >= 400) then
    begin
      WriteLn('Response Header:');
      WriteLn(resp.Header);
      WriteLn('Failed.');
      Exit;
    end;

  //  Sample JSON response:
  //  (Sample code for parsing the JSON response is shown below)

  //  If the envelope you're trying to send is not yet completed, you'll get an error such as this:
  //  {
  //    "errorCode": "ENVELOPE_IS_INCOMPLETE",
  //    "message": "The Envelope is not Complete. A Complete Envelope Requires Documents, Recipients, Tabs, and a Subject Line."
  //  }

  //  Sample code for parsing the JSON response...
  //  Use the following online tool to generate parsing code from sample JSON:
  //  Generate Parsing Code from JSON


  http.Free;
  jsonToken.Free;
  json.Free;
  sbJson.Free;
  resp.Free;
  jResp.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.