请教都市夜猫老师:保存图标文件

[kmyz_yyl]

m.cEnc_ico = 0h00F47C55041AD3119A730000F81EF32E
m.ii=88

m.hBmp = 0
If 0 == GdipCreateBitmapFromHICON(m.oIml.ListImages(m.ii).ExtractIcon().Handle, @m.hBmp)
m.cFile = Textmerge(SYS(5)+CURDIR()+"ico\Folder_open.ico") &&c:\提取的图标<<m.ii>>.ico')
If 0 == GdipSaveImageToFile(m.hBmp, Strconv(m.cFile+Chr(0),5),m.cEnc_ico,0)
*MESSAGEBOX(Textmerge('已保存图标 <<m.ii>> 到 <<m.cFile>>'))
Else
*MESSAGEBOX(Textmerge('!!! 保存图标 <<m.ii>> 失败。'))
Endif
GdipDisposeImage(m.hBmp)
Else
*? '---- !!! 创建位图对象失败.'
Endif
GdiplusShutdown(m.hTk)

*-* 到这一步可以提取出一个假的ICO文件，然后借用你的转换语句，却不成功，请教原因

cTempFileName= m.cFile

*在前面加一个常数定义:
** LoadImage defines ****
#define IMAGE_BMP 0
#define IMAGE_ICON 1
#define LR_LOADFROMFILE 0x0010

*然后找到，修改：

MESSAGEBOX(cTempFileName)
m.hImage = WinAPI_LoadImage( 0, cTempFileName, iif(lower(justext(cTempFileName))=='ico',IMAGE_ICON,IMAGE_BMP), 0, 0, LR_LOADFROMFILE) && Don't load from resource file

declare long GdiplusStartup in gdiplus long @, string, long @
declare long GdiplusShutdown in gdiplus long
declare long GdipCreateBitmapFromFile in gdiplus string, long @
declare long GdipCreateHICONFromBitmap in gdiplus long, long @
declare long GdipDisposeImage in gdiplus long
store 0 to oImage, hImage
m.hToken = 0
m.iInputBuf = 0h01 + REPLICATE( CHR(0),15 )
GdiplusStartup(@ hToken, iInputBuf, 0)
GdipCreateBitmapFromFile(STRCONV(cTempFileName+CHR(0), 5), @ oImage)
GdipCreateHICONFromBitmap(oImage, @ hImage)
GdipDisposeImage(oImage)
GdiplusShutdown(m.hToken)

[都市夜猫]

这代码逻辑也太乱了吧，真没看懂你想实现什么功能

[kmyz_yyl]

就是从IMAGELIST控件中取出图标并保存为图标文件。

[kmyz_yyl]

代码是拼凑的，其中下面那部份还是借用了你的代码。

[都市夜猫]

你这代码能不报错运行？第一段就是用来提取图标文件的，啥叫“提取出一个假的ICO文件”？
只要正确声明了 gdiplus 函数，提取出来就是真实的图标文件，可执行的代码应该是这样：

Declare long GdiplusStartup in GDIPlus long @, string, long @
Declare long GdiplusShutdown in GDIPlus long
Declare Long GdipCreateBitmapFromHICON in GDIPlus Long, Long @
Declare Long GdipSaveImageToFile In GDIPlus Long, String, String, Long
Declare long GdipDisposeImage in GDIPlus long

*---- 这个自己改 ----
m.oIml = Thisform.olecontrol1
m.ii = 2
*---------------------

m.hToken = 0
m.iInputBuf = Chr(1) + Replicate(Chr(0),15)
GdiplusStartup(@ hToken, iInputBuf, 0)

m.cEnc_ico = 0h00F47C55041AD3119A730000F81EF32E
m.hBmp = 0
If 0 == GdipCreateBitmapFromHICON(m.oIml.ListImages(m.ii).ExtractIcon().Handle, @m.hBmp)
    m.cFile = "ttt.ico"
    If 0 == GdipSaveImageToFile(m.hBmp, Strconv(m.cFile+Chr(0),5),m.cEnc_ico,0)
    	? 'ok, ' + FullPath(m.cFile)
    Else
        ? 'error'
    Endif
    GdipDisposeImage(m.hBmp)
Else
    ? 'error'
Endif
GdiplusShutdown(m.hToken)

[kmyz_yyl]

这几天有点忙，抱歉今天才上来， 谢谢老师的回复，回头我测试一下。

[都市夜猫]

这个没办法，ImageList 在加入图片时已经处理过了，存储的图片就是经过缩放的，无法还原

[kmyz_yyl]

新的问题来了，再次请教老师，我从IMAGELIST中取出的图标不是原图不清晰，如果做到取出原图？

[wwle]

引用 4 楼 dkfdtf 的回复:

你这代码能不报错运行？第一段就是用来提取图标文件的，啥叫“提取出一个假的ICO文件”？ 只要正确声明了 gdiplus 函数，提取出来就是真实的图标文件，可执行的代码应该是这样：

Declare long GdiplusStartup in GDIPlus long @, string, long @
Declare long GdiplusShutdown in GDIPlus long
Declare Long GdipCreateBitmapFromHICON in GDIPlus Long, Long @
Declare Long GdipSaveImageToFile In GDIPlus Long, String, String, Long
Declare long GdipDisposeImage in GDIPlus long

*---- 这个自己改 ----
m.oIml = Thisform.olecontrol1
m.ii = 2
*---------------------

m.hToken = 0
m.iInputBuf = Chr(1) + Replicate(Chr(0),15)
GdiplusStartup(@ hToken, iInputBuf, 0)

m.cEnc_ico = 0h00F47C55041AD3119A730000F81EF32E
m.hBmp = 0
If 0 == GdipCreateBitmapFromHICON(m.oIml.ListImages(m.ii).ExtractIcon().Handle, @m.hBmp)
    m.cFile = "ttt.ico"
    If 0 == GdipSaveImageToFile(m.hBmp, Strconv(m.cFile+Chr(0),5),m.cEnc_ico,0)
    	? 'ok, ' + FullPath(m.cFile)
    Else
        ? 'error'
    Endif
    GdipDisposeImage(m.hBmp)
Else
    ? 'error'
Endif
GdiplusShutdown(m.hToken)

mark啊。