(Lianja) Frame.io - Upload an Asset

Upload an asset to Frame.io

For more information, see https://docs.frame.io/docs/uploading-assets

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

// Implements the following CURL command:

// curl --request POST \
//   --url https://api.frame.io/v2/assets/<ASSET_ID>/children \
//   --header 'authorization: Bearer <FRAME_IO_DEV_TOKEN>' \
//   --header 'content-type: application/json' \
//   --data '{"filesize":1570024 ,"filetype":"video/mp4","name":"rotating_earth","type":"file"}'

// 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.

// {
//   "filesize": 1570024,
//   "filetype": "video/mp4",
//   "name": "rotating_earth",
//   "type": "file"
// }

lcLocalFilePath = "qa_data/mp4/rotating_earth.mp4"
loFac = createobject("CkFileAccess")
lnFileSize = loFac.FileSize(lcLocalFilePath)

loJson = createobject("CkJsonObject")
loJson.UpdateInt("filesize",lnFileSize)
loJson.UpdateString("filetype","video/mp4")
loJson.UpdateString("name","rotating_earth7")
loJson.UpdateString("type","file")

loHttp.SetRequestHeader("content-type","application/json")
// Adds the "Authorization: Bearer <FRAME_IO_DEV_TOKEN>" header.
loHttp.AuthToken = "<FRAME_IO_DEV_TOKEN>"

// Uploading to asset ID: 039845e8-bffe-4d6b-88d3-c780bae06342
loResp = loHttp.PostJson3("https://api.frame.io/v2/assets/039845e8-bffe-4d6b-88d3-c780bae06342/children","application/json",loJson)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loFac
    release loJson
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
loResp.GetBodySb(loSbResponseBody)
loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    release loResp
    release loHttp
    release loFac
    release loJson
    release loSbResponseBody
    release loJResp
    return
endif

release loResp

// Upload in chunks to the pre-signed S3 upload URLs.
// There are ways to do this in parallel, but for simplicity we'll show how to upload
// one chunk after another.
lnNumChunks = loJResp.SizeOfArray("upload_urls")
lnSizePerChunk = (lnFileSize + lnNumChunks - 1) / lnNumChunks

? "numChunks = " + str(lnNumChunks)
? "sizePerChunk = " + str(lnSizePerChunk)

llSuccess = loFac.OpenForRead(lcLocalFilePath)
if (llSuccess = .F.) then
    ? loFac.LastErrorText
    release loHttp
    release loFac
    release loJson
    release loSbResponseBody
    release loJResp
    return
endif

loBd = createobject("CkBinData")
loHttpForUpload = createobject("CkHttp")

loHttpForUpload.SetRequestHeader("x-amz-acl","private")

i = 0
do while (i < lnNumChunks)
    loBd.Clear()
    llSuccess = loFac.ReadBlockBd(i,lnSizePerChunk,loBd)

    loJResp.I = i
    lcUploadUrl = loJResp.StringOf("upload_urls[i]")

    // Send the chunk in a PUT:

    ? "PUT chunk " + str(i + 1)
    ? "URL: " + lcUploadUrl

    // PUT https://frameio-uploads-production.s3/etc/etc
    // Content-Type: video/mp4
    // x-amz-acl: private

    loResp = loHttpForUpload.PBinaryBd("PUT",lcUploadUrl,loBd,"video/mp4",.F.,.F.)
    if (loHttpForUpload.LastMethodSuccess = .F.) then
        ? loHttpForUpload.LastErrorText
        release loHttp
        release loFac
        release loJson
        release loSbResponseBody
        release loJResp
        release loBd
        release loHttpForUpload
        return
    endif

    ? "response status: " + str(loResp.StatusCode)

    release loResp

    i = i + 1
enddo

loFac.FileClose()

? "File uploaded."


release loHttp
release loFac
release loJson
release loSbResponseBody
release loJResp
release loBd
release loHttpForUpload