Вопрос
Установлено соединение с Internet. Как незаметно (без всяких предупреждений) загрузить заданный файи с WEB-узла?
Ответ
Используйте стандартный элемент управления Internet Control. Для закачки файла используйте метод OpenURL. Например закачка файла из сети в локальный файл:
Dim a() as byte
Inet1.Protocol = icHTTP
a() = Inet1.OpenURL(Ovr3/txturl.text, icByteArray)
Open «C:\file.txt» For Binary Access Write As #1
Put #1, , a()
Close
Или можно просто прочитать файл в байтовый массив или строковою переменную:
Dim a As String
a = Inet1.OpenURL(Ovr3/txturl.text, icByteArray)
Из конференции Expert_FAQ
Copyright 
2000-2004 Сообщество Чайников
Контактная информация