图片_转换1 未发现释放内存操作导致内存占用越来越大，直到崩溃

易小妞

图片_转换1 未发现释放内存操作导致内存占用越来越大，直到崩溃

由于需要压缩图片的质量，达到节省空间，使用了图片_转换1


使用时，运行一会就出现崩溃




仔细查阅论坛，也发现很多人反映 图片_转换 存在内存泄漏或没有释放 导致崩溃的问题

官方在6.41版本的精益中 已经新增了 图片_转换_EX 来解决内存泄漏的问题

我查看图片_转换_EX源代码，发现申请内存这一操作





而查看了 图片_转换_1->使用的是类_图像格式转换类中的 转换到字节集 的源代码 发现无此操作

  

子程序名	返回值类型	公开	备 注
转换到字节集	字节集		转换图片为新格式,操作成功返回新图片的字节集,失败返回空字节集.参数1为转换格式(1、bmp；2、jpg；3、gif；4、tiff；5、png),参数2为JPG图片质量(0-100)
参数名	类 型	参考	可空	数组	备 注
转换格式	整数型				转换后的图片格式。1、bmp；2、jpg；3、gif；4、tiff；5、png
JPG图片质量	整数型				只对JPG格式有效,0最差效果,100最好效果,留空默认为100

变量名	类 型	静态	数组	备 注
Clsid	字节集
DataStream	对象
hMemDataStream	整数型
pDataStream	整数型
nStreamSize	整数型
bRet	逻辑型
eps	EncoderParameters
quality	整数型
新图像	字节集
pStream2	整数型
pStream1	整数型

如果真 (m_pBitmap ＝ 0)
返回 (新图像)
填充背景 ()
' //-----------------------------------------
如果真 (是否为空 (JPG图片质量))
JPG图片质量 ＝ 100
如果真 (JPG图片质量 ＜ 0)
JPG图片质量 ＝ 0
如果真 (JPG图片质量 ＞ 100)
JPG图片质量 ＝ 100
' //-----------------------------------------
GetCLSID (转换格式, Clsid)
eps.Count ＝ 1
eps.Parameter [1].Type ＝ 4
eps.Parameter [1].NumberOfValues ＝ 1
如果真 (转换格式 ＝ 2)  ' jpg
quality ＝ JPG图片质量  ' 图片质量，0最差效果，100最好效果
eps.Parameter [1].Value ＝ lstrcpynA_整数传址 (quality, quality, 0)
CLSIDFromString_字节 (A2W (“{1d5be4b5-fa4a-452d-9cdd-5db35105e7eb}”, ), eps.Parameter [1].Guid)
' //-----------------------------------------
hMemDataStream ＝ GlobalAlloc ( #GMEM_MOVEABLE, 0)
CreateStreamOnHGlobal_Object (hMemDataStream, 假, DataStream)
pStream1 ＝ GetObjectPtr (DataStream, DataStream, 0)  ' 获得流对象指针
如果真 (pStream1 ≠ 0)
RtlMoveMemory_整数传址1 (pStream2, pStream1, 4)
如果真 (pStream2 ≠ 0)
GdipSaveImageToStream (m_pBitmap, pStream2, Clsid, eps)
pDataStream ＝ GlobalLock (hMemDataStream)
nStreamSize ＝ GlobalSize (hMemDataStream)
如果真 (pDataStream ≠ 0)
新图像 ＝ 取空白字节集 (nStreamSize)
RtlMoveMemory_int2Bytes (新图像, pDataStream, nStreamSize)
bRet ＝ 真
GlobalUnlock (hMemDataStream)

GlobalFree (hMemDataStream)
返回 (新图像)

.版本 2<br /> <br /> .子程序 转换到字节集, 字节集, 公开, 转换图片为新格式,操作成功返回新图片的字节集,失败返回空字节集.参数1为转换格式(1、bmp；2、jpg；3、gif；4、tiff；5、png),参数2为JPG图片质量(0-100)<br /> .参数 转换格式, 整数型, , 转换后的图片格式。1、bmp；2、jpg；3、gif；4、tiff；5、png<br /> .参数 JPG图片质量, 整数型, 可空, 只对JPG格式有效,0最差效果,100最好效果,留空默认为100<br /> .局部变量 Clsid, 字节集<br /> .局部变量 DataStream, 对象<br /> .局部变量 hMemDataStream, 整数型<br /> .局部变量 pDataStream, 整数型<br /> .局部变量 nStreamSize, 整数型<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 eps, EncoderParameters<br /> .局部变量 quality, 整数型<br /> .局部变量 新图像, 字节集<br /> .局部变量 pStream2, 整数型<br /> .局部变量 pStream1, 整数型<br /> <br /> .如果真 (m_pBitmap ＝ 0)<br />     返回 (新图像)<br /> .如果真结束<br /> 填充背景 ()<br /> ' //-----------------------------------------<br /> .如果真 (是否为空 (JPG图片质量))<br />     JPG图片质量 ＝ 100<br /> .如果真结束<br /> .如果真 (JPG图片质量 ＜ 0)<br />     JPG图片质量 ＝ 0<br /> .如果真结束<br /> .如果真 (JPG图片质量 ＞ 100)<br />     JPG图片质量 ＝ 100<br /> .如果真结束<br /> ' //-----------------------------------------<br /> GetCLSID (转换格式, Clsid)<br /> eps.Count ＝ 1<br /> eps.Parameter [1].Type ＝ 4<br /> eps.Parameter [1].NumberOfValues ＝ 1<br /> .如果真 (转换格式 ＝ 2)  ' jpg<br />     quality ＝ JPG图片质量  ' 图片质量，0最差效果，100最好效果<br />     eps.Parameter [1].Value ＝ lstrcpynA_整数传址 (quality, quality, 0)<br />     CLSIDFromString_字节 (A2W (“{1d5be4b5-fa4a-452d-9cdd-5db35105e7eb}”, ), eps.Parameter [1].Guid)<br /> .如果真结束<br /> ' //-----------------------------------------<br /> hMemDataStream ＝ GlobalAlloc (#GMEM_MOVEABLE, 0)<br /> CreateStreamOnHGlobal_Object (hMemDataStream, 假, DataStream)<br /> pStream1 ＝ GetObjectPtr (DataStream, DataStream, 0)  ' 获得流对象指针<br /> .如果真 (pStream1 ≠ 0)<br />     RtlMoveMemory_整数传址1 (pStream2, pStream1, 4)<br />     .如果真 (pStream2 ≠ 0)<br />         GdipSaveImageToStream (m_pBitmap, pStream2, Clsid, eps)<br />         pDataStream ＝ GlobalLock (hMemDataStream)<br />         nStreamSize ＝ GlobalSize (hMemDataStream)<br />         .如果真 (pDataStream ≠ 0)<br />             新图像 ＝ 取空白字节集 (nStreamSize)<br />             RtlMoveMemory_int2Bytes (新图像, pDataStream, nStreamSize)<br />             bRet ＝ 真<br />         .如果真结束<br />         GlobalUnlock (hMemDataStream)<br />     .如果真结束<br /> <br /> .如果真结束<br /> GlobalFree (hMemDataStream)<br /> 返回 (新图像)

结果无论是 转换到文件还是转换到字节集均无发现无申请内存这一操作

请版主查阅和修复这一问题，此问题从6.4版本持续到现在的7.75版本

ns大大

是的 ，这个分配内存失败的错误，我也经常遇到，楼主的意思是：图片_转换Ex () 会自动释放内存吗？
那我试试图片_转换Ex () 看看