![]() |
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) Upload String to DropboxUploads a string to a file on Dropbox. This example can upload content up to 150MB, assuming a 150MB string fits in memory for your app. 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 lcContent LOCAL loJson 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": "/jack.txt", * "mode": "add", * "autorename": true, * "mute": false * } * This will be the content of the file created in Dropbox. lcContent = "All work and no play makes Jack a dull boy" loJson = CreateObject('Chilkat.JsonObject') loJson.AppendString("path","/jack.txt") loJson.AppendString("mode","add") loJson.AppendBool("autorename",1) loJson.AppendBool("mute",0) loRest.AddHeader("Dropbox-API-Arg",loJson.Emit()) * 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". lcResponseStr = loRest.FullRequestString("POST","/2/files/upload",lcContent) IF (loRest.LastMethodSuccess = 0) THEN ? loRest.LastErrorText RELEASE loRest RELEASE loJson 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 CANCEL ENDIF ? "LastRequestHeader: " + loRest.LastRequestHeader * 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": "jack.txt", * "path_lower": "/jack.txt", * "path_display": "/jack.txt", * "id": "id:yqx4-tE_NKAAAAAAAAAAAQ", * "client_modified": "2016-06-02T20:42:11Z", * "server_modified": "2016-06-02T20:42:11Z", * "rev": "8482db15f", * "size": 42 * } * 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 loJsonResp RELEASE loCkdt RELEASE loDt |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.