非常感谢。
看了下，是个好东东，但这个是单独EXE文件，
我在VFP+SQL里很难用它，先从SQL端下文件至本－－缩小尺寸－－回传至SQL

编程的时候要养成良好习惯，及时释放内存。

谢谢大家，找到原因了，过程中释放不到位！还有个图片在内存上
..............
GdipDisposeImage(nImage)
    GdipSaveImageToFile (nBitmap, STRCONV(pNewFileNAme,5) + CHR(0), lcEncoder, 0)
GdipDisposeImage(nBitmap)   &&&&加上这句就可以了
DECLARE INTEGER GdiplusShutdown IN gdiplus INTEGER token
................

你抄来的这段代码漏洞百出。
1. GdipLoadImageFromFile，GdipCreateBitmapFromScan0，GdipGetImageGraphicsContext 这三个dipls函数只要有一个调用失败就 return .f.，这样一来，前面调用成功所分配的句柄就没有释放，不造成内存泄漏才怪。
2. GdipGetImageGraphicsContext 分配的 nGraphics 句柄也没有用 GdipDeleteGraphics 释放

收到的鲜花

• sam_jiang 于 2023-02-02 19:05 送鲜花  1朵  

资源分配和释放通常有一对函数，平时有个良好的习惯：出双入对。
如GDI图像处理常见到的：
GdiplusStartup(@pGDI, @stGSI, 0)
GdiplusShutdown(pGDI)

GdipLoadImageFromFile(STRCONV(cFileName+0h00,5), @pImage)
GdipDisposeImage(pImage)

GdipCreateFromHDC(hDC, @pGraphics)
GdipDeleteGraphics(pGraphics)
   
GdipCreateBitmapFromScan0(nWidth, nHeight, 0, PixelFormat_32bppARGB, 0, @pBitmap)
GdipDisposeImage(pBitmap)

hDC = GetDC(hWnd)
ReleaseDC(hWnd, hDC)

hImageMemory = GlobalAlloc(0x42, nFileSize)
GlobalFree(hImageMemory)

收到的鲜花

• sam_jiang 于 2023-02-02 19:04 送鲜花  1朵  

学习了