[..] Appeler un GIF d'une DLL pour l'afficher sur un GUI

[Pollux]

STATUT: Non résolu (11/11/2008 - 00:46)

Bonjour à tous/toutes.

Ayant suivi le tutoriel sur l'insertion de ressources dans une DLL, j'ai pu stocker mes images bitmap pour les utiliser par la suite, sans problèmes.

J'ai voulu ensuite m'essayer à l'insertion de GIF (réussie) dans la DLL pour ensuite m'en servir pour les afficher en tant qu'images sur un GUI (échec).
J'ai essayé d'appeler le GIF en utilisant la fameuse fonction SetBitmapResourceToPicCtrl mais rien à faire. Dans le tutoriel il est précisé que l'on peut utiliser cette fonction pour "des images d'un autre format" que les icônes. Bref rien à faire, lorsque j'appelle mon GIF rien ne se passe.
(Je ne pose pas la question de la transparence car je pense que si l'on arrive à appeller le GIF de la DLL, la transparence marchera impec)

Si quelqu'un a une idée ou un conseil à me donner, je lui en serait très reconnaissant ! Car là je me prend le chou et je ne trouve pas


Merci d'avance.

NB: pour le GIF, le type que j'ai mis est RCDATA, dans le fichier ressource

[Tlem]

Ce tutoriel vous convient-il ?
http://www.autoitscript.fr/forum/viewto ... 2006#p2006

[Pollux]

Bonsoir,

J'ai évidemment parcouru le tutoriel de long en large avant de venir ici (pour ne pas déranger inutilement )
Etape par étape, j'ai donc fait:

• TESTGIF RCDATA "Exemple.gif" dans mon fichier ressource.

• Transformé mon fichier *.rc et *.res puis insertion de ce dernier dans ma dll (via les outils du tutoriel)

• Ensuite (et c'est là le problème), j'utilise la fonction d'appel des ressources dans la dll:

SetBitmapResourceToPicCtrl($gui, $pic, 50, 50, 50, 100, "MaDll.dll", "TESTGIF", "str")

Et rien ne se passe malheureusement

[jbnh]

Un bête question: tu as donc dans ton code:

Code : Tout sélectionner

SetBitmapResourceToPicCtrl($gui, $pic, 50, 50, 50, 100, "MaDll.dll", "TESTGIF", "str")

Mais as tu bien la gui qui va avec et la fonction complète? comme dans l'exemple:

► Afficher le texte

Code : Tout sélectionner

$gui = GUICreate("", 500, 345)
$pic = GUICtrlCreatePic("", 0, 0, 0, 0)

GUISetState()

SetBitmapResourceToPicCtrl($gui, $pic, 50, 50, 50, 100, "MaDll.dll", "PIC1_BMP", "str")
Sleep(1000)
SetBitmapResourceToPicCtrl($gui, $pic, 50, 50, 100, 100, "MaDll.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   ;==>SetBitmapResourceToPicCtrl

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

[Tlem]

Hummm effectivement, ça ne fonctionne pas car ce n'est pas une image Bitmap.
Il va falloir que je complète le tuto.

Pour utiliser d'autres ressources que les images Bitmap, il vous faut l'UDF ressource.au3 disponible sur ce post : http://www.autoitscript.fr/forum/viewto ... 3093#p3093

Regardez dans le code de cet UDF le nom des variables pour les différentes ressources utilisables.

Voici le code pour votre cas (testé et fonctionnel) :

Code : Tout sélectionner

#include "resources.au3"
 
$gui = GUICreate("Test d'utilisation de ressources",250,150)
$pic = GUICtrlCreatePic("",50,50,50,100)
GUISetState(@SW_SHOW)

_ResourceSetImageToCtrl($pic, "TESTGIF", $RT_RCDATA, "MaDll.dll")

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

[Pollux]

Arf, et dire que j'avais lu ce tutoriel :s Mais comme il ne faisait pas intervenir de DLL je l'avais laissé tombé
Ca marche impeccable !
Merci beaucoup à vous deux, vous me sauvez la vie

Problème [R]ésolu

EDIT: Ou pas!
Comme je le craignais, il me fait un caprice avec la transparence

Le code:

Code : Tout sélectionner

$BG = GUICreate("Test",500,150, -1, -1)
WinSetTrans("Test", "", 0)
$Main_Gui = GUICreate("", 500, 150, -1, -1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_LAYERED + $WS_EX_MDICHILD , $BG);
$pic = GUICtrlCreatePic("", 0, 0, 500, 150)
_ResourceSetImageToCtrl($pic, "SPLASH", $RT_RCDATA, "MaDll.dll")
GUISetState(@SW_SHOW,$BG)
GUISetState(@SW_SHOW,$Main_Gui)
 

Mon souci: http://img139.imageshack.us/img139/8949/probou1.jpg

En haut, le gif d'origine, avec le pixel en haut à gauche qui définit ma couleur de transparence, le vert (#00FF00), échelle 2:1
En dessous, en taille 1:1, le GIF tel qu'il apparait. Le script prend en fait la bordure noire qui entoure mon image comme couleur de transparence, pourtant il ne devrait pas vu que j'ai défini le pixel en haut à gauche comme vert (et pas noir)
Si certains se sentent à essayer, j'y ait joint le fichier concerné.

Merci d'avance

[Tlem]

Code : Tout sélectionner

#include <WindowsConstants.au3>

$BG = GUICreate("Test",500,150, -1, -1)
$MG = GUICreate("", 500, 150, -1, -1, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_LAYERED), $BG)
$pic = GUICtrlCreatePic("SplashBG.gif", 0, 0, 500, 150)
GUISetState(@SW_SHOW)
Sleep(3000)

Fonctionne chez moi, mais vous ne pourrez utiliser WinSetTrans pour l'afficher en Splash.
Utilisez un autre UDF (du forum exemple de script) pour le faire.

[Pollux]

Il m'est en effet arrivé d'utiliser la fonction WinSetTrans, mais le problème est avant cela, car si j'appelle un gif situé dans un répertoire (donc ni dans une DLL ni dans un fichier ressource) la transparence marche impec.
En revanche, dès que j'appelle un gif d'une dll, la transparence ne marche plus. Dans votre exemple il n'y a pas l'appel de la dll pour charger le gif à l'intérieur, enfin peut-être que j'ai raté une étape, mais pour l'instant ça ne passe pas

[Tlem]

Effectivement, ça ne fonctionne pas !
Dans ce cas, pour l'instant, utilisez la commande FileInstall pour copier le fichier dans un répertoire temporaire.

PS: Merci de réduire l'image de votre signature.

[Tlem]

Pouvez-vous utiliser la fonction _ResourceSaveToFile de l'UDF Ressource.au3 afin de sauvegarder votre image GIF, puis d'utiliser celle-ci normalement pour voir si la transparence n'a pas été supprimée ?