ceedZip 4.0用于实现压缩/解压缩文件,几乎具有Winzip所有功能,采用zip标准文件格式(PKZip 2.04格式),支持加密,压缩文件多盘分割(便于备份到软盘),提供ActiveX和DLL方式,支持COM,提供组件开发模式(这样可以在ASP中使用),还可以生成自解压的EXE文件.同样采用ATL技术开发(使用VC++
6.0),不需要其余的DLL,例于发布.
提供众多的属性,方法,事件,完全可以编制一个属于你自己的Winzip.
下面是PB的例程:
见上图状态条,还可以显示压缩/解压缩的进度情况
看看压缩的代码,注意只用到Xceedzip众多方法和属性中极少数的几个,不过已经实现了常用的功能:
long ResultCode
//指定需要压缩的具体文件名
ole_1.object.FilesToProcess = "c:\autoexec.bat" + "~n~r" + &
"c:\config.sys" + "~n~r" + &
"c:\io.sys" + "~n~r" + &
"c:\windows\calc.exe"
/*
-----------------------------------------------------
还可以用下面格式
例1:
ole_1.object.FilesToProcess = "c:\DATA\*"
这样表示压缩C:\DATA目录下所有文件
例2:
ole_1.object.ProcessSubfolders = TRUE
ole_1.object.FilesToProcess = "c:\DATA\*"
表示压缩C:\DATA目录下所有目录和文件
-----------------------------------------------------
*/
//可以指定压缩文件时所采用的密码
//(密码长度可达80个字符,最好设置长一点,不容易被解密) ole_1.object.EncryptionPassword
= "123"
//如果指定PreservePaths为True则会保留原来文件所在的路径
//这样在解压zip文件时可以完全恢复原来的目录结构和其中的文件 ole_1.object.PreservePaths =
true
//指定压缩到什么文件中(如果源文件存在,则同名文件会更新)
ole_1.object.ZipFilename = "c:\test.zip"
//开始压缩
ResultCode = ole_1.object.Zip
//检查是否成功
string ls_error
If ResultCode $#@60;$#@62; 0 Then
ls_error = ole_1.object.GetErrorDescription(0, ResultCode)
Messagebox("提示", "压缩不成功,出错信息为:" + ls_error)
Else
Me gebox("提示", "压缩成功")
End If
解压缩的代码如下:
long ResultCode
string ls_error
//解压缩哪些文件,用*表示zip中所有文件
ole_1.object.ProcessSubfolders = TRUE
ole_1.object.FilesToProcess = "*"
//指定原来压缩文件时所采用的密码,密码不正确则会激发
//xceedzip的SkippingFile事件
ole_1.object.EncryptionPassword = "123"
//指定PreservePaths为True
//这样可以在解压缩时,恢复原zip文件中包含的目录结构
ole_1.object.PreservePaths = true
//指定解压缩到的起始目录
ole_1.object.UnzipToFolder = "c:\test unzipped files"
//指定需要解压缩的原zip文件
ole_1.object.ZipFilename = "c:\test.zip"
//开始解压缩
ResultCode = ole_1.object.Unzip
//检查是否成功
If ResultCode $#@60;$#@62; 0 Then
ls_error = ole_1.object.GetErrorDescription(0, ResultCode)
Messagebox("提示", "解压缩不成功,出错信息为:" + ls_error)
Else
Messagebox("提示", "解压缩成功")
End If
显示压缩/解压缩进度的代码则非常简单,因为Xceedzip已经提供相应事件globalstatus
只需要在该事件中写一行代码:
hpb_1.position = nBytesPercent
现在下载Xceedzip 4.0(1220kb)(含有VB,DELPHI,VC例程)
Xceedzip的加密功能很特别,安装在自己的电脑上时无论是在设计环境还是EXE执行的时候都不会有任意问题,但当你将此EXE在另一台已经安装了Xceedzip的电脑上运行,则会提示你没有买正式版本.
请大家先下载此版本进行开发,解密文件2月底之前会上传.
下载PB例程(10kb)(例程是PB 7.0版本,因为我的电脑上只有PB
7.0,所以....,不过所有源代码均已文章中列出,XceedZip可以在PB 5.0, 6.x, 7.x中使用)
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE [办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全 [办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法 [办公软件]Linux程序员必读:中文化与GB18030标准 [办公软件]linux指令大全 [办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
|