易语言裁剪图片

.版本 2
.支持库 BmpOperate

.子程序 裁剪图片, 字节集, 公开
.参数 参_图片, 字节集, , 图片字节集
.参数 参_图片左边, 整数型, , 截图的图片左边
.参数 参_图片顶边, 整数型, , 截图的图片顶边
.参数 参_图片宽度, 整数型, , 截图的图片宽度
.参数 参_图片高度, 整数型, , 截图的图片高度
.局部变量 位图, 位图
.局部变量 临时位图, 位图
.局部变量 图片高度, 整数型
.局部变量 图片宽度, 整数型
.局部变量 局_目标文件名, 文本型
.局部变量 原图片宽度, 整数型
.局部变量 原图片高度, 整数型

原图片宽度 ＝ 图片_取宽度 (参_图片)
原图片高度 ＝ 图片_取高度 (参_图片)
图片宽度 ＝ 参_图片宽度 － 参_图片左边
图片高度 ＝ 参_图片高度 － 参_图片顶边
位图.创建 (原图片宽度, 原图片高度, 24, )
位图.载入数据 (到位图 (参_图片))
临时位图.创建 (图片宽度, 图片高度, 24, #白色)
位图.复制到 (参_图片左边, 参_图片顶边, 图片宽度, 图片高度, 临时位图, 0, 0, )
返回 (临时位图.取位图数据 ())

.子程序 到位图, 字节集
.参数 图片数据, 字节集, 参考
.局部变量 图片, 对象
.局部变量 图, 字节集

CoInitialize (0)
图 ＝ 图片数据
.如果真 (取字节集左边 (图, 2) ≠ { 66, 77 } 或 取字节集数据 (图, #短整数型, 29) ＞ 8)
    图片.创建图片对象 (图)
    图 ＝ 图片.取回图片 ()
    图片.清除 ()
.如果真结束
CoUninitialize ()
返回 (图)