PowerBuilder

REST through SOCKS Proxy

See more REST Examples

Demonstrates how to connect through a SOCKS proxy to make REST API calls. PowerBuilder

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

li_Success = 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 a SOCKS proxy.
// It will connect to the Amazon AWS service for this example.
loo_Rest = create oleobject
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
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")

// Set the SOCKS proxy domain or IP address, port, and SOCKS version number (4 or 5)
loo_Socket.SocksHostname = "192.168.1.100"
loo_Socket.SocksPort = 1080
loo_Socket.SocksVersion = 5
// Other properties exist for specifying a SOCKS proxy login and password,
// 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
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
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