Visual Basic 6.0

QuickDeleteStr Example

Sends a DELETE request to a URL. The URL can potentially include params, and custom request headers can be added. Visual Basic 6.0

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

Dim http As New ChilkatHttp
Dim statusCode As Long

' Specifiy a session log file so we can see the exact request/response
http.SessionLogFilename = "c:/aaworkarea/sessionLog.txt"

' Perhaps add a custom header or two..
http.SetRequestHeader "x-exz-date","20201012T235046Z"
http.SetRequestHeader "x-exz-id","1234"

' Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
Dim url As String
url = "https://www.example.com/someting?param1=123&param2=abc"
Dim reponseBodyStr As String
reponseBodyStr = http.QuickDeleteStr(url)
If (http.LastMethodSuccess = 0) Then
    ' This will happen if the response status code was 400 or greater,
    ' or if the request could not be sent, or if no response was received.
    statusCode = http.LastStatus
    Debug.Print "Response status: " & statusCode

    If (statusCode = 0) Then
        ' There was an error in communications.  
        Debug.Print http.LastErrorText
    Else
        ' We received a response status code indicating failure.
        ' Examine the response body.
        Debug.Print http.LastResponseBody
    End If

    Exit Sub
End If

' The DELETE request that is sent looks like this.
' The Accept and Accept-Encoding headers are automatically added by default.

' 	DELETE /someting?param1=123&param2=abc HTTP/1.1
' 	Host: www.example.com
' 	Accept: */*
' 	Accept-Encoding: gzip
' 	x-exz-date: 20201012T235046Z
' 	x-exz-id: 1234

' Get the response status
statusCode = http.LastStatus
Debug.Print "Response status: " & statusCode

' Show the response body
Debug.Print reponseBodyStr