_ResourceSetImageToCtrl stopped working

sensalim · July 24, 2008

My script used to display picture, but since new update - it doesn't.

...
#AutoIt3Wrapper_Res_File_Add=Icons\test.bmp, bitmap, BMP_TEST
...
#include <resources.au3>
...
$Button1 = GUICtrlCreatePic("", 164, 184, 75, 25)
_ResourceSetImageToCtrl($Button1, "BMP_TEST", $RT_BITMAP)
...

What do I change? I'm out of idea. (Yes, test.bmp exists)

Can anyone help?

Thanks a lot!

Original code (resources.au3) is:

#include-once

Global Const $RT_CURSOR = 1
Global Const $RT_BITMAP = 2
Global Const $RT_ICON = 3
Global Const $RT_MENU = 4
Global Const $RT_DIALOG = 5
Global Const $RT_STRING = 6
Global Const $RT_FONTDIR = 7
Global Const $RT_FONT = 8
Global Const $RT_ACCELERATORS = 9
Global Const $RT_RCDATA = 10
Global Const $RT_MESSAGETABLE = 11
Global Const $RT_GROUP_CURSOR = 12
Global Const $RT_GROUP_ICON = 14
Global Const $RT_VERSION = 16

Global Const $RT_ANICURSOR = 21
Global Const $RT_ANIICON = 22
Global Const $RT_HTML = 23
Global Const $RT_MANIFEST = 24

Global Const $SND_RESOURCE = 0x00040004
Global Const $SND_SYNC = 0x0
Global Const $SND_ASYNC = 0x1
Global Const $SND_LOOP = 0x8
Global Const $SND_NOSTOP = 0x10
Global Const $SND_NOWAIT = 0x2000
Global Const $SND_PURGE = 0x40

Func _ResourceGet($ResName, $ResType = 10, $ResLang = 0); $RT_RCDATA = 10
    Local Const $IMAGE_BITMAP = 0
    Local $hInstance, $hBitmap, $InfoBlock, $GlobalMemoryBlock, $MemoryPointer, $ResSize
    
    $hInstance = DllCall("kernel32.dll", "int", "GetModuleHandleA", "int", 0)
    $hInstance = $hInstance[0]

    If $ResType = $RT_BITMAP Then
        $hBitmap = DllCall("user32.dll", "hwnd", "LoadImage", "hwnd", $hInstance, "str", $ResName, _
                "int", $IMAGE_BITMAP, "int", 0, "int", 0, "int", 0)
        If @error Then Return SetError(1, 0, 0)
        $hBitmap = $hBitmap[0]
        Return $hBitmap; returns handle to Bitmap
    EndIf

    If $ResLang <> 0 Then
        $InfoBlock = DllCall("kernel32.dll", "int", "FindResourceExA", "int", $hInstance, "str", $ResName, "long", $ResType, "short", $ResLang)
    Else
        $InfoBlock = DllCall("kernel32.dll", "int", "FindResourceA", "int", $hInstance, "str", $ResName, "long", $ResType)
    EndIf
    
    If @error Then Return SetError(2, 0, 0)
    $InfoBlock = $InfoBlock[0]
    If $InfoBlock = 0 Then Return SetError(3, 0, 0)
    
    $ResSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hInstance, "int", $InfoBlock)
    If @error Then Return SetError(4, 0, 0)
    $ResSize = $ResSize[0]
    If $ResSize = 0 Then Return SetError(5, 0, 0)
    
    $GlobalMemoryBlock = DllCall("kernel32.dll", "int", "LoadResource", "int", $hInstance, "int", $InfoBlock)
    If @error Then Return SetError(6, 0, 0)
    $GlobalMemoryBlock = $GlobalMemoryBlock[0]
    If $GlobalMemoryBlock = 0 Then Return SetError(7, 0, 0)
    
    $MemoryPointer = DllCall("kernel32.dll", "int", "LockResource", "int", $GlobalMemoryBlock)
    If @error Then Return SetError(8, 0, 0)
    $MemoryPointer = $MemoryPointer[0]
    If $MemoryPointer = 0 Then Return SetError(9, 0, 0)
    
    SetExtended($ResSize)
    Return $MemoryPointer
EndFunc

