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

Автор: 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
 
faq/visual_basic/load_file_form_internet.txt · Последние изменения: 2006/05/14 13:29 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki