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
(Xojo Plugin) Facebook Upload Photo from Local FileUploads a new photo with a caption from a local file.
// This example assumes Chilkat HTTP to have been previously unlocked. // See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim req As New Chilkat.HttpRequest req.HttpVerb = "POST" req.ContentType = "multipart/form-data" req.Path = "/v2.7/me/photos" // Use the previously obtained access token. // Note: The publish_actions scope is required to upload a photo. req.AddHeader "Authorization","Bearer FACEBOOK-ACCESS-TOKEN" // Send an "Expect: 100-continue" header in the request. // This causes the HTTP server to end a 100-continue response // immediately after receiving the HTTP header. The client // (Chilkat) will receive this intermediate response, and if // it's not an error response, it knows that the HTTP server will // accept the data that is forthcoming. // The alternative is to get an error response after trying to upload // the entire contents of the files. req.AddHeader "Expect","100-continue" // Set a photo caption. req.AddParam "caption","Here are some penguins!" // Additional parameters can be added to the request by // calling AddParam once per parameter. // See https://developers.facebook.com/docs/graph-api/reference/user/photos // for more information about other optional parameters. // Indicate the local file to be uploaded. Dim success As Boolean success = req.AddFileForUpload("source","qa_data/jpg/penguins2.jpg") If (success <> True) Then System.DebugLog(req.LastErrorText) Return End If // Upload the image file.. Dim resp As Chilkat.HttpResponse resp = http.SynchronousRequest("graph.facebook.com",443,True,req) If (http.LastMethodSuccess <> True) Then System.DebugLog(http.LastErrorText) Return End If // Examine the response body: Dim responseJson As String responseJson = resp.BodyStr System.DebugLog(responseJson) // The response contains JSON, such as this: // {"id":"10210224963435862","post_id":"10224048320139890_10210224963435862"} |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.