一个图片文件有若干图片，在更换时把新的图片拷贝到图片文件夹显示新的图片
pice=Filetostr('.\图片\A.png')
THISFORM.image1.PictureVal =pice
这是显示A.PNG 图片
先删除图片文件夹所有文件
Delete File .\图片\*.*
拷贝一个新的图片到图片文件夹
COPY FILE d:\b.png to .\图片\a.png
pice=Filetostr('.\图片\A.png')
THISFORM.image1.PictureVal =pice
有时图片文件下的a.png并没有被删除，不是B.PNG(拷贝后名变为a.png),还是原来的a.png
我甚至先把image1从表单上删除，然后再执行delete图片,再重新加载image1,现象照样有时出现？请问各位老师如何解决？谢谢

版主好，FileName这个是不是具体文件名，可是如果不确定怎么解决？
文件夹下原来的文件都没有删除，新的文件根本没有覆盖，没有拷贝过来

CLEAR RESOURCES 后面什么也没加，测试中，暂时能删除

谢谢各位老师的热情帮助

今天又出现原来的图片没有被删除，新的图片没有拷贝过来，仍然显示原来的图片？请问各位老师有什么好的办法？谢谢

谢谢版主，这个加载时间是原来的5倍还多

原来用Delete File 删除不是每次都不好用是有时，现在改ERASE再试试

我把界面最小化后在文件中直接删除不了，提示在使用，请问怎么解决？谢谢

每次都有e.png删不掉，我遍历表单上的所有控件没有加载图片的控件

您好，现在找到了使用图片代码，我在表单中新建了一个方法程序hbtp
hbtp下的代码：
Declare Long GetDC In user32 Long
Declare Long ReleaseDC In user32 Long, Long
Declare Long GdiplusStartup In GDIPlus Long@, String@, Long
Declare Long GdiplusShutdown In GDIPlus Long
Declare Long GdipCreateBitmapFromScan0 In GDIPlus Long, Long, Long, Long, String@, Long@
Declare Long GdipGetImageGraphicsContext In GDIPlus Long, Long@
Declare Long GdipCreateFromHDC In GDIPlus Long, Long@
Declare Long GdipLoadImageFromFile In GDIPlus String@, Long@
Declare Long GdipGetImageWidth In GDIPlus Long, Long@
Declare Long GdipGetImageHeight In GDIPlus Long, Long@
Declare Long GdipSaveImageToFile In GDIPlus Long, String@, String@, Long
Declare Long GdipDrawImageRectI In GDIPlus Long, Long, Long, Long, Long, Long
Declare Long GdipDisposeImage In GDIPlus Long
Declare Long GdipDeleteGraphics In GDIPlus Long
outFile = "合并.png"
wjm='abcde'
inFile1='.\临时\'+Left(wjm,1)+'.png'
IF !FILE(inFile1)
retu
endif
stGSI = 0h01000000000000000000000000000000
pGDI = 0
GdiplusStartup(@pGDI, @stGSI, 0)
pImage1 = 0
GdipLoadImageFromFile(Strconv(inFile1+0h00,5), @pImage1)         
nWidth1 = 0
GdipGetImageWidth(pImage1, @nWidth1)
nHeight1 = 0
GdipGetImageHeight(pImage1, @nHeight1)
N=Len(wjm)
nWidth = nWidth1*N                 
nHeight = nHeight1                 
PixelFormat_32bppARGB = 0x26200A
pBitmap = 0
GdipCreateBitmapFromScan0(nWidth, nHeight, 0, PixelFormat_32bppARGB, 0, @pBitmap)

pGraphics = 0
GdipGetImageGraphicsContext(pBitmap, @pGraphics)
GdipDrawImageRectI(pGraphics, pImage1, 0, 0, nWidth1, nHeight1)   
For i=2 To N
    inFile2='.\临时\'+Substr(wjm,i,1)++Right(m_dx,4)
    IF FILE(inFile2)
    pImage2 = 0
    GdipLoadImageFromFile(Strconv(inFile2+0h00,5), @pImage2)  
    ii=nWidth1*(i-1)
    GdipDrawImageRectI(pGraphics, pImage2, ii, 0, nWidth1, nHeight1)  
    endif
Endfor
CLSID_BMP = 0h00F47C55041AD3119A730000F81EF32E
GdipSaveImageToFile(pBitmap, Strconv(outFile+0h00,5), CLSID_BMP, 0)  
GdipDisposeImage(pImage1)
GdipDisposeImage(pImage2)
GdipDeleteGraphics(pGraphics)
GdipDisposeImage(pBitmap)
GdiplusShutdown(pGDI)

pImage = 0
GdipLoadImageFromFile(Strconv(outFile+0h00,5), @pImage)
hDC = GetDC(_Screen.HWnd)
pGraphics = 0
GdipCreateFromHDC(hDC, @pGraphics)
GdipDrawImageRectI(pGraphics, pImage, 10, 10, 500, 500*nHeight/nWidth)
GdipDisposeImage(pImage)
GdipDeleteGraphics(pGraphics)
ReleaseDC(_Screen.HWnd, hDC)
是把文件夹下图片合并成一个图片,这些代码是网上找的也不明白，只是做了些修改。
执行thisform.hbtp后图片被占用不能删除，请问老师如何释放掉？谢谢

[此贴子已经被作者于2022-2-17 06:30编辑过]