HTTP Download with Progress Monitoring and Abort

HTTP download with progress monitoring and abort capability.

'  
Dim WithEvents http As ChilkatHttp

Dim bAbort As Boolean

Private Sub AbortBtn_Click()
    bAbort = True
End Sub

Private Sub Command1_Click()

    Set http = New ChilkatHttp

Dim success As Long

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

' Request AbortCheck events every .1 seconds
http.HeartbeatMs = 100

' Give focus to the abort button:
AbortBtn.SetFocus
bAbort = False

'  Download the Ruby language install
'  Note: These URLs may have changed since this example was created.
success = http.Download("ftp://ftp.ruby-lang.org/pub/ruby/ruby-1.8.5.tar.gz", "ruby-1.8.5.tar.gz")
If (success <> 1) Then
    MsgBox http.LastErrorText
Else
    MsgBox "Ruby Download Complete!"
End If

    
End Sub

Private Sub http_AbortCheck(abort As Long)
    If (bAbort) Then
        abort = 1
    End If
    
    ' Keep the user interface responsive...
    DoEvents
    
End Sub

Private Sub http_PercentDone(ByVal pctDone As Long)
    ProgressBar1.Value = pctDone
End Sub