API创建图片底图

易语言 2020-07-06 16:54:43

取对象信息_ (位图句柄, 24, 设备位图结构)
内存场景 = 创建内存场景_ (0)
位图信息.信息头结构.结构大小 = 44
复制二进制位图_ (内存场景, 位图句柄, 0, 0, { }, 位图信息, 0)
位图信息字节集 = 取空白字节集 (位图信息.信息头结构.位图大小)
位图信息.信息头结构.压缩率 = 0
复制二进制位图_ (内存场景, 位图句柄, 0, 设备位图结构.位图高度, 位图信息字节集, 位图信息, 0)
位图像素点阵 = 取空白字节集 (位图信息.信息头结构.结构大小)
复制位图信息_ (位图像素点阵, 位图信息, 位图信息.信息头结构.结构大小)
位图文件头.文件标识 = 19778
位图文件头.起始位置 = 14 + 位图信息.信息头结构.结构大小
位图文件头.文件长度 = 位图文件头.起始位置 + 位图信息.信息头结构.位图大小
连续赋值 (0, 位图文件头.系统保留1, 位图文件头.系统保留2)
位图文件头字节集 = 取空白字节集 (14)
复制位图头_ (位图文件头字节集, 位图文件头, 14)
删除设备场景_ (内存场景)
返回 (位图文件头字节集 + 位图像素点阵 + 位图信息字节集)