有大佬帮我看看GetDIBits()的问题吗？

lanseqinfang1

这段代码是我从大佬的源码改的https://www.eyuyan.la/post/8265.html
他的代码获取完缩略图直接导入进了超级列表框。但如果是长图，在超级列表框就会压缩成正方形
我想着在他的代码获取缩略图图时直接获取图片数据，然后我把这个图片数据提出来重新调整好比例再放进超级列表框（我的方法是，通过画板补上白边，把长图变成正方形再放进超级列表框，我其实不太懂这个方法对不对哈哈哈哈）
但我取不出来

补充内容 (2023-11-10 00:52):
我写的源码指定在下面了 不知道为啥写帖子的时候有写，但发出来就没了+_+

lanseqinfang1

这是我修改的源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

图片框1.图片 ＝ 取图像缩略图 (“D:\图片测试\30.png”, 30, 20)

子程序名	返回值类型	公开	备 注
取图像缩略图	字节集		成功返回位图句柄，失败返回0。备注：如果不再使用此句柄，请用“DeleteObject”释放资源。
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
缩略图宽度	整数型
缩略图高度	整数型

变量名	类 型	静态	数组	备 注
图像	整数型
缩略图	整数型
位图句柄	整数型
返回字节集	字节集

GdipLoadImageFromFile (A2W (文件路径), 图像)  ' 加载图像
GdipGetImageThumbnail (图像, 缩略图宽度, 缩略图高度, 缩略图, 0, 0)
GdipCreateHBITMAPFromBitmap (缩略图, 位图句柄, 0)
GdipDisposeImage (缩略图)
GdipDisposeImage (图像)  ' 销毁图像，释放资源
返回图片 ＝ 获取位图数据 (位图句柄, 缩略图宽度, 缩略图高度)
返回 (返回字节集)

子程序名	返回值类型	公开	备 注
A2W	字节集		将Ansi转成Unicode
参数名	类 型	参考	可空	数组	备 注
欲转换的文本	文本型

变量名	类 型	静态	数组	备 注
缓冲区	字节集
缓冲区大小	整数型

缓冲区大小 ＝ MultiByteToWideChar (0, 0, 欲转换的文本, -1, {  }, 0) × 2
缓冲区 ＝ 取空白字节集 (缓冲区大小)
MultiByteToWideChar (0, 0, 欲转换的文本, 取文本长度 (欲转换的文本), 缓冲区, 缓冲区大小)
返回 (缓冲区)

子程序名	返回值类型	公开	备 注
获取位图数据	字节集		成功返回位图数据，失败返回空字节集。
参数名	类 型	参考	可空	数组	备 注
位图句柄	整数型
缩略图宽度	整数型
缩略图高度	整数型

变量名	类 型	静态	数组	备 注
设备上下文	整数型
位图信息	字节集
位图数据	字节集
结果	整数型

