1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. Andrew1981

    Andrew1981 Гость

    Репутация:
    0
    Вот исходный код:

    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 возвращается какая-то белиберда из памяти.
    Помогите пожалуйста.Вроде штука не сложная но все никак не заработает.
     
Загрузка...
Похожие Темы - Не могу скачать
  1. Tayrus
    Ответов:
    6
    Просмотров:
    96
  2. Djon253
    Ответов:
    6
    Просмотров:
    145
  3. Mister robot
    Ответов:
    15
    Просмотров:
    219
  4. Lustrator
    Ответов:
    21
    Просмотров:
    223
  5. marraty
    Ответов:
    56
    Просмотров:
    860

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