VPF::Как скачать фаил из Интернета ???

anonim

Дата 26.9.2004, 02:23 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как программно сделать так, чтоб можно было качать автоматически файлы из Инета и сохранять их на диск???

-Mikle-

Дата 26.9.2004, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Невидимка Vingrad'а

Профиль
Группа: Экс. модератор
Сообщений: 1672
Регистрация: 22.6.2003
Где: Казахстан, Астана

Репутация: 8
Всего: 59

в инете валом примеров по этому поводу...
вот например:

Код

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

sub SaveFileFromInternet(FromURL as string, ToPathName as string)
   if URLDownloadToFile(0, FromURL, ToPathName, 0, 0) = 0 Then
      msgbox "Скачан!"
   else
      msgbox "Не скачан!"
   end if
end sub

а вот со стандартным диалогом:

Код

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

DL& = DoFileDownload(StrConv("http://demin.narod.ru/2001/wall/wall3.jpg", vbUnicode))

в свое время это в инете нашел...

--------------------

Если тебе плюют в спину, значит ты впереди...

valex13

Дата 28.9.2004, 04:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 29.1.2003
Где: Иркук. область, г . Иркутск

Репутация: 1
Всего: 1

Можно воспользоваться ActiveX компонентами типа Inet
Подключи компонент
Microsoft Internet Controls
Microsoft Internet Transfer Controls
В MSDN много описания.
Можно по HTTP, FTP перекачивать файлы
Если нет связи, то компонент сам ее установит :-)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »