谁有myzip.dll文件给我发一个，很急，谢谢！

huishen 2006-08-03 10:21:41

我的邮箱是：
pb6@sohu.com
pb7@sohu.com
pb8@sohu.com
pb9@sohu.com

...全文

216 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

wfliu 2006-08-04

打赏
举报

没有,帮顶

huishen 2006-08-04

打赏
举报

呵呵，早来啊。

workhand 2006-08-04

打赏
举报

给我点分阿

huishen 2006-08-04

打赏
举报

哈哈，找到了，放分。
http://www.fjtu.edu.cn/yjsc/preyjsc/%b8%a3%bd%a8%ca%a6%b4%f3%c9%cf%b1%a8%c5%cc/%d7%bc%bf%bc%d6%a4%b3%cc%d0%f2/dll/?D=A

pb调用myzip.dll的方法以及myzip.dll下载。

压缩 Integer dd dd = MyZip_AddFile("C:\1.txt","C:\1.zip") if dd > 0 Then messagebox("","OK!") 解压Integer dd dd = MyZip_ExtractFileAll("C:\1.zip","C:\") if dd > 0 Then messagebox("","OK!")

压缩文件 1. Function MyZip_AddFile(SrcFile,ZipFile:pchar):integer;stdcall; 功能 : 将文件SrcFile添加到压缩文档ZipFile 参数 : SrcFile 待压缩文件(全路径) Zipfile 目标文件(全路径) 返回 : 0 成功说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_AddDirectory(SrcPath,ZipFile:pchar):integer;stdcall; 功能 : 将目录SrcPath里的所有文件(子目录)添加到压缩文档ZipFile 参数 : SrcPath 待压缩目录(全路径) Zipfile 目标文件(全路径) 返回 : 0 成功说明 : 同名文件将自动被替换(overwrite) 解压文件 1. Function MyZip_ExtractFileAll(ZipFile,PathName:pchar):integer;stdcall; 功能 : 将ZipFile中包含的所有文件解包到文件夹PathName 参数 : ZipFile 压缩文件(全路径) PathName 文件输出路径(如果不存在,则自动创建该目录) 返回 : 0 解包的文件数量说明 : 同名文件将自动被替换(overwrite) 2. Function MyZip_ExtractFile(ZipFile,srcName,DstName:pchar):integer;stdcall; 功能 : 从ZipFile中将由SrcName指定的文件解包到由DstName指定的目标文件参数 : Zipfile 压缩文件(全路径) SrcName 需要解包的文件(不包含路径) DstName 目标文件(全路径) 返回 : 0 成功说明 : 同名文件将自动被替换(overwrite) 错误信息 1. Function MyZip_GetLastError(out msg : ShortString):integer;stdcall; 功能 : 在压缩/解压的过程中,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回参数 : msg 用于返回相关错误信息返回 : 0 成功

myzipmyzipmyzipmyzipmyzipmyzipmyzipmyzip

控件与界面

604

社区成员

12,293

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章