Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > проблема с UnRarOCX


Автор: WildS 11.7.2006, 07:57
 Помогите плиз ...

У меня есть компонент UnRarOcx с оффициального сайта Winrar, с ним в архиве идёт пример :

Код

Dim fso As New FileSystemObject 'See references
Dim Foldr As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Option Explicit

Private Sub Command1_Click()
List1.Clear
If fso.FileExists(Text1.Text) = False Then
  MsgBox "File doesn't exist !"
  Exit Sub
End If
If Option1(0).Value = True Then
  UnRar1.Lister Text1.Text
Else
  UnRar1.Decompress Text1.Text, Foldr
End If
End Sub

Private Sub Command2_Click()
ShellExecute Me.hWnd, "Open", "mailto:[email protected]", "", "", 1
End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 1 Then Foldr = InputBox("Please enter the folder to Decompress in :", , "c:\windows\temp")
End Sub

Private Sub UnRar1_Progression(Pourcent As Integer)
ProgressBar1.Value = Pourcent
End Sub

Private Sub UnRar1_RarFileChange(FichierEnCours As UnRarOCX.RarFile)
List1.AddItem FichierEnCours.NomFichier
End Sub




Так вот, этот пример ещё использует библиотеку unrar.dll

ПРоблема - при выводе содержимово архива, русские символы меняются на 'кракозябры' (ошибка кодировки видимо) .

Так вот, похоже, что это глюк не UnRarOcx.ocx, а именно unrar.dll ... как сделать нормальную кодировку ... сильно надо ... 

Автор: Akina 11.7.2006, 10:59
А тебе не кажется более разумным задать вопрос на форуме техподдержки RAR?
Из общих соображений - может потребоваться вызов API-шных ANSITOOEM и OEMTOANSI, потому как либа-то вроде 16-битная... 

Автор: WildS 11.7.2006, 14:01
 Спасибо, справились ф-ией OemToChar ... сенкс 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)