字节集与图片互相转换软件

文件长度 ＝ 取字节集长度 (字节集)
.如果真 ((图片宽 － 3) × 图片高 ＜ 文件长度)
图片高 ＝ 文件长度 ÷ (图片宽 － 3)
.如果真结束
字节 ＝ 左移 (右移 (图片宽 × 24 ＋ 31, 5), 2)
字节集 ＝ 字节集 ＋ 取空白字节集 (字节 × 图片高 － 取字节集长度 (字节集))
整数0 ＝ 54 ＋ 取字节集长度 (字节集)
字节集0 ＝ { 66, 77 } ＋ 到字节集 (整数0) ＋ 到字节集 (文件长度) ＋ 到字节集 (54)
字节集0 ＝ 字节集0 ＋ { 40, 0, 0, 0 } ＋ 到字节集 (图片宽) ＋ 到字节集 (图片高) ＋ { 1, 0, 24, 0, 0, 0, 0, 0 } ＋ 到字节集 (取字节集长度 (字节集)) ＋ 取空白字节集 (16)

.如果真 (通用对话框1.打开 ())
编辑框_打开文件.内容 ＝ 通用对话框1.文件名
字节集 ＝ 读入文件 (编辑框_打开文件.内容)
到图片 (字节集, 到整数 (编辑框_高度.内容), 到整数 (编辑框_宽度.内容))
写到文件 (取当前目录 () ＋ “\保存文件.bmp”, 字节集)
信息框 (“文件已经转换保存”, 0, )