Не качается файл. Я в шоке.

[Rewizorr]

Нужно скачать файл из интернета. Не ожидал, что в этом могут быть трудности, но они возникли... Допустим кидаем в форму следующий код:

Код: Выделить всё

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 Timer1_Timer()
Call DownloadFile("http://******.narod.ru/*********/*.***", "c:\1.*")


Файл-то скачивается. Да вот только один раз. Итак, файл скачался. Я залез на сайт и изменил файл на сайте. Но программа почему-то предлагает мне первоначальную версию файла. Такое ощущение, что прога его не скачивает из сети, а берет из своих закромов, чтобы не скачивать дважды тот же файл, не соображая, что файл надо все равно скачать, что он уже изменился. Что делать? Я пробовал очищать папку Темп, иногда это помогало, но сейчас вообще не пойму, где ее новые закрома. Беда еще в том, что надо, чтобы прога могла спокойно качать нужный файл нужное количество раз. ну не буду же я просить юзера очищать Темпы! Неужели нельзя сделать так, чтобы прога КАЧАЛА файл, а не СОВАЛА ОДНОИМЕННЫЙ. Помогите! Плиз!

[Twister]

Учимся работать с документацией:

URLDownloadToFile returns S_OK even if the file cannot be created and the download is canceled.

S_OK объявлена как:

Код: Выделить всё

#define S_OK                                   ((HRESULT)0L)

Т.е. твой код If URLDownloadToFile(...) = 0 Then DownloadFile = True, как минимум, неверно обрабатывает возвращаемые значения.

Теперь остаётся подумать, почему "file cannot be created". Нигде не написано, что URLDownloadToFile будет начинать скачивание, если файл уже существует. Значит, первым делом, нужно удалить имеющийся на диске файл. Если же эта функция ведёт себя "умно" и пытается перезатереть имеющийся файл, значит надо убедиться, что она может открыть его на запись.

[Хакер]

Ревизор, подпись свою приведи в соответствие с правилами.

[Rewizorr]

Учимся работать с документацией:

URLDownloadToFile returns S_OK even if the file cannot be created and the download is canceled.

S_OK объявлена как:

Код: Выделить всё

#define S_OK                                   ((HRESULT)0L)

Т.е. твой код If URLDownloadToFile(...) = 0 Then DownloadFile = True, как минимум, неверно обрабатывает возвращаемые значения.

Теперь остаётся подумать, почему "file cannot be created". Нигде не написано, что URLDownloadToFile будет начинать скачивание, если файл уже существует. Значит, первым делом, нужно удалить имеющийся на диске файл. Если же эта функция ведёт себя "умно" и пытается перезатереть имеющийся файл, значит надо убедиться, что она может открыть его на запись.

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

[iGrok]

Ну значит смотри в сторону настроек кеширования.
Быстрый взгляд на выдачу гугла по запросу "URLDownloadToFile Cache" показал, что с настройками кэширования тут не всё так просто (ну или руки у всех, кто оказался в выдаче, кривые, что не менее вероятно), и самым простым способом будет добавление фейковой случайной get-переменной к запросу на файл.

Т.е. не
Call DownloadFile("http://******.narod.ru/*********/*.***", "c:\1.*")
а
Call DownloadFile("http://******.narod.ru/*********/*.***" & "?fakevar=" & Int(Rnd * 10000000), "c:\1.*")
Ну и не забыть перед эти вызвать Randomize.

[Rewizorr]

Чего-то никак... Тупо дает мне старый файл. Прочесал на винте, но теперь не могу даже найти, откуда он берет старую версию....

[Rewizorr]

Боюсь сглазить, но кажется, все-таки заработало... ))) Последний советчик - респект.

[Twister]

Я же кажется писал, что я удалял скачанный файл

Это только кажется. Вот что ты писал на самом деле:

Я пробовал очищать папку Темп

DownloadFile("http://******.narod.ru/*********/*.***", "c:\1.*")

Так что извиняй - каков был вопрос, таков и ответ.

но сейчас вообще не пойму, где ее новые закрома

Если данные подсовываются откуда-то из локального кэша, то это всегда можно отследить: раз и два.

[GRAF]

Я думаю, что файл вам подсовывает из своего кэша сервер, к которому вы подключены. После первого скачивания файл сохраняется на сервере. При повторном скачивании файла с тем же именем он берется с вашего сервера, а не из интернета. А сколько времени файл хранится на вашем сервере зависит от его настроек. У меня была похожая проблема. Обратился к администратору сервера и все разрешилось.