' 这一步不知道为啥一直返回不了图片，网上找了好久也没有答案，下面的代码是我在网上找的，但试了不行，是我写法有问题吗--------------------------
设备上下文 ＝ GetDC (0)
调试输出 (设备上下文)
位图信息 ＝ 取空白字节集 (40)
位图数据 ＝ 取空白字节集 (缩略图宽度 × 缩略图高度 × 4)
结果 ＝ GetDIBits (设备上下文, 位图句柄, 0, 缩略图高度, 位图数据, 位图信息, 0)
' 调试输出 (结果)
ReleaseDC (0, 设备上下文)
如果 (结果 ＝ 0)
返回 (取空白字节集 (0))
返回 (位图数据)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 图片框1.图片 ＝ 取图像缩略图 (“D:\图片测试\30.png”, 30, 20)<br /> <br /> <br /> .子程序 取图像缩略图, 字节集, , 成功返回位图句柄，失败返回0。备注：如果不再使用此句柄，请用“DeleteObject”释放资源。<br /> .参数 文件路径, 文本型<br /> .参数 缩略图宽度, 整数型<br /> .参数 缩略图高度, 整数型<br /> .局部变量 图像, 整数型<br /> .局部变量 缩略图, 整数型<br /> .局部变量 位图句柄, 整数型<br /> .局部变量 返回字节集, 字节集<br /> <br /> GdipLoadImageFromFile (A2W (文件路径), 图像)  ' 加载图像<br /> GdipGetImageThumbnail (图像, 缩略图宽度, 缩略图高度, 缩略图, 0, 0)<br /> GdipCreateHBITMAPFromBitmap (缩略图, 位图句柄, 0)<br /> GdipDisposeImage (缩略图)<br /> GdipDisposeImage (图像)  ' 销毁图像，释放资源<br /> 返回图片 ＝ 获取位图数据 (位图句柄, 缩略图宽度, 缩略图高度)<br /> 返回 (返回字节集)<br /> <br /> .子程序 A2W, 字节集, , 将Ansi转成Unicode<br /> .参数 欲转换的文本, 文本型<br /> .局部变量 缓冲区, 字节集<br /> .局部变量 缓冲区大小, 整数型<br /> <br /> 缓冲区大小 ＝ MultiByteToWideChar (0, 0, 欲转换的文本, -1, {  }, 0) × 2<br /> 缓冲区 ＝ 取空白字节集 (缓冲区大小)<br /> MultiByteToWideChar (0, 0, 欲转换的文本, 取文本长度 (欲转换的文本), 缓冲区, 缓冲区大小)<br /> 返回 (缓冲区)<br /> <br /> <br /> .子程序 获取位图数据, 字节集, , 成功返回位图数据，失败返回空字节集。<br /> .参数 位图句柄, 整数型<br /> .参数 缩略图宽度, 整数型<br /> .参数 缩略图高度, 整数型<br /> .局部变量 设备上下文, 整数型<br /> .局部变量 位图信息, 字节集<br /> .局部变量 位图数据, 字节集<br /> .局部变量 结果, 整数型<br /> <br /> ' 这一步不知道为啥一直返回不了图片，网上找了好久也没有答案，下面的代码是我在网上找的，但试了不行，是我写法有问题吗--------------------------<br /> 设备上下文 ＝ GetDC (0)<br /> 调试输出 (设备上下文)<br /> 位图信息 ＝ 取空白字节集 (40)<br /> 位图数据 ＝ 取空白字节集 (缩略图宽度 × 缩略图高度 × 4)<br /> <br /> 结果 ＝ GetDIBits (设备上下文, 位图句柄, 0, 缩略图高度, 位图数据, 位图信息, 0)<br /> ' 调试输出 (结果)<br /> ReleaseDC (0, 设备上下文)<br /> <br /> .如果 (结果 ＝ 0)<br />     返回 (取空白字节集 (0))<br /> .否则<br />     返回 (位图数据)<br /> .如果结束

b0y

直接用 精益模块里的 图片_缩放透明()   得到缩放后的图片

同学麻烦让让

你这取位图数据写的是个啥啊，中间漏了一大堆步骤

a6661680

新人来学习了。。。。。。。。。。。。。。。

lanseqinfang1

a6661680 发表于 2023-11-10 14:34
新人来学习了。。。。。。。。。。。。。。。

lanseqinfang1

b0y 发表于 2023-11-10 07:53
直接用 精益模块里的 图片_缩放透明()   得到缩放后的图片

大佬我试了下 精易模块这么如果文件很多很大的话会很慢，他的能秒取到缩略图，不知道为啥

lanseqinfang1

同学麻烦让让 发表于 2023-11-10 13:41
你这取位图数据写的是个啥啊，中间漏了一大堆步骤

大佬可以点拨一下吗

b0y

lanseqinfang1 发表于 2023-11-10 19:39
大佬我试了下 精易模块这么如果文件很多很大的话会很慢，他的能秒取到缩略图，不知道为啥 ...

用带透明的那个也慢？  

lanseqinfang1

b0y 发表于 2023-11-10 19:49
用带透明的那个也慢？

成功了大佬，透明这个很快，刚才做的时候我忘删之前的代码重循环了一遍做的才感觉很慢{{{(>_<)}}}，嘿嘿，那我不研究GetDIBits（）了，完全看不懂

补充内容 (2023-11-10 20:23):
感谢大佬^0^