Xbase++

Yousign: List Files

See more Yousign Examples

List Yousign files. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oSbResponseBody
LOCAL oJson
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 nFieldsCompatible
LOCAL cCompany
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 GET 'https://staging-api.yousign.com/files' \
//  --header 'Authorization: Bearer YOUR_API_KEY' \
//  --header 'Content-Type: application/json'

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

//  Adds the "Authorization: Bearer YOUR_API_KEY" header.
oHttp:AuthToken := "YOUR_API_KEY"
oHttp:SetRequestHeader("Content-Type", "application/json")

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb("https://staging-api.yousign.com/files", oSbResponseBody)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

oJson := CreateObject("Chilkat.JsonObject")
oJson:LoadSb(oSbResponseBody)
oJson:EmitCompact := 0

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

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

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

//  {
//    "id": "\/files\/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX",
//    "name": "abc.pdf",
//    "type": "signable",
//    "contentType": "application\/pdf",
//    "description": null,
//    "createdAt": "2020-05-27T09:14:12+02:00",
//    "updatedAt": "2020-05-27T09:14:12+02:00",
//    "sha256": "ea2a92b0eff5bebfa3ccd869fd61e27bb7fe973d0dff63f106d8b0d614469fa0",
//    "metadata": [
//    ],
//    "workspace": "\/workspaces\/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX",
//    "creator": null,
//    "fileObjects": [
//    ],
//    "protected": false,
//    "position": 0,
//    "parent": null,
//    "fieldsCompatible": true,
//    "company": "\/companies\/XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"
//  }

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

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

oHttp:destroy()
oSbResponseBody:destroy()
oJson:destroy()