![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Dropbox File Streaming UploadUpload a file to Drobox using a file stream. This example can upload files up to 150MB. Larger files must be uploaded with an upload session (upload_session/start). Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loRest LOCAL loJson LOCAL loFileStream LOCAL lcResponseStr LOCAL loJsonResp LOCAL lnSize LOCAL lcRev LOCAL lcClientModified LOCAL loCkdt LOCAL lnBLocalTime LOCAL loDt lnSuccess = 0 * 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. loRest = CreateObject('Chilkat.Rest') * Connect to Dropbox lnSuccess = loRest.Connect("content.dropboxapi.com",443,1,1) IF (lnSuccess = 0) THEN ? loRest.LastErrorText RELEASE loRest CANCEL ENDIF * Add request headers. loRest.AddHeader("Content-Type","application/octet-stream") loRest.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 * } loJson = CreateObject('Chilkat.JsonObject') loJson.AppendString("path","/Homework/lit/hamlet.xml") loJson.AppendString("mode","add") loJson.AppendBool("autorename",1) loJson.AppendBool("mute",0) loRest.AddHeader("Dropbox-API-Arg",loJson.Emit()) * Almost ready to go... * Let's setup a file stream to point to a file. loFileStream = CreateObject('Chilkat.Stream') loFileStream.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.) lcResponseStr = loRest.FullRequestStream("POST","/2/files/upload",loFileStream) IF (loRest.LastMethodSuccess = 0) THEN ? loRest.LastErrorText RELEASE loRest RELEASE loJson RELEASE loFileStream CANCEL ENDIF * When successful, Dropbox responds with a 200 response code. IF (loRest.ResponseStatusCode <> 200) THEN * Examine the request/response to see what happened. ? "response status code = " + STR(loRest.ResponseStatusCode) ? "response status text = " + loRest.ResponseStatusText ? "response header: " + loRest.ResponseHeader ? "response body (if any): " + lcResponseStr ? "---" ? "LastRequestStartLine: " + loRest.LastRequestStartLine ? "LastRequestHeader: " + loRest.LastRequestHeader RELEASE loRest RELEASE loJson RELEASE loFileStream CANCEL ENDIF * The response is JSON. loJsonResp = CreateObject('Chilkat.JsonObject') loJsonResp.EmitCompact = 0 loJsonResp.Load(lcResponseStr) * Show the JSON response. ? loJsonResp.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: lnSize = loJsonResp.IntOf("size") ? "size = " + STR(lnSize) lcRev = loJsonResp.StringOf("rev") ? "rev = " + lcRev lcClientModified = loJsonResp.StringOf("client_modified") loCkdt = CreateObject('Chilkat.CkDateTime') loCkdt.SetFromTimestamp(lcClientModified) lnBLocalTime = 1 loDt = CreateObject('Chilkat.DtObj') loCkdt.ToDtObj(lnBLocalTime,loDt) ? STR(loDt.Day) + "/" + STR(loDt.Month) + "/" + STR(loDt.Year) + " " + STR(loDt.Hour) + ":" + STR(loDt.Minute) RELEASE loRest RELEASE loJson RELEASE loFileStream RELEASE loJsonResp RELEASE loCkdt RELEASE loDt |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.