Winsock (Проблема с полученными данными)

[zaf]

Делаю так

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

Function Getversionhtml()
Winsock7.Close
Getversionhtmlx = ""
Winsock7.Protocol = sckTCPProtocol 'Установка протокола
Winsock7.Connect "***.ru", 80 'подключение через порт 80
While Not Winsock7.State = 7 'Ждем, пока подключится.
DoEvents '
Wend '


Winsock7.SendData "GET /index.html" & Forz & " HTTP/1.1" & vbCrLf
Winsock7.SendData "User-Agent:Opera/9.27 (Windows NT 5.1; U; ru)" & vbCrLf
Winsock7.SendData "Host: ***.ru" & vbCrLf
Winsock7.SendData "Referer:http://***.ru/" & vbCrLf
Winsock7.SendData "Accept:text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1" & vbCrLf
Winsock7.SendData "Accept-Language:ru-RU,ru;q=0.9,en;q=0.8" & vbCrLf
Winsock7.SendData "Accept-Charset:iso-8859-1, utf-8, utf-16, *;q=0.1" & vbCrLf
Winsock7.SendData "Connection: Keep -Alive, TE" & vbCrLf & vbCrLf
End Function

а потом так

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


Private Sub Winsock7_DataArrival(ByVal bytesTotal As Long)
Dim Datacxyzx As String
Getversionhtmlx = Getversionhtmlx & Datacxyzx
If (InStr(1, Getversionhtmlx, "</html>") > 0) Then 'Если страница загрузилась полностью
Winsock7.Close
text1.text = Getversionhtmlx '<<<<
End If

в Text1.text получаю много ненужного и непонятного(((
а например:
Получаю вот это "h
76e6
ttp://"
А должно быть это "http://"
т.е. без переносов и т.п.((( не весь текст такой а в редких местах


1) С чем это связано?(

___________

Мечтаю в запрос добавить вот это:
Winsock7.SendData "Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0" & vbCrLf

но при этом хочу чтобы в ТекстБокс (text1) сунулся нормальный читабельный текст.

2) Как это можно Реализовать?

[Alexanbar]

Это связано, скорее всего, что сервер даёт данные порциями, 76e6 - это, похоже, размер очередной порции данных.

И уж, во всяком случае, весьма сомнительно вот это:

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


If (InStr(1, Getversionhtmlx, "</html>") > 0) Then 'Если страница загрузилась полностью
Winsock7.Close



[zaf]

Это связано, скорее всего, что сервер даёт данные порциями, 76e6 - это, похоже, размер очередной порции данных.

И уж, во всяком случае, весьма сомнительно вот это:

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


If (InStr(1, Getversionhtmlx, "</html>") > 0) Then 'Если страница загрузилась полностью
Winsock7.Close



Решение проблемы - убрать "Winsock7.Close" ?
или изменить условие конца загрузки страницы?

=) Намекните пожалуйста что мне делать?)

[alibek]

Ничего.
При ответе в заголовках тебе приходит, что ответ будет возвращен порциями (chunked). 76e6 — это размер порции. Считывай блоки данного размера и соединяй их в одно целое.

[Alexanbar]

По-моему, сервер сам закроет соединение, когда все передаст.

Другое дело, если хочется закончит сеанс раньше, чем требуется.

[alibek]

Не закроет. В версии 1.1 соединение не закрывается сервером.

[zaf]

Каждый раз порция разная то 76e6 то 76e2
Как мне найти длину?
Для чего это вообще передается? Для того чтобы проверить на предмет целостности принятых данных или?

Может кто посоветует код со скрейкой принятого текста?
Да при больший страницах действительно шлет
"Transfer-Encoding: chunked" не замечал

[zaf]

Ааааа я в панике.
Теперь "3ef7" появляется не по среди текста по несколько раз
а в начале сразу после заголовка

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

HTTP/1.1 200 OK
Server: nginx/0.5.35
Date: Sat, 24 May 2008 04:27:03 GMT
Content-Type: text/html; charset=windows-1251
Transfer-Encoding: chunked
Connection: keep-alive
X-Powered-By: PHP/5.2.0-8+etch11
Pragma: no-cache
Cache-control: private, must-revalidate

3ef7

<!DOCTYPE........

[Хакер]

zaf
Почему ты юзаешь для этих целей низкоуровневый WinSock? Есть какая-то объективная причина использовать его, а не WinHTTP?

[Alexanbar]

Каждый раз порция разная то 76e6 то 76e2
Как мне найти длину?
Для чего это вообще передается? Для того чтобы проверить на предмет целостности принятых данных или?

Это и есть длина блока данных в шестнадцатеричном представлении