Picture from DLL

[ValkuR]

HI @ALL.

How to load a Picture from .DLL? I´ve try this load as Icon from DLL but don´t work.

I hope so, somebody can help me.

thx

[SmOke_N]

HI @ALL.

How to load a Picture from .DLL? I´ve try this load as Icon from DLL but don´t work.

I hope so, somebody can help me.

thx

http://www.autoitscript.com/forum/index.ph...st&p=242546

[ValkuR]

oha, thx for fast answer

[SmOke_N]

oha, thx for fast answer

YW, I saw it earlier, so it wasn't hard to find, you can give a big thanks to Larry for that one.

[ValkuR]

ok, thx Larry . i will try this one.

OK. Don´t work for me. Dll as File Attachment

expandcollapse popup

$gui = GUICreate("",500,345)
$pic = GUICtrlCreatePic(".\PIC1_BMP.BMP",500,345,200,200)

GUISetState()

SetBitmapResourceToPicCtrl($gui,$pic,"new.dll",0)

While 1
    If GUIGetMsg() = -3 Then Exit
WEnd


Func SetBitmapResourceToPicCtrl($hwnd,$ctrl,$file,$resource)
    Local Const $STM_SETIMAGE = 0x0172
    Local Const $IMAGE_BITMAP = 0
    Local Const $LR_CREATEDIBSECTION = 0x2000
    Local Const $LR_COPYDELETEORG = 8

    $hwnd = ControlGetHandle($hwnd,"",$ctrl)
   
    Local $DLLinst = DLLCall("kernel32.dll","hwnd","LoadLibrary","str",$file)
    $DLLinst = $DLLinst[0]

    Local $hBitmap = DLLCall("user32.dll","hwnd","LoadImage","hwnd",$DLLinst,"int",$resource, _
            "int",$IMAGE_BITMAP,"int",0,"int",0,"int",0)
    $hBitmap = $hBitmap[0]
   
    DeleteObject(_SendMessage($hwnd,$STM_SETIMAGE,$IMAGE_BITMAP,$hBitmap,0,"int","int","hwnd"))
   
    DLLCall("kernel32.dll","int","FreeLibrary","hwnd",$DLLinst)
EndFunc

Func _SendMessage($hWnd, $msg, $wParam = 0, $lParam = 0, $r = 0, $t1 = "int", $t2 = "int", $t3 = "long")
    Local $ret = DllCall("user32.dll", $t3, "SendMessage", "hwnd", $hWnd, "int", $msg, $t1, $wParam, $t2, $lParam)
    If @error Then Return SetError(@error, @extended, "")
    If $r >= 0 And $r <= 4 Then Return $ret[$r]
    Return $ret
EndFunc; _SendMessage()
Func DeleteObject($hObj)
    Local $bResult = DllCall('gdi32.dll', 'int', 'DeleteObject', _
            'hwnd', $hObj)
    Return $bResult[0]
EndFunc  ;==>DeleteObject

Edited September 29, 2006 by ValkuR

[ValkuR]

Thx Larry this works . is this the only way to load a picture from dll file?

i like the GUICtrlCreateIcon function

[ValkuR]

ok, thanks again LARRY.

[Fossil Rock]

Don't give us that humble crap... you know your sh!t don't stink.

[jpam]

larry

is this working with jpg,mp3,wav files to ?

jpam

[jpam]

hi

has someone time to expiriment with other data from dll ?

i made a Resource.dll with different data inside

larry has made a very nice udf for bitmap loading from dll

but bitmaps are very large

mybe someone can do the same for jpg's mp3's and other file types !

1 bmp file (works with larry's udf i included it for testing)

2 wave file

3 RC_DATA contains jpg, midi and mp3

jpam

Resource.dll

[jpam]

larry's function with resize

$gui = GUICreate("",500,345)

$pic = GUICtrlCreatePic("",0,0,0,0)

GUISetState()

SetBitmapResourceToPicCtrl($gui,$pic,50,50,50,100,".\new.dll","PIC1_BMP","str")

Sleep(1000)

SetBitmapResourceToPicCtrl($gui,$pic,50,50,100,100,".\new.dll","PIC1_BMP","str")

While 1

If GUIGetMsg() = -3 Then Exit

WEnd

Func SetBitmapResourceToPicCtrl($hwnd,$ctrl,$posw,$posh,$picw,$pich,$file,$resource,$type = "int")

Local Const $STM_SETIMAGE = 0x0172

Local Const $IMAGE_BITMAP = 0

Local Const $LR_CREATEDIBSECTION = 0x2000

Local Const $LR_COPYDELETEORG = 8

$hwnd = ControlGetHandle($hwnd,"",$ctrl)

Local $DLLinst = DLLCall("kernel32.dll","hwnd","LoadLibrary",$type,$file)

$DLLinst = $DLLinst[0]

Local $hBitmap = DLLCall("user32.dll","hwnd","LoadImage","hwnd",$DLLinst,"str",$resource, _

"int",$IMAGE_BITMAP,"int",0,"int",0,"int",0)

$hBitmap = $hBitmap[0]

DeleteObject(_SendMessage($hwnd,$STM_SETIMAGE,$IMAGE_BITMAP,$hBitmap,0,"int","int","hwnd"))

DLLCall("kernel32.dll","int","FreeLibrary","hwnd",$DLLinst)

GUICtrlSetPos($ctrl,$posw,$posh,$picw,$pich)

EndFunc

Func _SendMessage($hWnd, $msg, $wParam = 0, $lParam = 0, $r = 0, $t1 = "int", $t2 = "int", $t3 = "long")

Local $ret = DllCall("user32.dll", $t3, "SendMessage", "hwnd", $hWnd, "int", $msg, $t1, $wParam, $t2, $lParam)

If @error Then Return SetError(@error, @extended, "")

If $r >= 0 And $r <= 4 Then Return $ret[$r]

Return $ret

EndFunc; _SendMessage()

Func DeleteObject($hObj)

Local $bResult = DllCall('gdi32.dll', 'int', 'DeleteObject', _

'hwnd', $hObj)

Return $bResult[0]

EndFunc ;==>DeleteObject

Edited October 21, 2006 by jpam