(PowerBuilder) REST through HTTP Proxy

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
oleobject loo_Socket
integer li_BTls
integer li_Port
integer li_MaxWaitMs
integer li_Success
oleobject loo_AuthAws
string ls_ResponseXml
oleobject loo_Xml

// 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.
loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Socket = create oleobject
// Use "Chilkat_9_5_0.Socket" for versions of Chilkat < 10.0.0
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")

// Set the HTTP proxy domain or IP address, and port.
loo_Socket.HttpProxyHostname = "192.168.1.100"
loo_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).
loo_Socket.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.
li_BTls = 1
li_Port = 443
li_MaxWaitMs = 5000
li_Success = loo_Socket.Connect("s3.amazonaws.com",li_Port,li_BTls,li_MaxWaitMs)
if li_Success <> 1 then
    Write-Debug "Connect Failure Error Code: " + string(loo_Socket.ConnectFailReason)
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Rest
    destroy loo_Socket
    return
end if

// Use the proxied TLS connection:
li_Success = loo_Rest.UseConnection(loo_Socket,1)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_Socket
    return
end if

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
// Use "Chilkat_9_5_0.AuthAws" for versions of Chilkat < 10.0.0
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
loo_AuthAws.ServiceName = "s3"
li_Success = loo_Rest.SetAuthAws(loo_AuthAws)

// List all buckets for the account...
ls_ResponseXml = loo_Rest.FullRequestNoBody("GET","/")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_Socket
    destroy loo_AuthAws
    return
end if

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

li_Success = loo_Xml.LoadXml(ls_ResponseXml)

// Show the full XML returned.
Write-Debug loo_Xml.GetXml()

// Iterate over the buckets, showing each bucket name.
li_Success = loo_Xml.FindChild2("Buckets")
if loo_Xml.FirstChild2() = 1 then
    Write-Debug loo_Xml.GetChildContent("Name")
    do while (loo_Xml.NextSibling2() = 1)
        Write-Debug loo_Xml.GetChildContent("Name")
    loop
end if

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


destroy loo_Rest
destroy loo_Socket
destroy loo_AuthAws
destroy loo_Xml