Delphi ActiveX

Frame.io - Upload an Asset

See more Frame.io Examples

Upload an asset to Frame.io Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
localFilePath: WideString;
fac: TCkFileAccess;
fileSize: Integer;
json: TChilkatJsonObject;
resp: TChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
numChunks: Integer;
sizePerChunk: Integer;
bd: TChilkatBinData;
httpForUpload: TChilkatHttp;
i: Integer;
uploadUrl: WideString;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

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

localFilePath := 'qa_data/mp4/rotating_earth.mp4';
fac := TCkFileAccess.Create(Self);
fileSize := fac.FileSize(localFilePath);

json := TChilkatJsonObject.Create(Self);
json.UpdateInt('filesize',fileSize);
json.UpdateString('filetype','video/mp4');
json.UpdateString('name','rotating_earth7');
json.UpdateString('type','file');

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

// Uploading to asset ID: 039845e8-bffe-4d6b-88d3-c780bae06342
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://api.frame.io/v2/assets/039845e8-bffe-4d6b-88d3-c780bae06342/children',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// 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.
numChunks := jResp.SizeOfArray('upload_urls');
sizePerChunk := (fileSize + numChunks - 1) / numChunks;

Memo1.Lines.Add('numChunks = ' + IntToStr(numChunks));
Memo1.Lines.Add('sizePerChunk = ' + IntToStr(sizePerChunk));

success := fac.OpenForRead(localFilePath);
if (success = 0) then
  begin
    Memo1.Lines.Add(fac.LastErrorText);
    Exit;
  end;

bd := TChilkatBinData.Create(Self);
httpForUpload := TChilkatHttp.Create(Self);

httpForUpload.SetRequestHeader('x-amz-acl','private');

i := 0;
while (i < numChunks) do
  begin
    bd.Clear();
    success := fac.ReadBlockBd(i,sizePerChunk,bd.ControlInterface);

    jResp.I := i;
    uploadUrl := jResp.StringOf('upload_urls[i]');

    // Send the chunk in a PUT:

    Memo1.Lines.Add('PUT chunk ' + IntToStr(i + 1));
    Memo1.Lines.Add('URL: ' + uploadUrl);

    // PUT https://frameio-uploads-production.s3/etc/etc
    // Content-Type: video/mp4
    // x-amz-acl: private
    success := httpForUpload.HttpBd('PUT',uploadUrl,bd.ControlInterface,'video/mp4',resp.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(httpForUpload.LastErrorText);
        Exit;
      end;

    Memo1.Lines.Add('response status: ' + IntToStr(resp.StatusCode));

    i := i + 1;
  end;

fac.FileClose();

Memo1.Lines.Add('File uploaded.');
end;