Страница: 1 |
Страница: 1 |
Вопрос: скачивание файла
Добавлено: 21.10.08 22:58
Автор вопроса: ZoomerSD | ICQ: 148640473
Добрый день. подскажите пожалуйста, для скачивания картинки из интернета использую vbSocket и следующий код:
T.Connect "img.mail.ru", 80
End Sub
Private Sub T_Connected(IP As String, port As Long)
Dim data As String
data = "GET /mail/ru/images/logon.gif HTTP/1.1" & vbCrLf
data = data & "Accept: image/gif" & vbCrLf & vbCrLf
T.SendData data
End Sub
Private Sub T_DataArrival(data As String)
Text1.Text = Text1.Text & data
End Sub
но в итоге кроме обрывка получить нечего немогу.
Server: Apache/1.3.27 (Unix) DAV/1.0.3 mod_jk/1.2.4 mod_ruby/1.0.7 Ruby/1.6.8 mod_mrim/0.17
Date: Tue, 21 Oct 2008 18:57:29 GMT
Content-Type: image/gif
Content-Length: 2191
Accept-Ranges: bytes
Last-Modified: Wed, 02 May 2007 17:31:16 GMT
Expires: Tue, 28 Oct 2008 18:57:29 GMT
GIF89a°
всё что удаётся получить. кто знает, в чём проблема?
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
Администратор
ICQ: 278109632
Вопросов: 42
Ответов: 3949
Web-сайт:
Профиль | | #1
Добавлено: 21.10.08 23:58
Проблема в том, что надо получать в байтовый массив, а не в строку. Знаешь что такое null-terminated string?
Номер ответа: 2
Автор ответа:
Шпион
ICQ: 250543104
Вопросов: 13
Ответов: 118
Профиль | | #2
Добавлено: 22.10.08 07:17
ключевые слова для поискапо сайту: XMLHTTP Stream SaveToFile
Номер ответа: 3
Автор ответа:
ZoomerSD
ICQ: 148640473
Вопросов: 135
Ответов: 270
Профиль | | #3
Добавлено: 22.10.08 12:53
Номер ответа: 4
Автор ответа:
D o c a l
ICQ: 408802757
Вопросов: 76
Ответов: 985
Web-сайт:
Профиль | | #4
Добавлено: 22.10.08 14:55