Xbase++

Yousign Procedure Creation Basic Mode Upload File

See more Yousign Examples

Demonstrates the 1st step of Yousign procedure creation, which is to upload a PDF file. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oPdfData
LOCAL oJson
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cId
LOCAL cName
LOCAL cV_type
LOCAL cContentType
LOCAL cDescription
LOCAL cCreatedAt
LOCAL cUpdatedAt
LOCAL cSha256
LOCAL cWorkspace
LOCAL cCreator
LOCAL nV_protected
LOCAL nPosition
LOCAL cParent
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl --location --request POST 'https://staging-api.yousign.com/files' \
//  --header 'Authorization: Bearer YOUR_API_KEY' \
//  --header 'Content-Type: application/json' \
//  --data-raw '{
//      "name": "The best name for my file.pdf",
//      "content": "JVBERi0..." }'

//  Load a PDF file to be uploaded.
oPdfData := CreateObject("Chilkat.BinData")
nSuccess := oPdfData:LoadFile("qa_data/pdf/helloWorld.pdf")
IF (nSuccess == 0)
    ? "Failed to load PDF local file."
    oHttp:destroy()
    oPdfData:destroy()
    RETURN
ENDIF

//  Use the following online tool to generate HTTP code from a CURL command
//  Convert a cURL Command to HTTP Source Code

//  Use this online tool to generate code from sample JSON:
//  Generate Code to Create JSON

//  The following JSON is sent in the request body.

//  {
//    "name": "The best name for my file.pdf",
//    "content": "JVBERi0..."
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("name", "helloWorld.pdf")
oJson:UpdateString("content", oPdfData:GetEncoded("base64"))

//  Adds the "Authorization: Bearer YOUR_API_KEY" header.
oHttp:AuthToken := "YOUR_API_KEY"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://staging-api.yousign.com/files", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oPdfData:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oPdfData:destroy()
    oJson:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

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

//  {
//    "id": "/files/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX",
//    "name": "The best name for my file.pdf",
//    "type": "signable",
//    "contentType": "application/pdf",
//    "description": null,
//    "createdAt": "2018-12-01T11:36:20+01:00",
//    "updatedAt": "2018-12-01T11:36:20+01:00",
//    "sha256": "bb57ae2b2ca6ad0133a699350d1a6f6c8cdfde3cf872cf526585d306e4675cc2",
//    "metadata": [
//    ],
//    "workspace": "/workspaces/XXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX",
//    "creator": null,
//    "protected": false,
//    "position": 0,
//    "parent": null
//  }

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

cId := oJResp:StringOf("id")
cName := oJResp:StringOf("name")
cV_type := oJResp:StringOf("type")
cContentType := oJResp:StringOf("contentType")
cDescription := oJResp:StringOf("description")
cCreatedAt := oJResp:StringOf("createdAt")
cUpdatedAt := oJResp:StringOf("updatedAt")
cSha256 := oJResp:StringOf("sha256")
cWorkspace := oJResp:StringOf("workspace")
cCreator := oJResp:StringOf("creator")
nV_protected := oJResp:BoolOf("protected")
nPosition := oJResp:IntOf("position")
cParent := oJResp:StringOf("parent")
i := 0
nCount_i := oJResp:SizeOfArray("metadata")
DO WHILE i < nCount_i
    oJResp:I := i
    i := i + 1
ENDDO

oHttp:destroy()
oPdfData:destroy()
oJson:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()