Топик с обсуждением качалки, прогрессбара и пр.

[tyomitch]

Одновременная скачка не поддерживается.
Увы и ах

[Wic_]

Тема не заброшена? У меня вот какой вопрос.
Для регулярной загрузки обновляющегося файла из инета использую прогу на основе Kachalka. К сожалению загруженный файл остается в кэше

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

Environ$("UserProfile") & "\Local Settings\Temporary Internet Files\")

и в последствии берется оттуда, даже если в инете он обновился. Во вском случае это происходит с ftp ссылками.
Может это следствие ошибки

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

Public Sub DownloadToFile(ByVal URL As String, ByVal FileName As String)
Dim Result As Long
    Result = URLDownloadToFile(Nothing, URL, FileName, 0, Me)
    On Error GoTo Metka
    If Result Then Err.Raise Result
Metka:
End Sub


из за которой пришлось вставить метку?
Или как вариант подскажите как осуществить
- удаление файла из кэша средствами VB6 или командной строки. Kill не работает с файлами из кэша, либо
- установление короткого срока действия этого файла теми же средствами.

[tyomitch]

Есть шанс, что этот код помог бы.

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

Private Sub Kachalka_GetOptions(Options As kach_tlb.BINDF)
    Options = Options Or BINDF_GETNEWESTVERSION Or BINDF_NOWRITECACHE Or BINDF_PRAGMA_NO_CACHE
End Sub

(Не тестировалось)

[NeverGone]

Есть шанс, что этот код помог бы.

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

Private Sub Kachalka_GetOptions(Options As kach_tlb.BINDF)
    Options = Options Or BINDF_GETNEWESTVERSION Or BINDF_NOWRITECACHE Or BINDF_PRAGMA_NO_CACHE
End Sub

(Не тестировалось)

А оно и не работает… все равно складирует к себе в кэш…
также не работают варианты типа BINDF_NOWRITECACHE + BINDF_PRAGMA_NO_CACHE и им подобные
P.S. Может батником каким можно файл из кэша удалить?
P.P.S. а почему название темы пустое?

[Antonariy]

P.S. Может батником каким можно файл из кэша удалить?

Тык.

[NeverGone]

P.S. Может батником каким можно файл из кэша удалить?

Тык.

А с этого момента можно поподробнее?
А то я скачал оттуда проект Cache Library (по-моему,больше всего бы подошел для этого нехитрого действия), а при попытке открыть его - Unable to set the version compatible component: C:\Documents and Settings\NeverGone\Рабочий стол\GI\gi32cache.dll

[Особист]

Только что попробовал качалку tyomitch'а, качает файлы на ура.
Только пока не понял два момента:
1) Не нашёл команды для того чтобы принудительно остановить закачку, типа kachalka.stopdownload или типа того, чтобы ВНЕЗАПНО )) прервать закачку длинного файла, напр. если пользователь захотел из программы выйти;
2) Возможно ли всё таки реализовать одновременную закачку нескольких файлов, если загрузить две качалки одновременно. Всегда первая работает без проблем, а вторую установить не удаётся.

[Antonariy]

P.S. Может батником каким можно файл из кэша удалить?

Тык.

А с этого момента можно поподробнее?
А то я скачал оттуда проект Cache Library (по-моему,больше всего бы подошел для этого нехитрого действия), а при попытке открыть его - Unable to set the version compatible component: C:\Documents and Settings\NeverGone\Рабочий стол\GI\gi32cache.dll

Скачай другой проект, их там как грязи. Лично мне Cachinator приглянулся, минимум авторского мусора, православное форматирование, функции работы с кешем не перемешаны с гуёвыми, а вынесены в отдельный модуль.

[NeverGone]

1) Не нашёл команды для того чтобы принудительно остановить закачку, типа kachalka.stopdownload или типа того, чтобы ВНЕЗАПНО )) прервать закачку длинного файла, напр. если пользователь захотел из программы выйти;

SetCancel = True не Ъ? у меня замечательно закачку обрывает

[brodyga]

Добрый день, форумчане!

Помогите с такой проблемой: необходимо из интернета выкачать определенные файлы, которые просто лежат на сервере. Проблема в том, что имена файлов содержат кириллицу. Все возможные варианты пробовал - файлы с латинскими именами качаются без проблем, а при кириллических - выдает ошибку. Посоветуйте кто что сможет!

[Antonariy]

urlencode

[brodyga]

Все равно не получается. Выдает ошибку 403. Мне нужно скачать файл с этого адреса

http://www.library.gov.ua/tmpp/nnmbu/ВР53-2009-4.txt

Единственное, чем получилось обратится к файлу, так это через функцию


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

Private Sub Command1_Click()
DownLoadFile "http://demin.narod.ru/2001/wall/", "wall3.jpg"
End Sub

Public Sub DownLoadFile(sUrl As String, sFile As String)
Dim DL As Long
On Error GoTo errHandler
If sUrl$ = "" Then sUrl$ = strUrl$
If strUrl$ = "" Then strUrl$ = sUrl$
If Left(strUrl$, 4) <> "http" Then strUrl$ = "http://" & strUrl$
If Right$(strUrl$, 1) <> "/" Then strUrl$ = strUrl$ & "/"
If Left$(sFile$, 1) = "/" Then sFile = Mid$(sFile$, 2)

DL& = DoFileDownload(StrConv(strUrl$ & sFile$, vbUnicode))
Exit Sub
errHandler:
Debug.Print "Error Source:", Err.Source
Debug.Print "Error Description:", Err.Description
Debug.Print "Error Number:", Err.Number
MsgBox "An error has occured attempting to start download to " & sUrl & sFile$ & ".", vbApplicationModal + vbCritical + vbDefaultButton1, "Error"
End Sub

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


Все другие возвращают ошибку 403

[Особист]

NeverGone, Ъ ))

[s181]

а откуда этот кирпич скачать????

[Debugger]

[offtopic]
Что-то с этим топиком не так, вам не кажется?
По-моему, у него нет заголовка. Или у меня глюки?
[/offtopic]

[Viper]

[offtopic]
Что-то с этим топиком не так, вам не кажется?
По-моему, у него нет заголовка. Или у меня глюки?
[/offtopic]

Нету, как то вот он без заголовка обходится

[Хакер]

Fixed.

[Pantalone]

Повисла крепко при попытке скачать http://www.gor-net.ru/favicon.ico а потом и вообще с ошибкой вылетела. Не подскажете как быть?

[NeverGone]

http://www.gor-net.ru/favicon.ico

Firefox не может установить соединение с сервером www.gor-net.ru.