Chilkat HOME Android™ Classic ASP C C++ C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic Python Ruby SQL Server Swift Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js
(Visual Basic 6.0) REST through HTTP ProxyDemonstrates how to connect through an HTTP proxy to make REST API calls.
' 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 ChilkatRest Dim socket As New ChilkatSocket ' Set the HTTP proxy domain or IP address, and port. socket.HttpProxyHostname = "192.168.1.100" socket.HttpProxyPort = 8088 ' 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 Long bTls = 1 Dim port As Long port = 443 Dim maxWaitMs As Long maxWaitMs = 5000 Dim success As Long success = socket.Connect("s3.amazonaws.com",port,bTls,maxWaitMs) If (success <> 1) Then Text1.Text = Text1.Text & "Connect Failure Error Code: " & socket.ConnectFailReason & vbCrLf Text1.Text = Text1.Text & socket.LastErrorText & vbCrLf Exit Sub End If ' Use the proxied TLS connection: success = rest.UseConnection(socket) If (success <> 1) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Exit Sub End If ' Provide AWS credentials for the REST call. Dim authAws As New ChilkatAuthAws 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 <> 1) Then Text1.Text = Text1.Text & rest.LastErrorText & vbCrLf Exit Sub End If Dim xml As New ChilkatXml success = xml.LoadXml(responseXml) ' Show the full XML returned. Text1.Text = Text1.Text & xml.GetXml() & vbCrLf ' Iterate over the buckets, showing each bucket name. success = xml.FindChild2("Buckets") If (xml.FirstChild2() = 1) Then Text1.Text = Text1.Text & xml.GetChildContent("Name") & vbCrLf Do While (xml.NextSibling2() = 1) Text1.Text = Text1.Text & xml.GetChildContent("Name") & vbCrLf Loop End If ' Move the internal pointer back to the root node. xml.GetRoot2 |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.