Не могу скачать файл используя Internet Transfer Control

  • Автор темы Andrew1981
  • Дата начала
A

Andrew1981

#1
Вот исходный код:

Dim strUrl As String
Dim strSource As String
Dim strDest As String
Private Sub Start_Click()
strUrl = txtURLbox.Text
strSource = txtServerPath.Text
strDest = txtLocalPath.Text
Inet1.Execute strUrl, "GET" & strSource & "" & strDest
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icResponseCompleted
Dim vtData As String
Open strDest For Binary Access Write As #1
vtData = Inet1.GetChunk(1024, icByteArray)
Line Input #1, vtData
Do While LenB(CStr(vtData)) > 0
Put #1, , vtData
vtData = Inet1.GetChunk(1024, icByteArray)
Loop
Put #1, , vtData
Close #1
End Select
End Sub

Событие получения данных по сети происходит(т.е. case срабатывает).Но функцией GetChunk возвращается какая-то белиберда из памяти.
Помогите пожалуйста.Вроде штука не сложная но все никак не заработает.