Visual FoxPro

Example: Http.SetOAuthRsaKey method

Demonstrates the SetOAuthRsaKey method. Visual FoxPro

LOCAL lnSuccess
LOCAL loPfx
LOCAL loPrivKey
LOCAL loHttp
LOCAL loResp

lnSuccess = 0

loPfx = CreateObject('Chilkat.Pfx')
lnSuccess = loPfx.LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12","keystorepassword")
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loPfx.PrivateKeyAt(0,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    RELEASE loPrivKey
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')

* Use OAuth1.0a authentication.
loHttp.OAuth1 = 1

* Use your own consumer key (this is not a valid consumer key)
loHttp.OAuthConsumerKey = "123abc"

loHttp.OAuthSigMethod = "RSA-SHA256"

lnSuccess = loHttp.SetOAuthRsaKey(loPrivKey)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loPfx
    RELEASE loPrivKey
    RELEASE loHttp
    CANCEL
ENDIF

* Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
loHttp.OAuthBodyHash = 1

* Send this request to an endpoint at chilkatsoft.com.  The purpose of this example is to show
* how the OAuth1.0a Authorization header is computed and sent by Chilkat.
* The chilkatsoft.com site itself doesn't do OAuth1.  It's just ignoring the Authorization header.
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST","https://chilkatsoft.com/echo_request_body.asp","<notUsed>123</notUsed>","utf-8","application/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loPfx
    RELEASE loPrivKey
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

* Examine the request header we just sent..
? loHttp.LastHeader

* Sample output:

* POST /echo_request_body.asp HTTP/1.1
* Host: chilkatsoft.com
* Accept: */*
* Accept-Encoding: gzip
* Content-Type: application/xml
* Content-Length: 22
* Authorization: OAuth oauth_consumer_key="123abc", oauth_nonce="A2E91C3B53E0BD7FBF71F441336679E358DDCEEE", oauth_body_hash="a5kPTsDwUwmBjC0voNlAAvM6YoaRS5X7sTO49jl3/h8=", oauth_timestamp="1756324932", oauth_signature_method="RSA-SHA256", oauth_version="1.0", oauth_signature="*****"

RELEASE loPfx
RELEASE loPrivKey
RELEASE loHttp
RELEASE loResp