Prikazi cijelu temu 22.10.2015 10:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Public Sub DownloadStart(ByVal URL As String, _
  2.    Optional ByVal Mode As AsyncReadConstants =  vbAsyncReadResynchronize)
  3.  
  4.    If Len(URL) Then
  5.       ' Already downloading something, need to cancel!
  6.      If m_Key Then Me.DownloadCancel
  7.      
  8.       ' Use current time as PropertyName.
  9.      m_Key = GetTickCount()
  10.       Debug.Print CStr(m_Key); " - "; URL
  11.      
  12.       ' Request user-specified file from web.
  13.      On Error Resume Next
  14.      
  15.          UserControl.AsyncRead URL, vbAsyncTypeByteArray, _
  16.             CStr(m_Key), Mode
  17.      
  18.       If Err.Number Then
  19.          Debug.Print "AsyncRead Error"; Err.Number, _
  20.             Err.Description
  21.       End If
  22.    End If
  23. End Sub
  24. Private Sub Command1_Click()
  25.           DownloadStart("http://imeStranice/host.com/uploads/1/2/3/0/12302969/data.zip", _
  26.     vbAsyncReadResynchronize) OVDJE MI DAJE ZNAK =(jednako) I NEZNAM STA TREBA TU STAVITI
  27. End Sub
moze li mi itko pomoci kako da to rijesim?
zivot je moja domovina.