易语言取图片宽度（）取图片高度（）命令bug

wowopipi

易语言取图片宽度（）取图片高度（）命令bug，循环使用一个小时，软件就会崩溃。
原理是没有释放gdi，每次调用gdi都会增加，增加到9999软件就会崩溃。



我之前在做一个脚本软件取图片宽度和高度时用到了这两个命令。遇到了这个问题分享一下。
当gdi到达9999时即使软件没崩溃，也会出现花屏现象，屏幕截图会失败返回空字节集，读入文件也会失败返回空字节集。

易语言这两个命令为什么会导致这种问题，原因是https://blog.csdn.net/wzsy/article/details/7623170

阿龙

ex版还是原版

chenyucheng

赶紧联系《应用接口支持库》的作者，寻求修复版的支持库

maozaiba

  

子程序名	返回值类型	公开	备 注
图片_取宽度	整数型		快速读取图片宽度，失败返回零。
参数名	类 型	参考	可空	数组	备 注
参_图片数据	字节集				支持文件路径与图片内容，路径非unicode编码，可用 到字节集()转换

变量名	类 型	静态	数组	备 注
gdip_Image
Wid	整数型
Hgt	整数型
hresult
GpInput	GdiplusStartupInput
gdip_Token	整数型
FileName	文本型
FileExists	逻辑型
dwFileSize	整数型
hImageMemory	整数型
pImageMemory	整数型
pIStream	整数型

FileName ＝ 到文本 (参_图片数据)
FileExists ＝ 文件_是否存在 (FileName)
GpInput.GdiplusVersion ＝ 1
hresult ＝ GdiplusStartup (gdip_Token, GpInput, 0)  ' 启动GDI+
如果真 (hresult ＝ 0)
如果 (FileExists)
hresult ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (FileName, ), gdip_Image)
dwFileSize ＝ 取字节集长度 (参_图片数据)
hImageMemory ＝ GlobalAlloc ( #GMEM_MOVEABLE, dwFileSize)  ' ; //给图片分配全局内存
pImageMemory ＝ GlobalLock (hImageMemory)  ' ; //锁定内存
CopyMemory_Bytes2int (pImageMemory, 参_图片数据, dwFileSize)
hresult ＝ CreateStreamOnHGlobal (hImageMemory, 假, pIStream)  ' //用全局内存初使化IStream接口指针
GdipLoadImageFromStream (pIStream, gdip_Image)
如果真 (hresult ＝ 0)
COM_Release (pIStream)
GlobalUnlock (pImageMemory)  ' ; //解锁内存
GlobalFree (hImageMemory)
GdipGetImageWidth (gdip_Image, Wid)
GdipDisposeImage (gdip_Image)
GdiplusShutdown (gdip_Token)  ' GDI关闭 +
返回 (Wid)

.版本 2<br /> <br /> .子程序 图片_取宽度, 整数型, 公开, 快速读取图片宽度，失败返回零。<br /> .参数 参_图片数据, 字节集, , 支持文件路径与图片内容，路径非unicode编码，可用 到字节集()转换<br /> .局部变量 gdip_Image<br /> .局部变量 Wid, 整数型<br /> .局部变量 Hgt, 整数型<br /> .局部变量 hresult<br /> .局部变量 GpInput, GdiplusStartupInput<br /> .局部变量 gdip_Token, 整数型<br /> .局部变量 FileName, 文本型<br /> .局部变量 FileExists, 逻辑型<br /> .局部变量 dwFileSize, 整数型<br /> .局部变量 hImageMemory, 整数型<br /> .局部变量 pImageMemory, 整数型<br /> .局部变量 pIStream, 整数型<br /> <br /> FileName ＝ 到文本 (参_图片数据)<br /> FileExists ＝ 文件_是否存在 (FileName)<br /> GpInput.GdiplusVersion ＝ 1<br /> hresult ＝ GdiplusStartup (gdip_Token, GpInput, 0)  ' 启动GDI+<br /> .如果真 (hresult ＝ 0)<br />     .如果 (FileExists)<br />         hresult ＝ GdipLoadImageFromFile (编码_Ansi到Unicode (FileName, ), gdip_Image)<br />     .否则<br />         dwFileSize ＝ 取字节集长度 (参_图片数据)<br />         hImageMemory ＝ GlobalAlloc (#GMEM_MOVEABLE, dwFileSize)  ' ; //给图片分配全局内存<br />         pImageMemory ＝ GlobalLock (hImageMemory)  ' ; //锁定内存<br />         CopyMemory_Bytes2int (pImageMemory, 参_图片数据, dwFileSize)<br />         hresult ＝ CreateStreamOnHGlobal (hImageMemory, 假, pIStream)  ' //用全局内存初使化IStream接口指针<br />         GdipLoadImageFromStream (pIStream, gdip_Image)<br />         .如果真 (hresult ＝ 0)<br />             COM_Release (pIStream)<br />         .如果真结束<br />         GlobalUnlock (pImageMemory)  ' ; //解锁内存<br />         GlobalFree (hImageMemory)<br />     .如果结束<br />     GdipGetImageWidth (gdip_Image, Wid)<br />     GdipDisposeImage (gdip_Image)<br />     GdiplusShutdown (gdip_Token)  ' GDI关闭 +<br /> .如果真结束<br /> 返回 (Wid)

看上去有释放

九州软件

用第三方代码吧