| Вопрос: кодировка русских букв в InternetOpenUrl? | Добавлено: 27.09.10 19:14 |
Автор вопроса:  Floyd
|
|
вытягиваю например главную страницу яндекса,
вот кусок исходника: "b-probki__icon"></i></a>4 балла<span
как из этой абракадабры получить "b-probki__icon"></i></a>4 балла<span ?
рылся долго в инете, но так и не понял из какой в какую кодировку и как надо перевести. Спасибо. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 27.09.10 19:24 |
| пробуй посылать в HttpRequestHeaders другие поддерживаемые кодировки. в том числе и русскую | ||
|
Номер ответа: 2 Автор ответа: Floyd Вопросов: 6 Ответов: 12 |
Профиль | | #2 | Добавлено: 28.09.10 12:11 |
|
а как это послыается? есть пример?
спасибо. |
||
|
Номер ответа: 3 Автор ответа: FloydВопросов: 6 Ответов: 12 |
Профиль | | #3 | Добавлено: 28.09.10 14:17 |
|
моя функция выглядит вот так:
Function openURL(ByVal sUrl As String) As String
Const INTERNET_OPEN_TYPE_PRECONFIG = 0, INTERNET_OPEN_TYPE_DIRECT = 1, INTERNET_OPEN_TYPE_PROXY = 3, INTERNET_FLAG_RELOAD = &H80000000 Dim hOpen As Long, hOpenUrl As Long, bDoLoop As Boolean, bRet As Boolean, sReadBuffer As String * 2048, lNumberOfBytesRead As Long, sBuffer As String hOpen = InternetOpen("VB Project FL", 1, vbNullString, vbNullString, 0) hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) bDoLoop = True While bDoLoop sReadBuffer = vbNullString bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead) sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead) If Not CBool(lNumberOfBytesRead) Then bDoLoop = False Wend If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl) If hOpen <> 0 Then InternetCloseHandle (hOpen) openURL = sBuffer End Function где есть формирование заголовка? |
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 28.09.10 14:23 |
| ну, происходит оно вот здесь: InternetReadFile | ||
|
Номер ответа: 5 Автор ответа: FloydВопросов: 6 Ответов: 12 |
Профиль | | #5 | Добавлено: 28.09.10 15:21 |
| а как передать заголовок с кодировкой? | ||
|
Номер ответа: 6 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #6 | Добавлено: 28.09.10 15:33 |
| юзать .NET? | ||
|
Номер ответа: 7 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | | #7 | Добавлено: 28.09.10 15:45 |
| или вб6? | ||
|
Номер ответа: 8 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 28.09.10 15:46 |
| жги код для вб6 | ||
|
Номер ответа: 9 Автор ответа: FloydВопросов: 6 Ответов: 12 |
Профиль | | #9 | Добавлено: 28.09.10 16:44 |
| для vb6 вопрос. | ||
|
Номер ответа: 10 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #10 | Добавлено: 28.09.10 20:09 |
|
так и не понял из какой
в какую кодировку и как надо перевести если я всё правильно понял - ответ приходит в utf8. Вот тебе примеры конвертации: sne: http://www.vbnet.ru/forum/show.aspx?id=63469 Winand: http://www.vbnet.ru/forum/show.aspx?id=172225 и ещё (для общего развития): http://www.vbnet.ru/forum/show.aspx?id=147004 |
||
Страница: 1 |