Func _ResourceGetAsString($ResName, $ResType = 10, $ResLang = 0); $RT_RCDATA = 10
    Local $ResPointer, $ResSize, $struct

    $ResPointer = _ResourceGet($ResName, $ResType, $ResLang)
    If @error Then
        SetError(1, 0, 0)
        Return ''
    EndIf
    $ResSize = @extended
    $struct = DllStructCreate("char[" & $ResSize & "]", $ResPointer)
    Return DllStructGetData($struct, 1); returns string
EndFunc

Func _ResourceGetAsBytes($ResName, $ResType = 10, $ResLang = 0); $RT_RCDATA = 10
    Local $ResPointer, $ResSize

    $ResPointer = _ResourceGet($ResName, $ResType, $ResLang)
    If @error Then Return SetError(1, 0, 0)
    $ResSize = @extended
    Return DllStructCreate("byte[" & $ResSize & "]", $ResPointer); returns struct with bytes
EndFunc

Func _ResourceSaveToFile($FileName, $ResName, $ResType = 10, $ResLang = 0, $CreatePath = 0); $RT_RCDATA = 10
    Local $ResStruct, $ResSize, $FileHandle

    $ResStruct = _ResourceGetAsBytes($ResName, $ResType, $ResLang)
    If @error Then Return SetError(1, 0, 0)
    $ResSize = DllStructGetSize($ResStruct)
    
    If $CreatePath Then $CreatePath = 8; mode 8 = Create directory structure if it doesn't exist
    $FileHandle = FileOpen($FileName, 2+16+$CreatePath)
    If @error Then Return SetError(2, 0, 0)
    FileWrite($FileHandle, DllStructGetData($ResStruct, 1))
    If @error Then Return SetError(3, 0, 0)
    FileClose($FileHandle)
    If @error Then Return SetError(4, 0, 0)

    Return $ResSize
EndFunc

Func _ResourceSetImageToCtrl($CtrlId, $ResName, $ResType = 10); $RT_RCDATA = 10
    Local $ResData = _ResourceGet($ResName, $ResType)
    If @error Then Return SetError(1, 0, 0)
    
    If $ResType = $RT_BITMAP Then
        _SetBitmapToCtrl($CtrlId, $ResData)
        If @error Then Return SetError(2, 0, 0)
        Return 1
    EndIf
    
; for other types then BITMAP not implemented yet (must be used GDI+) ...
; ...
    Return SetError(-1, 0, 0)
EndFunc

; internal helper function
Func _SetBitmapToCtrl($CtrlId, $hBitmap)
    Local Const $STM_SETIMAGE = 0x0172
    Local Const $IMAGE_BITMAP = 0

    Local $hWnd = GUICtrlGetHandle($CtrlId)
    If $hWnd = 0 Then Return SetError(1, 0, 0)
    DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", $hWnd, "int", $STM_SETIMAGE, "int", $IMAGE_BITMAP, "int", $hBitmap)
    If @error Then Return SetError(2, 0, 0)
    Return 1
EndFunc

; thanks Larry
; MSDN: http://msdn2.microsoft.com/en-us/library/ms712879.aspx
; default flag is $SND_SYNC = 0
Func _ResourcePlaySound($ResName, $Flag = 0)
    Local $ret = DllCall("winmm.dll", "int", "PlaySound", "str", $ResName, "hwnd", 0, "int", BitOr($SND_RESOURCE,$Flag))
    If @error Then Return SetError(1, 0, 0)
    Return $ret[0]
EndFunc

Thanks to whomever wrote this resources.au3 (forgot name).

Edited July 24, 2008 by sensalim

gumbitha · July 24, 2008

GUICtrlSetImage($Button1, "BMP_TEST")

Try that. Otherwise, I don't really know. Maybe someone who knows something will come along (not me hah)

Edited July 24, 2008 by gumbitha

smashly · July 24, 2008

Hi, the reason Zedna's (the person who's udf your using) _ResourceSetImageToCtrl is failing on a button is the function doesn't check to see if the control is a Button. That function is assuming that your setting the BMP to a Static Control eg: label, icon, pic control. For it to work you'd need to use $BM_SETIMAGE instead of $STM_SETIMAGE in the function.

Other advice would be to also get the updated resources.au3 from Zedna's topic in the example scripts forum.

A brief forum search using the keyword of "resources.au3" should see you find it easily.

In relation to your other post in the General Help section about pretty much the same thing..

This will show the bmp from shell32.dll on a button, click the big button to see the next image..

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>

