| Вопрос: Проблемы с Inet. | Добавлено: 07.02.07 12:03 |
Автор вопроса:  art
|
|
Возникла проблемка. Нужно скачать exe файл из Инета.
Пишу: Dim vData As Variant
vData = Me.Inet1.OpenURL("http://домен/setup_ch.rar", icByteArray) Дальше, чтобы сохранить файл: Open App.Path & "\setup_ch.rar" For Output As #1
Print #1, , vData Close #1 Скачивается только часть файла, точнее половина! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #1 | Добавлено: 07.02.07 13:54 |
|
А вот смотри какая статья интересная:
http://www.i2r.ru/static/375/out_14882.shtml там в конце, про тебя. |
||
|
Номер ответа: 2 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #2 | Добавлено: 07.02.07 14:41 |
|
Прочитал, спасибо.
Насколько я понял, при вызове inet1.execute должна вызываться процедура Inet1_StateChanged. На кнопку вешаю: Me.Inet1.Execute "http://домен/1.exe"
Процедура Inet1_StateChanged не выполняется. Почему? |
||
|
Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 07.02.07 15:51 |
|
Не апрься, положи WinSocker на форму и пошли запрос на 80 порт
GET /<filename> HTTP/1.1 Host: <site> |
||
|
Номер ответа: 4 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #4 | Добавлено: 07.02.07 20:43 |
| где поподробнее можно почитать про winsock? | ||
|
Номер ответа: 5 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #5 | Добавлено: 07.02.07 20:54 |
| А если используется proxy - насколько всё будет отличаться? | ||
|
Номер ответа: 6 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #6 | Добавлено: 07.02.07 21:57 |
| Всё таки интересно разобраться с inet1.execute | ||
|
Номер ответа: 7 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | | #7 | Добавлено: 07.02.07 22:14 |
|
есть пример скачивания файла с использованием api
Public 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
на кнопке: URLDownloadToFile(0, getURL, savepath, 0, 0)
Можно таким способом проследить процесс скачивания файла, для привязки с progress bar? |
||
|
Номер ответа: 8 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 08.02.07 19:24 |
|
с прокси все элементарно www.dasharm.com
|
||
Страница: 1 |