|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.03.2009, 22:33 | #1 |
Пользователь
Регистрация: 05.04.2008
Сообщений: 15
|
Закачка файлов. Реализация на VB.NET
Интересно было б реализовать функционал закачки файлов в приложении. Для этого я решил использовать URLDownloadToFile из urlmon.dll. Она почему то не отрабатывает. Для теста в этом же коде использовал и фунуцию OpenInternet. С интом вроде как коннектится, но файлы качать не хочет.
n.b. никаких предварительных настроек не делал . Пишу на VB 2008 вначале у меня 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 Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Private Const INTERNET_OPEN_TYPE_DIRECT = 1 Private Const INTERNET_OPEN_TYPE_PROXY = 3 Private Const scUserAgent = "VB Project" Private Const INTERNET_FLAG_RELOAD = &H80000000 Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, ByVal lNumberOfBytesRead As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer ЗАТЕМ Private Sub OpenURL(ByVal sUrl As String) Dim hOpen As Long Dim hOpenUrl As Long Dim bDoLoop As Boolean 'Dim sReadBuffer(2048) As String ' Dim sBuffer As String Dim DownLoadFile As Boolean hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) bDoLoop = True If URLDownloadToFile(0, "http://www.myjulia.ru/data/cache/2008/11/11/14155_5000-150x0.jpg", "c:\image.jpg", 0, 0) = 0 Then DownLoadFile = True Else DownLoadFile = False End If MsgBox(DownLoadFile) If hOpenUrl <> 0 Then InternetCloseHandle(hOpenUrl) End If If hOpen <> 0 Then InternetCloseHandle(hOpen) End If End Sub Подскажите пожалуйста в чем же может быть дело?... |
12.03.2009, 11:08 | #2 |
Пользователь
Регистрация: 05.04.2008
Сообщений: 15
|
Все. Проблема решена! ТАК! http://www.relib.com/forums/Topic774....aspx#bm774368
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Корректная закачка файлов. | Dj_smart | Работа с сетью в Delphi | 3 | 26.03.2009 16:57 |
Закачка файлов на сервер с помощью indy-компонентов | Roman_YRV | Работа с сетью в Delphi | 2 | 01.11.2008 23:49 |
закачка файлов с Ftp сервера | smily | Общие вопросы Delphi | 1 | 30.11.2006 20:36 |