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

Тема в разделе "Visual Basic", создана пользователем Andrew1981, 17 апр 2009.

  1. Andrew1981

    Andrew1981 Гость

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

    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 возвращается какая-то белиберда из памяти.
    Помогите пожалуйста.Вроде штука не сложная но все никак не заработает.
     
Загрузка...

Поделиться этой страницей