Xbase++ Requires Chilkat v11.0.0+

Facebook Upload Photo from Local File

See more Facebook Examples

Uploads a new photo with a caption from a local file. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oReq
LOCAL oResp
LOCAL cResponseJson

nSuccess := 0

//  This example assumes Chilkat HTTP to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("Chilkat.Http")

oReq := CreateObject("Chilkat.HttpRequest")
oReq:HttpVerb := "POST"
oReq:ContentType := "multipart/form-data"
oReq:Path := "/v2.7/me/photos"

//  Use the previously obtained access token.
//  Note: The publish_actions scope is required to upload a photo.
oReq: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.
oReq:AddHeader("Expect", "100-continue")

//  Set a photo caption.
oReq: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.
nSuccess := oReq:AddFileForUpload("source", "qa_data/jpg/penguins2.jpg")
IF (nSuccess == 0)
    ? oReq:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    RETURN
ENDIF

//  Upload the image file..
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("graph.facebook.com", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Examine the response body:
cResponseJson := oResp:BodyStr
? cResponseJson

//  The response contains JSON, such as this:
//  {"id":"10210224963435862","post_id":"10224048320139890_10210224963435862"}

oHttp:destroy()
oReq:destroy()
oResp:destroy()