开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 635|回复: 17
收起左侧

[易语言] 求webp的base64文本,转换保存到本地png图片文件的源码

[复制链接]
结帖率:96% (76/79)
发表于 2026-8-5 22:44:11 | 显示全部楼层 |阅读模式   山东省青岛市
400精币



测试base64文本
https://wwavi.lanzouv.com/iQ7gs40qb3lg


回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值
结帖率:50% (2/4)

签到天数: 12 天

发表于 2026-8-5 22:48:06 | 显示全部楼层   福建省厦门市
回复

使用道具 举报

结帖率:96% (76/79)

签到天数: 3 天

 楼主| 发表于 2026-8-5 22:51:23 | 显示全部楼层   山东省青岛市
lao3 发表于 2026-8-5 22:48
https://bbs.ijingyi.com/thread-14875384-1-1.html

自己上手试试

这个好像不支持base64
回复

使用道具 举报

结帖率:92% (34/37)

签到天数: 14 天

发表于 2026-8-5 22:55:31 | 显示全部楼层   山东省济南市
很普通的啊?我没看到哪里有什么问题啊,你看一下效果,我没发现有什么加密
llll.e (959.25 KB, 下载次数: 4)
回复

使用道具 举报

结帖率:99% (86/87)

签到天数: 14 天

发表于 2026-8-5 23:08:56 | 显示全部楼层   河北省廊坊市
写到文件 (“c:\1.webp”, 编码_BASE64解码 (文本_取右边 (#常量1, “data:image/webp;base64,”, , ), ))

精易模块
回复

使用道具 举报

结帖率:96% (76/79)

签到天数: 3 天

 楼主| 发表于 2026-8-5 23:19:12 | 显示全部楼层   山东省青岛市
是永乐哟 发表于 2026-8-5 22:55
很普通的啊?我没看到哪里有什么问题啊,你看一下效果,我没发现有什么加密

直接写png不行
回复

使用道具 举报

结帖率:96% (76/79)

签到天数: 3 天

 楼主| 发表于 2026-8-5 23:19:34 | 显示全部楼层   山东省青岛市
cunanhai 发表于 2026-8-5 23:08
写到文件 (“c:\1.webp”, 编码_BASE64解码 (文本_取右边 (#常量1, “data:image/webp;base64,”, , ), ))
...

png转不过去
回复

使用道具 举报

结帖率:92% (34/37)

签到天数: 14 天

发表于 2026-8-5 23:23:57 | 显示全部楼层   山东省临沂市

转jpg,或者你创建一个窗口,输出看看
回复

使用道具 举报

结帖率:92% (34/37)

签到天数: 14 天

发表于 2026-8-5 23:24:14 | 显示全部楼层   山东省临沂市

要不就是数据有问题
回复

使用道具 举报

结帖率:100% (3/3)

签到天数: 14 天

发表于 2026-8-5 23:28:21 | 显示全部楼层   重庆市重庆市
  
DLL命令名返回值类型公开备 注
CryptStringToBinaryA逻辑型 Base64解码API
DLL库文件名:
Crypt32.dll
在DLL库中对应命令名:
CryptStringToBinaryA
参数名类 型传址数组备 注
pszString文本型
cchString整数型
dwFlags整数型
pbBinary字节集
pcbBinary整数型
pdwSkip整数型
pdwFlags整数型

子程序名返回值类型公开备 注
_启动子程序整数型 
变量名类 型静态数组备 注
WebP_Base64数据文本型 
保存路径文本型 
转换状态逻辑型 
WebP_Base64数据 = “data:image/webp;base64,UklGRuwJAABXRUJQVlA4IOAJAAAQQwCdASrTANMAPxGCtlWsKKSjJrOK+YAiCWVuul30aqvTP0/afxwh/cniZSOGrcVPb3vOs0t+wQoVvmQcanUuEPbyJJR6av42JO0KFeTfjwgo/vm8FFYTJ8UwCfQcS4d+VJ3UFSls+n1AITj8iakkjJ7C1FD3CI/Wn64n5qsXTt+1nCeUJUsm/6aSjlqPCPxvH09Ur4Lxkfw9xLcs2+p2fITZVTMHFo5k7bnD5Be2BKugYmdVJh34ugbD8YD3q7IoNB+rmodjM0psZhIqQwdQeYeppd7Og9OQet2hspujc6HsZ76vZero/JpHExHKBGv6CBMr65V6UeOw18lHq4tgj9ZiRvwh6aNISdX1SFPtARzAvMK7yt4M6FO61r0GDGbHv1NVVE7aRfkNVcnSVkfSC2I1k6z5Fww+z7hT84FEByVtUu1a93k1ahhhUWgn/GvCNQgKIlbaYLBdP4O5ygpYX/5poUrhMgBqbutjPE0yWnSUXEaBP2J/NsxBuf/uDM3t6IR4W/yza6L1pqatDcZt1c0WJFvNQWf5LIfNt5oFkeCdO4YC5LTZhTQSbTuL5z69q7HrAqbGSQUkCkKiqargpYwBNhBKJtWJmEKMW7Ge9wZ+jNrC06kMBKZh9n8XgzXW2sGMUER8Ho42Uv1OBqtLMl/aLO+mxaaFycAbC6WH2OvyssdS3NyyTy9qz+hSKel28A09nh9GKWIvA2NSolhyAAD+8fcKENj3cFV7hzZWnt3VUPThCxzo2m2SSK1UxhYOGwNGidjTqf8H2rPNoGEwqn5LIiC37f6SM5d0PJjtuDPQiicuz/qEVtoxzIBQ5y7bNqijP8OPS3vjCw5GjcqeGj6Fj4kby5vfQMSx4a794f9eMvZj+3iwK8Fsc6T+OX7Y4KP1Cw3B6SIgemRKJQIJFm0Gd+5xl8YHb6rY8QvZTqQZ+dFLtU6/P64nNuFLCUmTGLeCs8jJ3UGH2/0cYn8QGvlaghaM2j4yl/neqo3ywqxSISVl1L1gqnyWaWNQRWgHrzLqwHdQOprZOQU2N8r2Rey89KcPNb7DBtbeSdqHENupiE5r5W5F/I9q1bVcro3wU0l9FLFgxI3bjMjXCfnkMRx9eNZeHop5NWTE5q9mzyk7guCdpoPoMFGgPCOfhT7WyPvvpJCj880CSNR4QMDe4QtJ+AAiEQ7sh7d9Q30Td6uQk48hZo4tpeMXMbY5TaGpKCdaakCtQQvfZAobSimMWHYtGMG0oTT6e9Bm4mPeVwURaFvhv2gatqhqCnSN0iML3xKMCKSUhrZi2oPNMe6mEzD/7WcWhx3gkMWepUl4P6l+TSqwrI9nYV6gzddxxijfPbKrEWDCuO0rQ8sYJ7d2cmWfCyZCOh1pauxoPpWhuJ1GAJyEGKkHfMetv2uqaRd5VejCC8WhS2SIxtFwEUM69l9biCSH5lV1TOeOwTFObuVXOwAy65vnz1KoX10v8Cx77d1ZtPFWy3/z0dYfBPVNwJqY3CLiDBg00ahyip9xLkG8f+Zt3RNZqXQOpVGD46KEKv9vtAvWstWM/CIED6KeLce8NfHU+fPo0t/GpbyBxkd127bxVnjZrPckNwBkpqfdJ6Kk396T9RUw7rdfzVVbTLSuKHUbwTv3tBs0TSaFo8yvr8jejY0o7j9jgA4CYIWf1p6y29HfwW9wR1QKfxwgSHuRUt3LM8a8PBOfxvnmbz7xvgxgQNuFSOH3tUnfOj0VecXE3gNMaLauh/OF0uqf26ZMs1yWKOR3gHaPD2iHQmjLB68hE7GGmEGlK/Fd17g6dAdtkjYiZCUjznvD9Vx8VeHSDGhHS2EgWH2OYL0fG3h2MqvNw6kkxUHpIP4TcLbvNhetrJtuIXY00FUY68Dw4ZJyRfI+0rp3g9MjiFbr2l/CJoF4SBxu9H4/EMzYaZp1SblzEK+A1G3vzLZQsWierpRSFBPgsDTI0ViQtW8Cbs77ErP7OSGalE8s3TEjFe6yG2jxR8Xs6jsbphrqEiUlMfLvZl/UXpltW4ZF7QYgXsAczVAHcstA3rvqD24977wiPvrQAKmpNUrRSQCjwyxGasFxJXrXGF9GdwjXAQScLJA6lfyehxOeSEqxPFqyH0b2oWVeof8BONGLllTQWDxw4Q0mcmcTGU+0mE6kvCIENZ4rjYYCp0v34PZy534rOVh+kx2QsHUzfyS6AXGqr/JBkNavBCJ8dYbMZHfNfhtSaSq+KVt6iGVt3u2cPrE9zwznyPEyAg+5oaVphOCz2583bHlrYT9qC127KjKqYjIIvVy++ff5E+wQiWJ8gf8ai7oZfG+Sh/ItSZ8sqjjc0kGXT/WF0EQr0aKe8Pgzhv4VTF166qYRT7CinwGVWmUh/Gx6clCuc2z7hs7pg0/l8auwLEXsO2NWdBoRVPPvOp+Kvjlc8asdoD3zay4UOcuhaRKgY4+OeqHK4zBQhLu9754Il9i+Yv5GVagMXhjas3HZAiXEGeuWgxhZ5V1BLzDRQ0RiYjOIvmoUSwpz5hxVnjfTwy0LNPcRi7aWEPrZU7XbPc+mnbEVHHogVux3TnbjK5qvGPkEDTjfQWhio8i9rj0kf2wr1Tfp7lOjJ/Px/WRjX0AwzYJurOJ2csEsKSSGS4SXMwIFR52J+juYVhYID78cc+SPGfUJBHxYrSGOvdpPsa7cUt+PUhP2gUw+MWTl4F5g+6ADKu+QCKDNA4qtjDfkDF20RavV05trherReLJSiViK4FEEsR6729b/Bhau3qx8kcRM0dJ9+XgvVtcs62PkqP3CL8zkpPl7GXZ+tAKCqF7MHisi+rNs8K6NFshDTyjJQ4P1xN9ytxhcLwj2mjenMHr0g01/8elaeNKtarWMFVaWAmW7TOMJwOz/vzQG8TW8WU/lOrSVzqhF7docpGWKjH6z3tlFi6dgzLZxxBM2Bclm/8VJ/kfIn2cr3ED0PmF//yLWRbZwYKfjlil9GBAGsf1DgfQoA1t2E03vt2pM2q+MK+6fmEBn3X2EKMT11/YWrI5ZNr0LGNKHyJk21AmXMY3jy+OENHtkG0+lAeJTK7ixoA72ypLM6D/CN1/ogc6HYv53XCUe37vsv0XOIJa+WdDxru5VdOkPMxMTPXgANTIeFLgZvHsekUnLMj3Pg24RA3H2inNGJwvzrQBZUTwuQMBn2u+dwNDz951k5o4yavfH2M8Mpu2jyVkoAsAFZ9go22QGJhoPgN+JOzA3pKky6MP+tnlafmhY+Q+tXks2tNDtVp8dZriJRkicPLq97Ye9bzZmKOlNPxFxMg2yA7vElBgosi4+ySiVDsdAACB0diBDb6+VzGMzvGsedIT2AHhVIEB+M+wB7EHy6QJM/v4RqrPB1jkZwkJk1d6dAAAAAA==”
保存路径 = 取运行目录 ()“\输出转码结果.png”
转换状态 = WebpBase64到本地PNG (WebP_Base64数据, 保存路径)
如果 (转换状态 = )
信息框 (“PNG 转换成功!”, #信息图标, “操作完成”, )
信息框 (“转换失败!请检查数据完整性或目录权限。”, #错误图标, “操作中断”, )
返回 (0)
子程序名返回值类型公开备 注
WebpBase64到本地PNG逻辑型 
参数名类 型参考可空数组备 注
传入Base64文本型
保存全路径文本型
变量名类 型静态数组备 注
净化文本文本型 
图片字节集字节集 
字节长度整数型 
临时WebP路径文本型 
PS脚本命令文本型 
WshShell对象 
净化文本 = 传入Base64
净化文本 = 子文本替换 (净化文本, “data:image/webp;base64,”, “”, , 1, )
净化文本 = 子文本替换 (净化文本, #换行符, “”, , , )
净化文本 = 子文本替换 (净化文本, 字符 (13), “”, , , )
净化文本 = 子文本替换 (净化文本, 字符 (10), “”, , , )
净化文本 = 子文本替换 (净化文本, “ ”, “”, , , )
字节长度 = 取文本长度 (净化文本) × 3 ÷ 4 + 1024
图片字节集 = 取空白字节集 (字节长度)
CryptStringToBinaryA (净化文本, 取文本长度 (净化文本), 6, 图片字节集, 字节长度, 0, 0)
图片字节集 = 取字节集左边 (图片字节集, 字节长度)
如果真 (取字节集长度 (图片字节集) ≤ 0)
返回 ()
临时WebP路径 = 取运行目录 ()“\__temp_prod_”到文本 (取启动时间 ()) + “.webp”
删除文件 (临时WebP路径)
删除文件 (保存全路径)
如果真 (写到文件 (临时WebP路径, 图片字节集))
返回 ()
PS脚本命令 = “powershell -NoProfile -WindowStyle Hidden -Command ”#引号“Add-Type -AssemblyName PresentationCore; $s=[System.IO.File]::OpenRead('” + 临时WebP路径 + “'); $d=[System.Windows.Media.Imaging.BitmapDecoder]::Create($s, 'None', 'OnLoad'); $e=New-Object System.Windows.Media.Imaging.PngBitmapEncoder; $e.Frames.Add($d.Frames[0]); $s.Close(); $o=[System.IO.File]::Create('” + 保存全路径 + “'); $e.Save($o); $o.Close();”#引号
WshShell.创建 (“WScript.Shell”, )
WshShell.数值方法 (“Run”, PS脚本命令, 0, )
WshShell.清除 ()
删除文件 (临时WebP路径)
返回 (文件是否存在 (保存全路径) 取文件尺寸 (保存全路径) > 0)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备2025452707号) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表