Pascal (Lazarus/Delphi)

REST Upload Bandwidth Throttle

See more REST Examples

Demonstrates how to use upload bandwidth throttling with the REST API. This example will upload a file to Drobox using a file stream, with a limit on the bandwidth that can be used for the transfer. 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.CkDateTime,
  Chilkat.DtObj,
  Chilkat.Socket,
  Chilkat.Stream,
  Chilkat.Rest,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  socket: TSocket;
  maxWaitMs: Integer;
  rest: TRest;
  json: TJsonObject;
  fileStream: TStream;
  responseStr: string;
  jsonResp: TJsonObject;
  size: Integer;
  rev: string;
  clientModified: string;
  ckdt: TCkDateTime;
  bLocalTime: Boolean;
  dt: TDtObj;

begin
  success := False;

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

  //  A Dropbox access token should have been previously obtained.
  //  Dropbox access tokens do not expire.
  //  See Dropbox Access Token.

  //  To use bandwidth throttling, the connection should be made using the socket API.
  //  This provides numerous properties to customize the connection, such as
  //  BandwidthThrottleDown, BandwidthThrottleUp, ClientIpAddress, ClintPort, Http Proxy,
  //  KeepAlive, PreferIpv6, RequireSslCertVerify, SoRcvBuf, SoSndBuf, SoReuseAddr,
  //  SOCKS proxy, TcpNoSDelay, TlsPinSet, TlsCipherSuite, SslAllowedCiphers, etc.

  socket := TSocket.Create;
  maxWaitMs := 5000;
  success := socket.Connect('content.dropboxapi.com',443,True,maxWaitMs);
  if (success <> True) then
    begin
      WriteLn(socket.LastErrorText);
      WriteLn('Connect Fail Reason: ' + socket.ConnectFailReason);
      Exit;
    end;

  //  Set the upload bandwidth throttle rate to 50000 bytes per second.
  socket.BandwidthThrottleUp := 50000;

  rest := TRest.Create;

  //  Tell the REST object to use the connected socket.
  rest.UseConnection(socket,True);

  //  The remainder of this example is identical to the example at:
  //  Dropbox File Stream Upload.

  //  Add request headers.
  rest.AddHeader('Content-Type','application/octet-stream');
  rest.AddHeader('Authorization','Bearer DROPBOX_ACCESS_TOKEN');

  //  The upload "parameters" contained in JSON passed in an HTTP request header.
  //  This is the JSON to be added in this example:
  //  { 
  //     "path": "/Homework/lit/hamlet.xml",
  //     "mode": "add",
  //     "autorename": true,
  //     "mute": false
  //  }

  json := TJsonObject.Create;
  json.AppendString('path','/Homework/lit/hamlet.xml');
  json.AppendString('mode','add');
  json.AppendBool('autorename',True);
  json.AppendBool('mute',False);
  rest.AddHeader('Dropbox-API-Arg',json.Emit());

  //  Almost ready to go...
  //  Let's setup a file stream to point to a file.
  fileStream := TStream.Create;
  fileStream.SourceFile := 'qa_data/xml/hamlet.xml';

  //  Do the upload.  The URL is https://content.dropboxapi.com/2/files/upload.
  //  We already connected to content.dropboxapi.com using TLS (i.e. HTTPS),
  //  so now we only need to specify the path "/2/files/upload".

  //  Note: The file is streamed directly from disk.  (The entire
  //  file will not be loaded into memory.)
  responseStr := rest.FullRequestStream('POST','/2/files/upload',fileStream);
  if (rest.LastMethodSuccess = False) then
    begin
      WriteLn(rest.LastErrorText);
      Exit;
    end;

  //  When successful, Dropbox responds with a 200 response code.
  if (rest.ResponseStatusCode <> 200) then
    begin
      //  Examine the request/response to see what happened.
      WriteLn('response status code = ' + rest.ResponseStatusCode);
      WriteLn('response status text = ' + rest.ResponseStatusText);
      WriteLn('response header: ' + rest.ResponseHeader);
      WriteLn('response body (if any): ' + responseStr);
      WriteLn('---');
      WriteLn('LastRequestStartLine: ' + rest.LastRequestStartLine);
      WriteLn('LastRequestHeader: ' + rest.LastRequestHeader);
      Exit;
    end;

  //  The response is JSON.
  jsonResp := TJsonObject.Create;
  jsonResp.EmitCompact := False;
  jsonResp.Load(responseStr);

  //  Show the JSON response.
  WriteLn(jsonResp.Emit());

  //  Returns JSON that looks like this:
  //  { 
  //    "name": "hamlet.xml",
  //    "path_lower": "/homework/lit/hamlet.xml",
  //    "path_display": "/Homework/lit/hamlet.xml",
  //    "id": "id:74FkdeNuyKAAAAAAAAAAAQ",
  //    "client_modified": "2016-06-02T23:19:00Z",
  //    "server_modified": "2016-06-02T23:19:00Z",
  //    "rev": "9482db15f",
  //    "size": 279658
  //  }

  //  Sample code to get data from the JSON response:
  size := jsonResp.IntOf('size');
  WriteLn('size = ' + size);

  rev := jsonResp.StringOf('rev');
  WriteLn('rev = ' + rev);

  clientModified := jsonResp.StringOf('client_modified');
  ckdt := TCkDateTime.Create;
  ckdt.SetFromTimestamp(clientModified);
  bLocalTime := True;
  dt := TDtObj.Create;
  ckdt.ToDtObj(bLocalTime,dt);

  WriteLn(dt.Day + '/' + dt.Month + '/' + dt.Year + ' ' + dt.Hour + ':' + dt.Minute);


  socket.Free;
  rest.Free;
  json.Free;
  fileStream.Free;
  jsonResp.Free;
  ckdt.Free;
  dt.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.