疑問 - 如何在URLDownloadToFile下載時得知進度

[rank]

我找到元件了,可以跑了
可是問題來了,我的進度表那裡一直弄不好,能否幫我看看
一直常發生溢位和錯誤

Implements olelib.IBindStatusCallback

Private Function StartTheStinkinDownLoad(ByVal File2DownLoad As String, ByVal File2Save As String) As Boolean

  Dim DownLoadResult As Long
  DownLoadResult = olelib.URLDownloadToFile(Nothing, File2DownLoad, File2Save, 0, Me)
    StartTheStinkinDownLoad = (DownLoadResult = olelib.S_OK)
End Function

Private Sub IBindStatusCallback_GetBindInfo(grfBINDF As olelib.BINDF, pbindinfo As olelib.BINDINFO)

End Sub

Private Function IBindStatusCallback_GetPriority() As Long

End Function

Private Sub IBindStatusCallback_OnDataAvailable(ByVal grfBSCF As olelib.BSCF, ByVal dwSize As Long, pformatetc As olelib.FORMATETC, pStgmed As olelib.STGMEDIUM)

End Sub

Private Sub IBindStatusCallback_OnLowResource(ByVal reserved As Long)

End Sub

Private Sub IBindStatusCallback_OnObjectAvailable(riid As olelib.UUID, ByVal pUnk As stdole.IUnknown)

End Sub

Private Sub IBindStatusCallback_OnProgress(ByVal ulProgress As Long, ByVal ulProgressMax As Long, ByVal ulStatusCode As olelib.BINDSTATUS, ByVal szStatusText As Long)
   ProgressBar1.Min = 0
   ProgressBar1.Max = 100
    If ulProgressMax <> 0 Then
        ProgressBar1.Value = CInt(100 * (ulProgress / ulProgressMax))
    End If
    If ulProgressMax <> 0 Then
        Debug.Print ulProgress
        Debug.Print ulProgressMax
        Debug.Print ulProgress / ulProgressMax
    End If
End Sub
Private Sub Command1_Click()
StartTheStinkinDownLoad "http://www.google.com.tw/", "C:/abc.txt"
End Sub

Private Sub IBindStatusCallback_OnStartBinding(ByVal dwReserved As Long, ByVal pib As olelib.IBinding)

End Sub

Private Sub IBindStatusCallback_OnStopBinding(ByVal hresult As Long, ByVal szError As Long)

End Sub

[mraaa711128]

作者: rank

我找到元件了,可以跑了
可是問題來了,我的進度表那裡一直弄不好,能否幫我看看
一直常發生溢位和錯誤

是什麼樣情況下會發生溢位
可否說明一下??
是跑到最後了才發生
還是不一定??

[rank]

作者: mraaa711128

是什麼樣情況下會發生溢位
可否說明一下??
是跑到最後了才發生
還是不一定??

ProgressBar1.Value = CInt(100 * (ulProgress / ulProgressMax))
是這一行會發生錯誤,照理說ulProgressMax應該會比ulProgress大
但事實跑起來並不然,使得我的ProgressBar1.Value 的值超出100而超出範圍造成錯誤
而且從頭到尾的數值改變只有變動一次...我把我Debug 印的PO上來好了

[1] Progress event received: 0 of 0, StatusCode: 34
[2] Progress event received: 0 of 0, StatusCode: 1
[3] Progress event received: 0 of 0, StatusCode: 2
[4] Progress event received: 0 of 0, StatusCode: 11
[5] Progress event received: 0 of 0, StatusCode: 24
[6] Progress event received: 0 of 0, StatusCode: 13
[7] Progress event received: 6779 of 3115, StatusCode: 4
[8] Progress event received: 6779 of 3115, StatusCode: 14
[9] Progress event received: 6779 of 3115, StatusCode: 6

以上就是我Debug印出來的狀態

[rank]

可以了!好像下載google的頁面會怪怪的
如果有後續解決方案,麻煩各位大大告知