Predmet:vb6 asinkrono preuzimanje datoteka sa web-a
na stranici
link prikazano je asinhrono preuzimanje datoteka no ja to neznam koristiti.
kada sam prepisao ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):Public Sub DownloadStart(ByVal URL As String, _
Optional ByVal Mode As AsyncReadConstants = vbAsyncReadResynchronize)
If Len(URL) Then
' Already downloading something, need to cancel!
If m_Key Then Me.DownloadCancel
' Use current time as PropertyName.
m_Key = GetTickCount()
Debug.Print CStr(m_Key); " - "; URL
' Request user-specified file from web.
On Error Resume Next
UserControl.AsyncRead URL, vbAsyncTypeByteArray, _
CStr(m_Key), Mode
If Err.Number Then
Debug.Print "AsyncRead Error"; Err.Number, _
Err.Description
End If
End If
End Sub
Private Sub Command1_Click()
DownloadStart("http://imeStranice/host.com/uploads/1/2/3/0/12302969/data.zip", _
vbAsyncReadResynchronize) OVDJE MI DAJE ZNAK =(jednako) I NEZNAM STA TREBA TU STAVITI
End Sub
moze li mi itko pomoci kako da to rijesim?
zivot je moja domovina.