急!!调用MyZip.dll调用MyZip_ExtractFileAll总是返回-1

cheng6347 2009-06-01 11:49:46
声明:Function integer MyZip_ExtractFileAll(string zipfile,string pathname) library "MyZip.dll"

i = MyZip_ExtractFileAll('F:\PB','E:\PB')
我是使用PB编程的
...全文
460 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
nianran520 2009-08-24
  • 打赏
  • 举报
回复
麻烦给我也发一个,谢谢
kenshinwei@163.com
newease 2009-06-08
  • 打赏
  • 举报
回复
已经将DLL和简单示例发至邮箱,请查收
cheng6347 2009-06-08
  • 打赏
  • 举报
回复
好啊 邮箱:420833831@QQ.com
newease 2009-06-05
  • 打赏
  • 举报
回复
代码一定没有问题是不是楼主的dll有问题

楼主可以留下邮箱,我把myzip.dll和简单示例给你传过去试试
cheng6347 2009-06-05
  • 打赏
  • 举报
回复
还是不行呢
newease 2009-06-01
  • 打赏
  • 举报
回复
MyZip_ExtractFileAll(string zipfile,string pathname)

zipfile指定压缩文件的路径和文件名


pathname提定解压缩路径

int rtn
rtn=MyZip_ExtractFileAll("e:\abc.zip","c:\")

WorldMobile 2009-06-01
  • 打赏
  • 举报
回复
使用方法不对,你的压缩文件名呢?


应该这么写
i = MyZip_ExtractFileAll('F:\PB\1.zip','E:\PB')
WorldMobile 2009-06-01
  • 打赏
  • 举报
回复
使用方法不对,你的压缩文件名呢?


应该这么写
i = MyZip_ExtractFileAll('F:\PB\1.rar','E:\PB')
压缩文件 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 成功
文件名:MyZip.dll 函 数: ************************************************** *** *** *** 压缩文件 *** *** *** ************************************************** 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 成功

680

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder API 调用
社区管理员
  • API 调用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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