VPF::Загрузка файла - Форум программистов

maximliss

Дата 13.7.2008, 18:28 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.7.2008

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

Загружаю рисунок из интернета:

Код


Option Explicit 

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 
Public Event ErrorDownload(FromPathName As String, ToPathName As String) 
Public Event DownloadComplete(FromPathName As String, ToPathName As String) 
  
Public Function DownloadFile(FromPathName As String, ToPathName As String) 
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then 
DownloadFile = True 
RaiseEvent DownloadComplete(FromPathName, ToPathName) 
Else 
DownloadFile = False 
RaiseEvent ErrorDownload(FromPathName, ToPathName) 
End If 
End Function 
  
Private Sub Command1_Click() 
Call DownloadFile("http://blabla.gif.333", "c:\foto.gif") 
End Sub

Подскажите что делать,как его загрузить если в след раз его путь поменялся и стал такой:(http://blabla.gif.444.)
smile

Akina

Дата 14.7.2008, 08:40 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Суть проблемы непонятна.

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

JusTalionis

Дата 15.7.2008, 13:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

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

Вариант только один - анализировать сылки, которые указывают на этот рисунок.

Добавлено через 4 минуты и 40 секунд
Акине:
ну, очевидно чел собирается скачивать с сайта типа новостного, в котором постоянно добавляются страницы, и страница с искомым рисунком постепенно "уплывает", увеличивая свой номер.

Akina

Дата 15.7.2008, 13:27 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Цитата(JusTalionis @ 15.7.2008, 14:16

)

чел собирается скачивать с сайта типа новостного, в котором постоянно добавляются страницы

Любой новостной сайт имеет скрипт получения с него новостей. Надо только озаботиться...

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

mb78

Дата 31.7.2008, 15:25 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.7.2008

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

Это же просто :вместо кавычек с именем файла пишем переменную с типом String
А потом меняем содержимое этой переменной и используем ту же самую функцию.

Код


Option Explicit 
Dim namefile As String , internadress As String

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 
Public Event ErrorDownload(FromPathName As String, ToPathName As String) 
Public Event DownloadComplete(FromPathName As String, ToPathName As String) 
  
Public Function DownloadFile(FromPathName As String, ToPathName As String) 
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then 
DownloadFile = True 
RaiseEvent DownloadComplete(FromPathName, ToPathName) 
Else 
DownloadFile = False 
RaiseEvent ErrorDownload(FromPathName, ToPathName) 
End If 
End Function 
  
Private Sub Command1_Click() 
Call DownloadFile(internadress, namefile) 
End Sub

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

Если вам программа нужна,чтобы самому скачивать файлы,то можно в случае если обычный путь не
найден проверялись еще несколько вариантов путей и если безуспешно ,выдавался звуковой сигнал и
открывалась страница на которой произошли изменения , чтобы можно было посмотреть новый путь.
Хотя лучше поискать API поиска файлов и папок в Интернете.

Это сообщение отредактировал(а) Akina - 31.7.2008, 17:13

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