易语言24位位图图片与字节集裸数据互转 位图到字节集裸数据() 字节集裸数据到位图()

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 位图, 位图
    
15. .局部变量 位图2, 位图
    
16. 
    
17. 位图.载入文件 (“1.bmp”)
    
18. 写到文件 (“1.bin”, 位图到字节集裸数据 (位图))
    
19. 写到文件 (“1.bin”, 位图到字节集裸数据 (位图))
    
20. 位图2 ＝ 字节集裸数据到位图 (读入文件 (“1.bin”), 64, 64)
    
21. 写到文件 (“2.bmp”, 位图2.取位图数据 ())
    
22. 
    
23. .子程序 位图到字节集裸数据, 字节集, 公开, 将位图点阵数据提取成字节集裸数据，失败返回空字节集
    
24. .参数 位图, 位图, , 仅支持24位位图转换
    
25. .局部变量 宽, 整数型
    
26. .局部变量 高, 整数型
    
27. .局部变量 返回值, 字节集
    
28. .局部变量 Y, 整数型
    
29. .局部变量 X, 整数型
    
30. .局部变量 Z, 整数型
    
31. .局部变量 颜色值, 整数型
    
32. 
    
33. 宽 ＝ 位图.取宽度 ()
    
34. 高 ＝ 位图.取高度 ()
    
35. .如果真 (宽 ≤ 0 或 高 ≤ 0)
    
36.     返回 ({  })
    
37. .如果真结束
    
38. 返回值 ＝ 取空白字节集 (宽 × 高 × 3)
    
39. .变量循环首 (0, 高 － 1, 1, Y)
    
40.     .变量循环首 (0, 宽 － 1, 1, X)
    
41.         颜色值 ＝ 位图.取某点颜色 (X, Y)
    
42.         Z ＝ Z ＋ 1
    
43.         返回值 [Z] ＝ 取红色值 (颜色值)
    
44.         Z ＝ Z ＋ 1
    
45.         返回值 [Z] ＝ 取绿色值 (颜色值)
    
46.         Z ＝ Z ＋ 1
    
47.         返回值 [Z] ＝ 取蓝色值 (颜色值)
    
48.     .变量循环尾 ()
    
49. .变量循环尾 ()
    
50. 返回 (返回值)
    
51. 
    
52. 
    
53. .子程序 字节集裸数据到位图, 位图, 公开, 将字节集裸数据还原成24位位图，失败返回空位图
    
54. .参数 裸数据, 字节集, , 裸数据字节=宽*高*3 不匹配将失败
    
55. .参数 宽, 整数型, , 裸数据不包括位图宽高数据，需要手动指定
    
56. .参数 高, 整数型, , 错误的宽高会造成图片还原错误
    
57. .局部变量 返回值, 位图
    
58. .局部变量 尺寸, 整数型
    
59. .局部变量 X, 整数型
    
60. .局部变量 Y, 整数型
    
61. .局部变量 Z, 整数型
    
62. 
    
63. 尺寸 ＝ 取字节集长度 (裸数据)
    
64. .判断开始 (宽 ≤ 0 或 高 ≤ 0 或 尺寸 ≠ 宽 × 高 × 3)
    
65.     返回 (返回值)
    
66. .判断 (返回值.创建 (宽, 高, 24, ) ＝ 假)
    
67.     返回 (返回值)
    
68. .默认
    
69. 
    
70. .判断结束
    
71. .变量循环首 (0, 高 － 1, 1, Y)
    
72.     .变量循环首 (0, 宽 － 1, 1, X)
    
73.         返回值.置某点颜色 (X, Y, 取颜色值 (裸数据 [Z ＋ 1], 裸数据 [Z ＋ 2], 裸数据 [Z ＋ 3]))
    
74.         Z ＝ Z ＋ 3
    
75.     .变量循环尾 ()
    
76. .变量循环尾 ()
    
77. 返回 (返回值)
    
78. 
    
79. .子程序 取红色值, 字节型
    
80. .参数 颜色值, 整数型
    
81. 
    
82. 置入代码 ({ 139, 69, 8, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
    
83. ' mov eax,[ebp+8]
    
84. ' and eax,255
    
85. ' leave
    
86. ' retn 4
    
87. 返回 (0)
    
88. 
    
89. .子程序 取绿色值, 字节型
    
90. .参数 颜色值, 整数型
    
91. 
    
92. 置入代码 ({ 139, 69, 8, 193, 232, 8, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
    
93. ' mov eax,[ebp+8]
    
94. ' shr eax,8
    
95. ' and eax,255
    
96. ' leave
    
97. ' retn 4
    
98. 返回 (0)
    
99. 
    
100. .子程序 取蓝色值, 字节型
     
101. .参数 颜色值, 整数型
     
102. 
     
103. 置入代码 ({ 139, 69, 8, 193, 232, 16, 37, 255, 0, 0, 0, 201, 194, 4, 0 })
     
104. ' mov eax,[ebp+8]
     
105. ' shr eax,16
     
106. ' and eax,255
     
107. ' leave
     
108. ' retn 4
     
109. 返回 (0)
     

复制代码