Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Google Drive Multipart Upload StringDemonstrates a file upload to Google Drive where the contents of the file are contained in a string variable.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Variant vGAuth Handle hoGAuth Handle hoRest Boolean iBAutoReconnect Handle hoJson String sJsonResponse String sTemp1 Integer iTemp1 Boolean bTemp1 // This example will upload a file to Google Drive. Move True To iSuccess // It requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatAuthGoogle)) To hoGAuth If (Not(IsComObjectCreated(hoGAuth))) Begin Send CreateComObject of hoGAuth End Set ComScope Of hoGAuth To "https://www.googleapis.com/auth/drive" Set ComSubEmailAddress Of hoGAuth To "some.user@example.com" Set ComExpireNumSeconds Of hoGAuth To 3600 // Obtain an access token as shown in one of the following examples: // See Get Access Token using a Service Account JSON Key // See Get Access Token using a P12 File Get Create (RefClass(cComChilkatRest)) To hoRest If (Not(IsComObjectCreated(hoRest))) Begin Send CreateComObject of hoRest End // Connect using TLS. Move True To iBAutoReconnect Get ComConnect Of hoRest "www.googleapis.com" 443 True iBAutoReconnect To iSuccess // Provide the authentication credentials (i.e. the access key) Get pvComObject of hoGAuth to vGAuth Get ComSetAuthGoogle Of hoRest vGAuth To iSuccess // A multipart upload to Google Drive needs a multipart/related Content-Type Get ComAddHeader Of hoRest "Content-Type" "multipart/related" To iSuccess // Specify each part of the request. // The 1st part is JSON with information about the file. Set ComPartSelector Of hoRest To "1" Get ComAddHeader Of hoRest "Content-Type" "application/json; charset=UTF-8" To iSuccess Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComAddStringAt Of hoJson -1 "title" "helloWorld.txt" To iSuccess Get ComAddStringAt Of hoJson -1 "description" "A simple text file that says Hello World." To iSuccess Get ComAddStringAt Of hoJson -1 "mimeType" "text/plain" To iSuccess Get ComEmit Of hoJson To sTemp1 Get ComSetMultipartBodyString Of hoRest sTemp1 To iSuccess // The 2nd part is the file content. // In this case, we'll upload a simple text file containing "Hello World!" Set ComPartSelector Of hoRest To "2" Get ComAddHeader Of hoRest "Content-Type" "text/plain" To iSuccess Get ComSetMultipartBodyString Of hoRest "Hello World!" To iSuccess // POST https://www.googleapis.com/upload/drive/v2/files Get ComFullRequestMultipart Of hoRest "POST" "/upload/drive/v2/files?uploadType=multipart" To sJsonResponse Get ComLastMethodSuccess Of hoRest To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoRest To sTemp1 Showln sTemp1 Procedure_Return End // Show the JSON response. Get ComResponseStatusCode Of hoRest To iTemp1 Showln "Response Status Code: " iTemp1 Showln "Json Response: " sJsonResponse End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.