Global Const $RT_BITMAP = 2
Global $aINM[1], $sFile = @SystemDir & "\shell32.dll", $Last = 0

_ResourceEnumNames($sFile, $RT_BITMAP)

$hGUI = GUICreate("", 600, 300)
$Button = GUICtrlCreateButton("", 5, 5, 590, 290, $BS_BITMAP)
If $aINM[0] > 0 Then
    $Last += 1
    _ExtractBMP($sFile, $Button, $aINM[$Last])
    WinSetTitle($hGUI, "", "Displaying BMP: " & $aINM[$Last])
    GUICtrlSetTip($Button, "Click Button to see the next BMP")
Else
    GUICtrlSetTip($Button, "No BMP's found in" & @CRLF & $sFile)
EndIf   
GUISetState()

While 1
    $msg = GuiGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button
            If $aINM[0] > 0 Then
                $Last += 1
                If $Last = UBound($aINM) - 1 Then $Last = 1
                _ExtractBMP($sFile, $Button, $aINM[$Last])
                WinSetTitle($hGUI, "", "Displaying BMP: " & $aINM[$Last])
            EndIf    
                
    EndSwitch
WEnd

Func _ExtractBMP($sFile, $cID, $sBMPName)
    Local Const $IMAGE_BITMAP = 0
    Local Const $BM_SETIMAGE = 0xF7
    Local $hInst
    $hWnd = GUICtrlGetHandle($cID)
    $hInst = _WinAPI_LoadLibraryEx($sFile, 0x00000002)
    $hBMP1 = DllCall("user32.dll", "hwnd", "LoadImage", "hwnd", $hInst, "str", $sBMPName, "int", $IMAGE_BITMAP, "int", 0, "int", 0, "int", 0)
    $hBMP2 = DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", $hWnd, "int", $BM_SETIMAGE, "int", $IMAGE_BITMAP, "int", $hBMP1[0])
    If $hBMP2[0] <> 0 Then _WinAPI_DeleteObject($hBMP2[0])
    _WinAPI_FreeLibrary($hInst)
EndFunc

Func _ResourceEnumNames($sFile, $iType)
    Local $hModule, $aRet, $xCB
    If Not FileExists($sFile) Then Return SetError(1, 0, 0)
    $hModule = _WinAPI_LoadLibraryEx($sFile, 0x00000002)
    If Not IsPtr($hModule) Then Return SetError(2, 0, 0)
    $xCB = DllCallbackRegister('___EnumResNameProc', 'int', 'int_ptr;int_ptr;int_ptr;int_ptr')
    $aRet = DllCall('kernel32.dll', 'int', 'EnumResourceNamesW', 'ptr', $hModule, 'int', $iType, 'ptr', DllCallbackGetPtr($xCB), 'ptr', 0)
    DllCallbackFree($xCB)
    _WinAPI_FreeLibrary($hModule)
    If $aRet[0] <> 1 Then Return SetError(3, 0, 0)
    Return SetError(0, 0, 1)
EndFunc   ;==>_ResourceEnumNames

Func ___EnumResNameProc($hModule, $pType, $pName, $lParam)
    Local $aSize = DllCall('kernel32.dll', 'int', 'GlobalSize', 'ptr', $pName), $tBuf
    If $aSize[0] Then
        $tBuf = DllStructCreate('wchar[' & $aSize[0] & ']', $pName)
        ReDim $aINM[UBound($aINM) + 1]
        $aINM[0] += 1
        $aINM[UBound($aINM) - 1] = DllStructGetData($tBuf, 1)
    Else
        ReDim $aINM[UBound($aINM) + 1]
        $aINM[0] += 1
        $aINM[UBound($aINM) - 1] = "#" & $pName
    EndIf
    Return 1
EndFunc   ;==>___EnumResNameProc

sensalim · July 24, 2008

Thanks smashly, but I use pic not button (although it says $button1)... I'll update my resources.au3 with zedna's latest and see what happens.

sensalim · July 24, 2008

Ok I finally got it to work after using reshacker in the wrapper instead of res_file_add.

Thanks all (especially Zedna).

Sign In

_ResourceSetImageToCtrl stopped working

Recommended Posts

sensalim

Link to comment

Share on other sites

gumbitha

Link to comment

Share on other sites

smashly

Link to comment

Share on other sites

sensalim

Link to comment

Share on other sites

sensalim

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta