HTTPS Upload Files to Web Server using SSL

This example shows how to upload one or more files over SSL (HTTPS) to a web server.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim success As Boolean
Dim http As New Chilkat.Http()

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


'  Build a HTTPS upload request with the files to be uploaded:
Dim req As New Chilkat.HttpRequest()
req.UseUpload()

'  The URL we'll be posting to is:
'  http://www.yourwebserver123abc.com/ConsumeUpload.aspx
'  Therefore, the path part of the URL is:
req.Path = "/ConsumeUpload.aspx"

'  Note: You'll need to edit this example to upload to your
'  own web server.

'  Add some files to the request:
'  The 1st argument is an arbitrary name.  It's the POST form field name.
'  The 2nd argument is the filename currently existing on
'  the local filesystem.  It may include an absolute or relative
'  path, or no path at all if it's in the current working directory.
success = req.AddFileForUpload("file1","hamlet.xml")
If (success <> true) Then
    MsgBox(req.LastErrorText)
    Exit Sub
End If

success = req.AddFileForUpload("file2","dude.gif")
If (success <> true) Then
    MsgBox(req.LastErrorText)
    Exit Sub
End If


'  Send the HTTPS POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTPS response is received.
Dim domain As String
Dim port As Long
Dim ssl As Boolean
domain = "www.yourwebserver123abc.com"
'  The only difference in coding between non-SSL and SSL is
'  the setting of these two arguments to SynchronousRequest:
port = 443
ssl = true
Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest(domain,port,ssl,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
    TextBox1.Refresh()
Else
    '  Display the HTML source of the page returned.
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
    TextBox1.Refresh()
End If