Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Загружаем файл из интернета

Автор: Money 911

Маленькая функция, показывающая, как Ваше приложение может скачивать из интернета файлы. На вход функции достаточно подать URL и имя скачиваемого файла.

Компилятор: Visual Basic 5.0, 6.0.

 

Public Sub DLFiles(strUrl As String, fileName As String)
    On Error Resume Next
    Dim b() As
Byte

    Inet1.Cancel
    Inet1.Protocol = icHTTP
    Inet1.URL = strUrl
    b() = Inet1.OpenURL(, icByteArray)

    Open fileName For Binary Access Write As #1
    Put #1, , b()
    Close #1
End Sub




Основные разделы сайта


 

Реклама