Xbase++

REST through HTTP Proxy

See more REST Examples

Demonstrates how to connect through an HTTP proxy to make REST API calls. Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL oSocket
LOCAL nBTls
LOCAL nPort
LOCAL nMaxWaitMs
LOCAL oAuthAws
LOCAL cResponseXml
LOCAL oXml

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  This example connects to a REST server through an HTTP proxy.
//  It will connect to the Amazon AWS service for this example.
oRest := CreateObject("Chilkat.Rest")
oSocket := CreateObject("Chilkat.Socket")

//  Set the HTTP proxy domain or IP address, and port.
oSocket:HttpProxyHostname := "192.168.1.100"
oSocket:HttpProxyPort := 8088

//  We want to tell the socket object that we're doing HTTP over the proxy connection.
//  This is because an HTTP proxy used for other protocols (IMAP, SMTP, SSH, FTP, etc.) 
//  can require some internal differences in behavior (i.e. how we do things).
oSocket:HttpProxyForHttp := 1

//  Other properties exist for specifying a proxy login, password, and authentication method (such as NTLM),
//  but these are not used in this example.

//  Connect through the HTTP proxy to the Amazon AWS server for the S3 service.
nBTls := 1
nPort := 443
nMaxWaitMs := 5000
nSuccess := oSocket:Connect("s3.amazonaws.com", nPort, nBTls, nMaxWaitMs)
IF (nSuccess != 1)
    ? "Connect Failure Error Code: " + Str(oSocket:ConnectFailReason)
    ? oSocket:LastErrorText
    oRest:destroy()
    oSocket:destroy()
    RETURN
ENDIF

//  Use the proxied TLS connection:
nSuccess := oRest:UseConnection(oSocket, 1)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oSocket:destroy()
    RETURN
ENDIF

//  Provide AWS credentials for the REST call.
oAuthAws := CreateObject("Chilkat.AuthAws")
oAuthAws:AccessKey := "AWS_ACCESS_KEY"
oAuthAws:SecretKey := "AWS_SECRET_KEY"
oAuthAws:ServiceName := "s3"
nSuccess := oRest:SetAuthAws(oAuthAws)

//  List all buckets for the account...
cResponseXml := oRest:FullRequestNoBody("GET", "/")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oSocket:destroy()
    oAuthAws:destroy()
    RETURN
ENDIF

oXml := CreateObject("Chilkat.Xml")
nSuccess := oXml:LoadXml(cResponseXml)

//  Show the full XML returned.
? oXml:GetXml()

//  Iterate over the buckets, showing each bucket name.
nSuccess := oXml:FindChild2("Buckets")
IF (oXml:FirstChild2() == 1)
    ? oXml:GetChildContent("Name")
    DO WHILE (oXml:NextSibling2() == 1)
        ? oXml:GetChildContent("Name")
    ENDDO
ENDIF

//  Move the internal pointer back to the root node.
oXml:GetRoot2()

oRest:destroy()
oSocket:destroy()
oAuthAws:destroy()
oXml:destroy()