[R] Imprimer une image d'une DLL

[Yle]

Bonjour à tous,

J'ai une DLL (Cartes.dll) dans laquelle j'ai 4 images au format BMP.
J'arrive à afficher ces images sur une Gui mais comment faire pour en imprimer une dans un fichier Excel.

L'Udf Excel veut à tout prix le chemin d'une image. Comment contourner le problème ?
QQ a t'il une idée ?

► Afficher le texte

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>
#include <WinAPI.au3>
#include <Constants.au3>
#include <ExcelCOM_UDF.au3>

$oXl=ObjCreate("excel.Application")
$oXL.ScreenUpdating = true
$oXL.Visible = false
$oXL.workbooks.add
$newsheet = $oXL.Worksheets.Add
$oXl.ActiveSheet.PageSetup.Orientation = $xlPortrait ; portrait
$oXl.ActiveSheet.PageSetup.LeftMargin = $oXl.InchesToPoints(0.2)
$oXl.ActiveSheet.PageSetup.RightMargin = $oXl.InchesToPoints(0.2)
$oXl.ActiveSheet.PageSetup.CenterHorizontally = True
$oXl.ActiveSheet.PageSetup.CenterVertically = False

$Load_Lib = _WinAPI_LoadLibrary(@ScriptDir & "\Cartes.dll")
;Dans la DLL, les images sont appelées Card1, Card2, Card3 et Card4

;~ $GD = GUICreate("GD" , 500,300, -1, -1)
;~ $C1 = GUICtrlCreatePic("", 6, 10, -1, -1 )
;~ $hC1 = _WinAPI_LoadImage($Load_Lib, "Card1", $IMAGE_BITMAP, 57,105, $LR_CREATEDIBSECTION + $LR_DEFAULTSIZE + $LR_SHARED + $LR_DEFAULTCOLOR )
;~ $hMsg = GUICtrlSendMsg($C1, 0x0172, $IMAGE_BITMAP, $hC1)
;~ GUISetState(@SW_SHOW)
;~ While 1
;~ Switch GUIGetMsg()
;~ Case $GUI_EVENT_CLOSE
;~ ExitLoop
;~ EndSwitch
;~ WEnd

$oXL.Cells(1,5).Value = "T E S T"
$AA= _ExcelPictureInsert($oXl, @ScriptDir & "\bunny.Bmp", 10,100,36,24, True,True)
$hBmp = _WinAPI_LoadImage($Load_Lib, "Card1", $IMAGE_BITMAP,57,105, $LR_LOADFROMFILE )
_ExcelPictureInsert($oXl, $hC1, 100,100,57,105, True,True)

; _ExcelPictureInsert($oExcel, $sFilePath, $iLeft, $iTop, $iWidth, $iHeight, $fLinkToFile = False, $fSaveWithDoc = False)
_ExcelBookSaveAs($oXl, @ScriptDir & "\TEST.xls","xls", 0, 0, "", "", 1, 2)
;_ExcelBookSaveAs($oExcel, $sFilePath, $sType = "xls", $fAlerts = 0, $fOverWrite = 0, $sPassword = "", $sWritePassword = "", $iAccessMode = 1, $iConflictResolution = 2)
$oXL.quit

Exit

PS : En pièce jointe ma DLL

[jguinch]

La fonction d'insertion d'image dans Excel attend un chemin de fichier.
Tu pourrais enregistrer l'image sur le disque dans un fichier temporaire, non ?

comment faire pour en imprimer une dans un fichier Excel

Imprimer, ou insérer ?

[Yle]

Oui mais on fait comment ?
As tu une idée?

[jguinch]

_GDIPlus_ImageSaveToFileEx je pense
Il n'y a pas la pièce jointe

[Yle]

Bonsoir,

Avec un peu de retard (pas de liaison là où j'étais), je viens de voir que ma DLL n'avait pas été fournie.
Je la télécharge de nouveau et je m'aperçois que si je veux "attacher" une DLL, je reçois un message : l'Extension dll n'est pas autorisée
J'ai renommé la dll en .log et çà a l'air de passer ???

Sinon en fouillant sur le site, j'ai retrouvé cet article de Tlem : http://www.autoitscript.fr/forum/viewtopic.php?p=3093 et celui ci : http://www.autoitscript.fr/forum/viewto ... dll#p43156

J'ai simplifié mon script :

► Afficher le texte

#include <resourcesEx.au3>
#Include <GDIPlus.au3>

$hImage = _Resource_GetAsImage("#14355", $RT_BITMAP, @SystemDir & "\shell32.dll")
_GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "MonImage.bmp")
_GDIPlus_ImageDispose($hImage)


$hImage = _Resource_GetAsImage("CARD1", $RT_BITMAP,@ScriptDir & "\Cartes.dll")
_GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "MonImage2.bmp")
_GDIPlus_ImageDispose($hImage)
Exit

A partir de l'exemple fourni par Tlem, j'ai mis le mien avec ma dll (cartes.dll) mais aucun exemple ne fonctionne, aucun fichier ne se crée.
Pour info, je suis allé rechercher le nouvel UDF : ResourcesEx sur le site anglais

QQ a une idée ?

[jguinch]

Tiens, justement Mikell vient de poster une réponse sur le forum US : http://www.autoitscript.com/forum/topic ... -from-exe/
Donc à peu de choses près, ça devrait donner un truc comme ça :

► Afficher le texte

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <WinAPIShellEx.au3>

ExtractIcon(@systemdir & "\notepad.exe", @ScriptDir & "\notepad.ico")

Func ExtractIcon($file, $output)
    $hIcon = _WinAPI_ShellExtractIcon($file, 0, 32, 32)
    _GDIPlus_Startup()
    $pBitmap = _GDIPlus_BitmapCreateFromHICON($hIcon)
    _GDIPlus_ImageSaveToFileEx($pBitmap, $output, _GDIPlus_EncodersGetCLSID("BMP"))
    _GDIPlus_ImageDispose($pBitmap)
    _GDIPlus_Shutdown()
    _WinAPI_DestroyIcon($hIcon)
EndFunc
 

[Yle]

_GDIPlus_BitmapCreateFromHICON fonctionne effectivement pour copier l'icône sur un fichier mais moi je veux extraire une image (bmp)

Y-a-t'il une fonction GDI appropriée pour DLL ? Je ne pense pas...
_Resource_GetAsImage est peut-être mieux mais je dois mal l'utiliser

[mikell]

Code : Tout sélectionner

#include <WinAPIGdi.au3>

$Load_Lib = _WinAPI_LoadLibrary(@ScriptDir & "\Cartes.dll")
$hC1 = _WinAPI_LoadImage($Load_Lib, "Card1", $IMAGE_BITMAP, 57,105, $LR_CREATEDIBSECTION + $LR_DEFAULTSIZE + $LR_SHARED + $LR_DEFAULTCOLOR )
_WinAPI_SaveHBITMAPToFile(@ScriptDir & "\card1.bmp", $hC1)

[Yle]

Suis allé chercher bien loin et je ne risquais pas de trouver
Bravo et merci pour cet _WinAPI_SaveHBITMAPToFile