Люди помогите! Не могу разобраться с unrar.dll (см. http://www.nptus.ru/~doomsday) В VB6 все работает. В С++ тоже все работает В VB.NET не хочет... Вот неоконченный класс: Public Class UnRARDLLPrivate Const RAR_OM_LIST As Integer = 0Private Const RAR_OM_EXTRACT As Integer = 1Private Structure RARHeaderDataPublic ArcName As StringPublic FileName As StringPublic Flags As IntegerPublic PackSize As IntegerPublic UnpSize As IntegerPublic HostOS As IntegerPublic FileCRC As IntegerPublic FileTime As IntegerPublic UnpVer As IntegerPublic Method As IntegerPublic FileAttr As IntegerPublic CmtBuf As StringPublic CmtBufSize As IntegerPublic CmtSize As IntegerPublic CmtState As IntegerEnd StructurePrivate Structure RAROpenArchiveDataPublic ArcName As StringPublic OpenMode As IntegerPublic OpenResult As IntegerPublic CmtBuf As StringPublic CmtBufSize As IntegerPublic CmtSize As IntegerPublic CmtState As IntegerEnd StructurePrivate Declare Function RAROpenArchive Lib "UnRAR.dll" (ByRef ArchiveData As RAROpenArchiveData) As IntegerPrivate Declare Function RARCloseArchive Lib "UnRAR.dll" (ByVal hArcData As Integer) As IntegerPrivate Declare Ответить
|