PureBasic 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. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "multipart/form-data")
    CkHttpRequest::setCkPath(req, "/v2.7/me/photos")

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

    ;  Set a photo caption.
    CkHttpRequest::ckAddParam(req,"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.
    success = CkHttpRequest::ckAddFileForUpload(req,"source","qa_data/jpg/penguins2.jpg")
    If success = 0
        Debug CkHttpRequest::ckLastErrorText(req)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        ProcedureReturn
    EndIf

    ;  Upload the image file..
    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,"graph.facebook.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ;  Examine the response body:
    responseJson.s = CkHttpResponse::ckBodyStr(resp)
    Debug responseJson

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


    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure