图片base64编码互换源码

.版本 2
.支持库 iext2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.如果真 (寻找文本 (编辑框1.内容, “base64,”, , 假) ≠ -1)
    编辑框1.内容 ＝ 文本_取右边 (编辑框1.内容, “base64,”)
.如果真结束
图片框1.图片 ＝ 编码_BASE64解码 (编辑框1.内容)

.子程序 _图片框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

通用对话框.初始目录 ＝ 取运行目录 ()
.如果真 (通用对话框.打开 ())
    图片框1.图片 ＝ 读入文件 (通用对话框.文件名)
.如果真结束


.子程序 _按钮2_被单击
.局部变量 图片, 字节集
.局部变量 图片码, 文本型

图片 ＝ 图片框1.图片
图片码 ＝ 编码_BASE64编码 (图片)
编辑框1.内容 ＝ 图片码

.子程序 _按钮3_被单击

.如果真 (寻找文本 (编辑框1.内容, “base64,”, , 假) ≠ -1)
    返回 ()
.如果真结束
编辑框1.内容 ＝ “data:image/png;base64,” ＋ 编辑框1.内容

.子程序 __启动窗口_创建完毕

皮肤_加载 (#皮肤_svip)

@李思量