(Xojo Plugin) REST through HTTP Proxy

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.
Dim rest As New Chilkat.Rest
Dim socket As New Chilkat.Socket

// Set the HTTP proxy domain or IP address, and port.
socket.HttpProxyHostname = "192.168.1.100"
socket.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).
socket.HttpProxyForHttp = True

// 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.
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim maxWaitMs As Int32
maxWaitMs = 5000
Dim success As Boolean
success = socket.Connect("s3.amazonaws.com",port,bTls,maxWaitMs)
If (success <> True) Then
    System.DebugLog("Connect Failure Error Code: " + Str(socket.ConnectFailReason))
    System.DebugLog(socket.LastErrorText)
    Return
End If

// Use the proxied TLS connection:
success = rest.UseConnection(socket,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// Provide AWS credentials for the REST call.
Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

// List all buckets for the account...
Dim responseXml As String
responseXml = rest.FullRequestNoBody("GET","/")
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim xml As New Chilkat.Xml
success = xml.LoadXml(responseXml)

// Show the full XML returned.
System.DebugLog(xml.GetXml())

// Iterate over the buckets, showing each bucket name.
success = xml.FindChild2("Buckets")
If (xml.FirstChild2() = True) Then
    System.DebugLog(xml.GetChildContent("Name"))
    While (xml.NextSibling2() = True)
        System.DebugLog(xml.GetChildContent("Name"))
    Wend
End If

// Move the internal pointer back to the root node.
xml.GetRoot2