Visual Basic 6.0

Demonstrate the REST FullRequestNoBodySb Method

See more REST Examples

Demonstrates the FullRequestNoBodySb method, which sends an HTTP request with no body and receives the response in a Chilkat StringBuilder object. Visual Basic 6.0

Dim success As Long
success = 0

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

Dim rest As New ChilkatRest

' Connect to the REST server.
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("chilkatsoft.com",port,bTls,bAutoReconnect)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' Send an HTTP request with no body...

' An HTTP request with no body is a simple HTTP request that is typically a GET or DELETE.
' (POST and PUT requests typically have a request body.)
' The GET method is used to request data from a specified resource, 
' and it does not have a request body. Here's an example of an HTTP GET request:
' 
' GET /api/data HTTP/1.1
' Host: example.com
' Accept: application/json
' 
'  - The HTTP method (also known as the verb) is "GET," indicating that the client wants to retrieve data from the specified resource.
'  - The request path is "/api/data," representing the resource the client wants to access.
'  - The "Host" header specifies the hostname of the server being requested.  Chilkat automatically adds it.
'  - The "Accept" header indicates the media type (MIME type) that the client can understand and would like to receive in the response. In this case, it specifies that the client prefers to receive data in JSON format.
' 
' Since the GET method does not have a request body, the request ends after the headers. 
' The server will process the request, retrieve the requested data (if available), and respond with an HTTP response 
' containing the requested data (if any) in the message body.
' 
' The body of the HTTP response is written to the StringBuilder object (overwriting whatever content the StringBuilder may have already contained).
' 

success = rest.AddHeader("Accept","application/json")

Dim sbJson As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("GET","/testData/helloWorld.json",sbJson)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Debug.Print "Response status code = " & rest.ResponseStatusCode
Debug.Print "Response body:"
Debug.Print sbJson.GetAsString()