Читалка архивов, помогите подкрутить

[Pantalone]

Вот здесь находится интересный примерчик, способный читать содержимое различных архивов, таких как rar, zip и других.
Есть у кого желание потестировать насколько хорошо он справляется с этим?
И еще, никак не удается исправить крякозябры, которые он выводит вместо русских символов.

[Pantalone]

Более простой и короткий пример. Файлы в архиве видятся WinRar-ом нормально. А вот примерчик выводит какую-то фигню. Как быть?

[Serge Gavrilov]

используйте OemToChar

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

Declare Function OemToChar Lib "user32" Alias "OemToCharA" _
  (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

добавте в ExtraitRAR строковую переменную s2

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

...
s = Left(HeadRAR.FileName, InStr(1, HeadRAR.FileName, Chr(0)) - 1)
s2 = s
OemToChar s2, s
Form1.List1.AddItem s
...

[Pantalone]

Помогает частично. Второй файл в архиве как был вопросами так и остается.

[Pantalone]

Щас я расскажу как добавлялся этот хитрый файл.
В английской ХР с русской локалью, русским языком для неюникодных програм и русской раскладкой был создано два файла с русскими именами. После чего один был запакован в архив раром.
Далее локаль сменили на английскую, раскладку тоже и настройки для неюникодных программ. И уже после этого к тому архиву был добавлен второй файл. В результате имеем такую вот фигню.
Но, сам винрар открывает этот архив и показывает имена файлов нормально, плюс некоторые другие проги работающие через unrar.dll так же видят все имена нормально.
Можно конечно забить на такую маловероятную ситуацию, но интересен сам факт что же такое с именем-то и как его увидеть вместо этих вопросов?

[GSerg]

А ведь в документации к библиотеке указана функция чтения в юникоде.
А в примерах использования, идущих с библиотекой, показано объявление и использование.
Но кто читает документацию?

[Pantalone]

GSerg
Спасибо.