VB调用WinRAR

《VB调用WinRAR》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、与WinRAR以最快方式压缩ZIP比较，255M的文件Level=0时 用时24.98秒 大小95.1MLevel=255时 用时30.24秒 大小91.6MWinRAR最快压缩ZIP 用时 25.2秒 大小58.6M标准RAR压缩，我看了一下，实在太慢，也就没试了，估计要几分钟才会有结果。从速度看，基本持平了，这个算法虽然最大压缩能力有限，但感觉设计得很巧妙，每次都基于动态表，使软件可以做得很小巧，资源占用也很少。非常值得收藏！'测试窗体中的代码Option ExplicitPrivate WithEvents ObjZip As ClassZipPrivate BgTime As S

2、inglePrivate Sub Command1_Click() BgTime = Timer Command1.Enabled = False Command2.Enabled = False With ObjZip .InputFileName = Text1.Text .OutputFileName = Text2.Text .IsCompress = True .CompressLevel = Val(Text4.Text) .BeginProcss End With Label1.Caption = Round(Timer - BgTime, 2) & "秒" Command

3、1.Enabled = True Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() BgTime = Timer Command1.Enabled = False Command2.Enabled = False With ObjZip .InputFileName = Text2.Text .OutputFileName = Text3.Text .IsCompress = False .BeginProcss End With Label1 = Round(Timer - BgTime, 2) & "秒" Comma

4、nd1.Enabled = True Command2.Enabled = TrueEnd SubPrivate Sub Command3_Click() ObjZip.CancelProcss = TrueEnd SubPrivate Sub Form_Load() Set ObjZip = New ClassZip Command1.Caption = "压缩" Command2.Caption = "解压" Command3.Caption = "中断"End SubPrivate Sub Form_Unload(Cancel As Integer) Set ObjZip = No

5、thingEnd SubPrivate Sub ObjZip_FileProgress(sngPercentage As Single) Label1 = Int(sngPercentage * 100) & "%"End SubPrivate Sub ObjZip_ProcssError(ErrorDescription As String) MsgBox ErrorDescriptionEnd Sub'ClassZip类中的声明与属性、方法、事件Option ExplicitPublic Event FileProgress(sngPercentage As Single)Publi

6、c Event ProcssError(ErrorDescription As String)Private Type FileHeader HeaderTag As String * 3 HeaderSize As Integer Flag As Byte FileLength As Long Version As IntegerEnd TypePrivate mintCompressLevel As LongPrivate m_bEnableProcss As BooleanPrivate m_bCompress As BooleanPrivate m_strInputFileNam

7、e As StringPrivate m_strOutputFileName As StringPrivate Const mcintWindowSize As Integer = &H1000Private Const mcintMaxMatchLen As Integer = 18Private Const mcintMinMatchLen As Integer = 3Private Const mcintNull As Lon