(PureBasic) NetSuite OAuth1

See more OAuth1 Examples

Demonstrates adding OAUth1 authentication to a NetSuite REST API request.

Note: This examples requires Chilkat v9.5.0.94 or later. (Or a hotfix from Chilkat for v9.5.0.93)

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    ; It requires the Chilkat API 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

    CkHttp::setCkOAuth1(http, 1)
    CkHttp::setCkOAuthConsumerKey(http, "CONSUMER_KEY")
    CkHttp::setCkOAuthConsumerSecret(http, "CONSUMER_SECRET")
    CkHttp::setCkOAuthToken(http, "ACCESS_TOKEN")
    CkHttp::setCkOAuthTokenSecret(http, "TOKEN_SECRET")
    CkHttp::setCkOAuthRealm(http, "ACCOUNT_ID")
    CkHttp::setCkOAuthSigMethod(http, "HMAC-SHA256")

    ; Not sure if this is needed for NetSuite requests.
    CkHttp::ckSetRequestHeader(http,"Cookie","NS_ROUTING_VERSION=LAGGING")

    ; Replace ACCOUNT_ID with your actual account id, which is likely a 7-digit decimal number.
    resp.i = CkHttp::ckQuickRequest(http,"GET","https://ACCOUNT_ID.suitetalk.api.netsuite.com/services/rest/record/v1/salesOrder")
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug "Response Status Code: " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "Response Body:"
    Debug CkHttpResponse::ckBodyStr(resp)

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure