| Вопрос: Перекодировка UTF8 - Windows | Добавлено: 20.10.04 11:17 |
Автор вопроса:  Kodo | ICQ: 293048085 |
| Собственно сабж. Как? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа: crackoff ICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #1 | Добавлено: 20.10.04 11:24 |
|
WideCharToMultiByte
Смотри SDK. Нету? Мылю. |
||
|
Номер ответа: 2 Автор ответа:  KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #2 | Добавлено: 20.10.04 11:28 |
Нету. Жду 
|
||
|
Номер ответа: 3 Автор ответа: crackoffICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #3 | Добавлено: 20.10.04 11:30 |
|
Мыло, плиз...
|
||
|
Номер ответа: 4 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #4 | Добавлено: 20.10.04 11:51 |
|
Получил, сделал - не пашет. Найди ошибку?
Private Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long Private Const CP_UTF8 As Long = 65001 Private Sub Text1_Change() Dim o As String, b As String b = MultiByteToWideChar(CP_UTF8, 0, Text1.Text, Len(Text1), o, 0)'Размер буфера o = Space(b)'Буфер b = MultiByteToWideChar(CP_UTF8, 0, Text1.Text, Len(Text1), o, b) Text2.Text = o End Sub |
||
|
Номер ответа: 5 Автор ответа: crackoffICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #5 | Добавлено: 20.10.04 11:53 |
|
Не могу сказать, я этой функцией не пользовался. После обеда поковыряю.
|
||
|
Номер ответа: 6 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #6 | Добавлено: 20.10.04 11:55 |
|
Только там ошибочка.
Dim b as LONG а не String ... |
||
|
Номер ответа: 7 Автор ответа: crackoffICQ: 156165990 Вопросов: 12 Ответов: 229 |
Профиль | | #7 | Добавлено: 20.10.04 12:40 |
|
http://m-design.prima.susu.ac.ru/docs/vbhtml/38.htm - гдето в середине есть "Полезные коды VB"
|
||
|
Номер ответа: 8 Автор ответа: Abiron Вопросов: 30 Ответов: 62 |
Профиль | | #8 | Добавлено: 29.07.08 13:46 |
| crackoff на nettorgtwin@bk.ru сдкашку скинь. Хорошо? | ||
Страница: 1 |