Visual Basic 6.0

Example: Http.HttpBinary method

Demonstrates the HttpBinary method. Visual Basic 6.0

Dim success As Long
success = 0

Dim localFilePath As String
localFilePath = "C:/example/zips/data.zip"

Dim bd As New ChilkatBinData
success = bd.LoadFile(localFilePath)
If (success = 0) Then
    Debug.Print bd.LastErrorText
    Exit Sub
End If

Dim zipBytes() As Byte
zipBytes = bd.GetData()

Dim url As String
url = "https://example.com/api/v1/sites/123/deploys"

' Send a POST with a binary HTTP request body.
Dim resp As New ChilkatHttpResponse
Dim http As New ChilkatHttp

success = http.HttpBinary("POST",url,zipBytes,"application/zip",resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response Status Code: " & resp.StatusCode
Debug.Print "Response body:"
Debug.Print resp.BodyStr