精易模块 图片_转换在处理背景为透明色的PNG图片时出错

cbcweb

显示为只转换为一固定颜色的图片
修正代码如下

1. .版本 2
   
2. 
   
3. .子程序 转换图像格式, 逻辑型, 公开, 支持bmp、jpg、gif、tiff、png互转。
   
4. .参数 参_图像数据, 字节集, , 被转换的图像数据
   
5. .参数 参_转换格式, 整数型, , 转换后的图片格式。1、bmp；2、jpg；3、gif；4、tiff；5、png
   
6. .参数 参_新图像, 字节集, 参考, 用于保存新图像的变量
   
7. .参数 参_含透明色, 逻辑型, 可空
   
8. .局部变量 局_Clsid, 字节集
   
9. .局部变量 局_pStr, 文本型
   
10. .局部变量 局_nLength, 整数型
    
11. .局部变量 局_hMem, 整数型
    
12. .局部变量 局_Stream, 对象
    
13. .局部变量 局_lpvoid, 整数型
    
14. .局部变量 局_pStream, 整数型
    
15. .局部变量 局_bitmap, 整数型
    
16. .局部变量 局_DataStream, 对象
    
17. .局部变量 局_hMemDataStream, 整数型
    
18. .局部变量 局_pDataStream, 整数型
    
19. .局部变量 局_nStreamSize, 整数型
    
20. .局部变量 局_bRet, 逻辑型
    
21. .局部变量 局_GpInput, GdiplusStartupInput
    
22. .局部变量 局_hBitMap, 整数型
    
23. 
    
24. 局_GpInput.GdiplusVersion ＝ 1
    
25. GdiplusStartup (Token, 局_GpInput, 0)  ' 启动 GDI+
    
26. .判断开始 (参_转换格式 ＝ 1)  ' bmp
    
27.     局_pStr ＝ “{557CF400-1A04-11D3-9A73-0000F81EF32E}”
    
28. .判断 (参_转换格式 ＝ 2)  ' jpg
    
29.     局_pStr ＝ “{557CF401-1A04-11D3-9A73-0000F81EF32E}”
    
30. .判断 (参_转换格式 ＝ 3)  ' gif
    
31.     局_pStr ＝ “{557CF402-1A04-11D3-9A73-0000F81EF32E}”
    
32. .判断 (参_转换格式 ＝ 4)  ' tiff
    
33.     局_pStr ＝ “{557CF405-1A04-11D3-9A73-0000F81EF32E}”
    
34. .判断 (参_转换格式 ＝ 5)  ' png
    
35.     局_pStr ＝ “{557CF406-1A04-11D3-9A73-0000F81EF32E}”
    
36. .默认
    
37. 
    
38. .判断结束
    
39. 局_Clsid ＝ 取空白字节集 (16)
    
40. CLSIDFromString (A2W (局_pStr), 局_Clsid)  ' 获取图像格式对应的Clsid
    
41. 局_nLength ＝ 取字节集长度 (参_图像数据)
    
42. 局_hMem ＝ GlobalAlloc (#GMEM_FIXED, 局_nLength)
    
43. CreateStreamOnHGlobal (局_hMem, 真, 局_Stream)
    
44. 局_lpvoid ＝ GlobalLock (局_hMem)
    
45. 写到内存 (参_图像数据, 局_lpvoid, 局_nLength)
    
46. GlobalUnlock (局_hMem)
    
47. 局_pStream ＝ GetObjectPtr (局_Stream, 局_Stream, 0)
    
48. GdipCreateBitmapFromStream (取字节集数据 (指针到字节集 (局_pStream, 4), #整数型, 1), 局_bitmap)
    
49. .如果真 (参_含透明色)
    
50.     GdipCreateHBITMAPFromBitmap (局_bitmap, 局_hBitMap, #白色)
    
51.     GdipCreateBitmapFromHBITMAP (局_hBitMap, 0, 局_bitmap)
    
52. .如果真结束
    
53. CreateStreamOnHGlobal (0, 真, 局_DataStream)
    
54. 局_pStream ＝ GetObjectPtr (局_DataStream, 局_DataStream, 0)
    
55. 局_pStream ＝ 取字节集数据 (指针到字节集 (局_pStream, 4), #整数型, 1)
    
56. GdipSaveImageToStream_int (局_bitmap, 局_pStream, 局_Clsid, 0)
    
57. GetHGlobalFromStream_int (局_pStream, 局_hMemDataStream)
    
58. 局_pDataStream ＝ GlobalLock (局_hMemDataStream)
    
59. 局_nStreamSize ＝ GlobalSize (局_hMemDataStream)
    
60. .如果真 (局_pDataStream ≠ 0)
    
61.     参_新图像 ＝ 取空白字节集 (局_nStreamSize)
    
62.     CopyMemory (参_新图像, 局_pDataStream, 局_nStreamSize)
    
63.     局_bRet ＝ 真
    
64. .如果真结束
    
65. GlobalUnlock (局_hMemDataStream)
    
66. GdipDisposeImage (局_bitmap)
    
67. GlobalFree (局_hMem)
    
68. 返回 (局_bRet)
    
69. GdiplusShutdown (Token)  ' 关闭 GDI+
    

复制代码