| Вопрос: Не читается кириллица в RAR архиве (unrar.dll+прим | Добавлено: 06.08.06 22:46 |
Автор вопроса:  Pantalone
|
|
Никак не удается исправить крякозябры, которые пример выводит вместо русских символов. Причем файлы в архиве видятся WinRar-ом нормально.
Пример [url=http://bbs.vbstreets.ru/download.php?id=4620]тут[/url] |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Pantalone Вопросов: 32 Ответов: 104 |
Профиль | | #1 | Добавлено: 06.08.06 22:47 |
| блин | ||
|
Номер ответа: 2 Автор ответа: PantaloneВопросов: 32 Ответов: 104 |
Профиль | | #2 | Добавлено: 06.08.06 23:41 |
| Кто по верхней ссылке скачать не смог, смотреть тут: http://pantalone.nm.ru/Sample.zip | ||
|
Номер ответа: 3 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 14.08.06 17:55 |
|
Public Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
... Dim s1 As String * 255 Dim aaa As Long ... s = Left(HeadRAR.FileName, InStr(1, HeadRAR.FileName, Chr(0)) - 1) aaa = OemToCharBuff(s, s1, Len(s)) Form1.List1.AddItem Trim$(s1) |
||
Страница: 1 |