VPF::Абракадабра в скаченных страницах

I_Am_Rock

Дата 29.12.2008, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Извините, если название темы не отражает суть - не смог выдумать название лучше...

Вобщем, проблема - скачиваю страницу (конкретно - страницу Яндекса) с помощью АПИ-функции URLDownloadToFile. Когда потом скаченную страницу открываю и заливаю в текстбокс, то вместо русских символов пишется абракадабра (напр., вместо "привет" - "РїСЂРёРІРµС").

В чем проблема и главное - как ее решить?

Буду очень благодарен!

Akina

Дата 29.12.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(I_Am_Rock @ 29.12.2008, 20:22

)

В чем проблема

В кодировке. Смотрите заголовок страницы - там явно указана кодировка charset=UTF-8. А вы ее интерпретируете как CP-1251. Понятно, что получается ерунда.

Цитата(I_Am_Rock @ 29.12.2008, 20:22

)

как ее решить

Соответственно перекодировать.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

I_Am_Rock

Дата 29.12.2008, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Цитата(Akina @ 29.12.2008, 21:51

)

Соответственно перекодировать.

Ну, я в принципе так и думал - что в этом проблема.
Но StrConv - функция которая вроде как для этого... пробовал не получается. :( Или я не там ищу?

/ На одном сайте прочел что для этого нужно использовать MultiByteToWideChar и WideCharToMultiByte, это так?

Это сообщение отредактировал(а) I_Am_Rock - 29.12.2008, 22:27

I_Am_Rock

Дата 29.12.2008, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 12
Всего: 15

Нашел ответ... Если кому понадобится - пользуйтесь на здоровье.

Akina
Спасибо за подсказку. smile

Код


Public Enum CHARSET
  CS_DOS = 866
  CS_Windows = 1251
  CS_ISO = 28595
  CS_KOI8R = 20866
  CS_UTF7 = 65000
  CS_UTF8 = 65001
End Enum

Public Function ConvertCharset(ByVal strString As String, ByVal FromCharset As CHARSET, ByVal ToCharset As CHARSET) As String
  Dim lngLength As Long
  Dim strWideChar As String
  Dim strReturn As String
  Dim lngReturnLength As Long
  Dim dwFlags As Long
   
  If FromCharset = CS_UTF7 Or FromCharset = CS_UTF8 Then
    dwFlags = 0
  Else
    dwFlags = MB_PRECOMPOSED
  End If
   
  lngLength = Len(strString)
  strWideChar = String$(lngLength * 2, Chr$(0))
  strReturn = String$(lngLength * 2, Chr$(0))
  lngReturnLength = MultiByteToWideChar(FromCharset, dwFlags, strString, lngLength, strWideChar, lngLength)
  WideCharToMultiByte ToCharset, 0, strWideChar, lngReturnLength, strReturn, lngLength * 2, ByVal 0, 0
  ConvertCharset = Left$(strReturn, lngReturnLength)
End Function

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »