文件自动压缩zip后转png格式

ferrisy · 发表于 2023-8-28 17:40:23

看了个自动更新的帖子，https://bbs.125.la/forum.php?mod=viewthread&tid=14754230，改了个自动压缩转png的。第一次发帖，勿喷，谢谢!

year1970 · 发表于 2024-3-19 08:15:37

感谢分享

许你温柔乡 · 发表于 2023-12-21 10:05:45

哥们支持库没有啊

许你温柔乡 · 发表于 2023-12-21 10:03:05

自动更新的帖子，https://bbs.125.la/forum.php?mod=viewthread&tid=14754230，改了个自动压缩转png的。第一次发帖，勿喷，谢谢!

ferrisy · 发表于 2023-9-4 16:15:33

happyweeks365 发表于 2023-9-2 18:50
怎么返原呢？？？？？？？

.版本 2
.支持库 eziputils2

.子程序解压文件, 文本型
.参数文件路径, 文本型
.局部变量 i, 整数型
.局部变量文件信息, ZIP项目信息2
.局部变量句柄_ZIP, 整数型
.局部变量临时文件, 字节集
.局部变量临时路径, 文本型

临时文件＝读入文件 (文件路径)
临时路径＝取运行目录 () ＋ “\ls.zip”
写到文件 (临时路径, 临时文件)
句柄_ZIP ＝ UZIP打开 (临时路径, )
.如果真 (句柄_ZIP ≠ 0)
i ＝ UZIP置解压根目录 (句柄_ZIP, 取运行目录 ())
.如果真 (i ＝ 0)
      文件信息＝ UZIP取项目信息 (句柄_ZIP, 0)
      i ＝ UZIP解压项目 (句柄_ZIP, 0, 文件信息.名称)
      .如果真 (i ＝ 0)
         ZIP关闭 (句柄_ZIP)
         删除文件 (临时路径)
      .如果真结束

.如果真结束

.如果真结束
返回 (文件信息.名称)

ferrisy · 发表于 2023-9-4 16:12:29

happyweeks365 发表于 2023-9-2 18:50
怎么返原呢？？？？？？？

。。。用支持库里的解压缩就可以了。

happyweeks365 · 发表于 2023-9-2 18:50:29

怎么返原呢？？？？？？？

happyweeks365 · 发表于 2023-9-2 18:47:57

文件自动压缩zip后转png格式那么怎么还原文件呢？

FUYUEPC · 发表于 2023-9-2 13:15:50

开源精神必须支持~

已注销571294 · 发表于 2023-8-31 11:35:28

支持多大

		自动登录	找回密码
密码			注册

[易源码分享] 文件自动压缩zip后转png格式

评分