本帖最后由 Minister 于 2022-10-24 20:30 编辑
效果图
[Asm] 纯文本查看 复制代码 .版本 2
.支持库 edroptarget
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 GP位图, GP位图
.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型
拖放对象1.注册拖放控件 (取窗口句柄 ())
_启动窗口.总在最前 ＝ 选择 (选择框2.选中, 真, 假)
.子程序 转换
.参数 文件路径, 文本型
.局部变量 参数_宽度, 整数型
.局部变量 参数_高度, 整数型
.局部变量 跨步, 整数型
.局部变量 BGRADataInt, 整数型
.局部变量 位深, 整数型
.局部变量 WebPData, 字节集
Gdiplus初始化 ()
WebPData ＝ 读入文件 (文件路径)
BGRADataInt ＝ WebPDecodeBGRA (WebPData, 取字节集长度 (WebPData), 参数_宽度, 参数_高度)
位深 ＝ 32
跨步 ＝ 左移 (右移 (参数_宽度 × 位深 ＋ 31, 5), 2)
GP位图.创建自扫描行 (参数_宽度, 参数_高度, 跨步, #像素格式_32bppARGB, BGRADataInt)
写到文件 (文件路径 ＋ “.jpg”, GP位图.保存到字节集 (#图像格式_JPEG, ))
释放内存 (BGRADataInt)
.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 w, 整数型
.局部变量 i, 整数型
分割 ＝ 分割文本 (接收到的文件路径, #换行符, )
w ＝ 取数组成员数 (分割)
.计次循环首 (w, i)
.如果真 (到小写 (文件_取扩展名 (分割 [i])) ＝ “.webp”)
转换 (分割 [i])
.如果真 (选择框1.选中)
删除文件 (分割 [i])
.如果真结束
.如果真结束
.计次循环尾 ()
.子程序 __启动窗口_将被销毁
拖放对象1.撤消拖放控件 (取窗口句柄 ())
.子程序 _选择框2_被单击
_启动窗口.总在最前 ＝ 选择 (选择框2.选中, 真, 假)
转其他格式,请自己编译源码
![D$%)0ZM`_N{`D8ODWYU8~]K.png](https://attach.52pojie.cn/forum/202210/24/202937xw4ce2s2lwsizcad.png "D$%)0ZM`_N{`D8ODWYU8~]K.png")
webp2jpg易语言源码.zip
(483.55 KB, 下载次数: 190)
webp2jpg单文件成品.zip
(627.73 KB, 下载次数: 804)
| 
[复制链接]
发表于 2022-10-24 15:10
|
发表于 2022-10-24 20:24
![D$%)0ZM`_N{`D8ODWYU8~]K.png](https://attach.52pojie.cn/forum/202210/24/202433u8rx9hsx14ybhi1s.png "D$%)0ZM`_N{`D8ODWYU8~]K.png")
