[Ex] Une image dans votre GUI sans fichier temporaire.
Posté : ven. 17 juin 2011 19:03
par Tlem
Voici un exemple de script qui affiche une image de fond sur une GUI, mais sans utiliser de fichier image. ^^
En fait, le fichier image est convertit en code binaire que vous pouvez insérer dans votre script, ensuite le script lit ce code directement depuis la mémoire et l'utilise sans passer par une écriture temporaire dans un fichier.
Voici l'exemple :
Les lignes indiquée par l'annotation '; Indispensable' et la fonction, seront nécessaires si vous comptez faire la même chose dans votre script
Pour convertir un fichier en une fonction telle que celle du code ci-dessus, utiliser ce petit script tout simple et copiez/collez la fonction entière dans votre code.
En fait, le fichier image est convertit en code binaire que vous pouvez insérer dans votre script, ensuite le script lit ce code directement depuis la mémoire et l'utilise sans passer par une écriture temporaire dans un fichier.
Voici l'exemple :
Les lignes indiquée par l'annotation '; Indispensable' et la fonction, seront nécessaires si vous comptez faire la même chose dans votre script
► Afficher le texteExemple d'affichage d'une image sans fichier
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.1
Auteur: Tlem
Fonction du Script :
Affiche une image en fond de GUI sans passer par un fichier temporaire..
Ce code utilise la fonction Load_BMP_From_Mem() trouvée dans ce sujet :
http://www.autoitscript.com/forum/topic/129859-iso-creator-v095-build-2011-06-17-beta/
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3> ; Indispensable
#include <Memory.au3> ; Indispensable
Global $GUI = GUICreate("Ma GUI", 250, 190, -1, -1)
Global $Pic = GUICtrlCreatePic("", 0, 0, 244, 156)
Global Const $hHBITMAP = Load_BMP_From_Mem(MyImg(), True) ; Indispensable
_WinAPI_DeleteObject(GUICtrlSendMsg($Pic, 0x0172, 0, $hHBITMAP)) ; Indispensable
_WinAPI_DeleteObject($hHBITMAP) ; Indispensable
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
;======================================================================================
; Function Name: Load_BMP_From_Mem
; Description: Loads an image which is saved as a binary string and converts it to a bitmap or hbitmap
;
; Parameters: $bImage: the binary string which contains any valid image which is supported by GDI+
; Optional: $hHBITMAP: if false a bitmap will be created, if true a hbitmap will be created
;
; Remark: hbitmap format is used generally for GUI internal images, $bitmap is more a GDI+ image format
;
; Requirement(s): GDIPlus.au3, Memory.au3
; Return Value(s): Success: handle to bitmap or hbitmap, Error: 0
; Error codes: 1: $bImage is not a binary string
;
; Author(s): UEZ
; Additional Code: thanks to progandy for the MemGlobalAlloc and tVARIANT lines
; Version: v0.95 Build 2011-06-14 Beta
;=======================================================================================
Func Load_BMP_From_Mem($bImage, $hHBITMAP = False)
If Not IsBinary($bImage) Then Return SetError(1, 0, 0)
Local $declared = True
If Not $ghGDIPDll Then
_GDIPlus_Startup()
$declared = False
EndIf
Local Const $memBitmap = Binary($bImage) ;load image saved in variable (memory) and convert it to binary
Local Const $len = BinaryLen($memBitmap) ;get length of image
Local Const $hData = _MemGlobalAlloc($len, $GMEM_MOVEABLE) ;allocates movable memory ($GMEM_MOVEABLE = 0x0002)
Local Const $pData = _MemGlobalLock($hData) ;translate the handle into a pointer
Local $tMem = DllStructCreate("byte[" & $len & "]", $pData) ;create struct
DllStructSetData($tMem, 1, $memBitmap) ;fill struct with image data
_MemGlobalUnlock($hData) ;decrements the lock count associated with a memory object that was allocated with GMEM_MOVEABLE
Local $hStream = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "handle", $pData, "int", True, "ptr*", 0)
$hStream = $hStream[3]
Local $hBitmap = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromStream", "ptr", $hStream, "int*", 0) ;Creates a Bitmap object based on an IStream COM interface
$hBitmap = $hBitmap[2]
Local Const $tVARIANT = DllStructCreate("word vt;word r1;word r2;word r3;ptr data; ptr")
DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $hStream, "dword", 8 + 8 * @AutoItX64, _
"dword", 4, "dword", 23, "dword", 0, "ptr", 0, "ptr", 0, "ptr", DllStructGetPtr($tVARIANT)) ;release memory from $hStream to avoid memory leak
$tMem = 0
If $hHBITMAP Then
Local Const $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
_GDIPlus_BitmapDispose($hBitmap)
If Not $declared Then _GDIPlus_Shutdown()
Return $hHBmp
EndIf
If Not $declared Then _GDIPlus_Shutdown()
Return $hBitmap
EndFunc ;==>Load_BMP_From_Mem
Func MyImg()
Local _
$FileBin = "0xFFD8FFE000104A46494600010101006000600000FFE1001645786966000049492A0008000000000000000000FFDB004300080606070605080707070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F27393D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232FFC000110800BE00FA03012200021101031101FFC4001F0000010501010101010100000000000000000102030405060708090A0BFFC400B5100002010303020403050504040000017D"
$FileBin &= "01020300041105122131410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A25262728292A3435363738393A434445464748494A535455565758595A636465666768696A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100030101010101010101010000000000000102030405060708090A0BFFC400B51100020102040403040705040400010277000102031104052131061241510761711322328108144291A1B1C109233352F0156272D10A162434"
$FileBin &= "E125F11718191A262728292A35363738393A434445464748494A535455565758595A636465666768696A737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F31A28A2BD038828A28A002971F85029D4C425380F5A00A701EB4C0402971EB4E02942D02131ED4B8A762942D5584340A36D3F1ED4B8A60376FB526DF6A936FB518A2C047B7DA8C7B5498A36FB516022DBED463352629314011E29B8F6A971ED4DC52B0119148454845348F5A918C23BD37A53F14847A503"
$FileBin &= "23228A7521A40251451486145145001451450014BDE9075A7502014E140A502A8000F5A78068029E07B53489100A762940A7015421A07B5382FB5380E2971ED4C06E29DB69C052E2988605A315262976D3023DB4856A5DB498F6A008B0690AD4A56931ED4808B19A422A42B4D2B4AC323229A7A5498C5348EB4864641A69152114D239A96864645369E460D348A4319453BA8A69A900A28A28185145038A00514E0334829D4C428A781CD201DA9E073549081453C0A451D29E0715448018A781401CD380F5A620038A7014A0669C17DAA84371ED4EC7AD380E7A5285A6219B7DA971ED4F0B4B8A02E478A36D498A42280B916DF6A42B52E29B8A2C099191EB4C"
$FileBin &= "22A623B5308A43222314D22A52314C22A46447BF14D22A43D69A475A451111DA9A454845308E2A06308E69A4714F23AD348A431B4507AD148614A3A520A701DE810A29E3AD3453C722A80728A728A41DA9E3B552448A3A53C0A414F51542140A7A8A451D29E07A55122814E03DA8039A7819AA25B136D382E7B55CB1D3AE2FE7586DE2691CF200F4EE4F600772781D4D75B65E16B6B550D74DF6897BC68C5631EC4FDE6FC36E3B1359CEAC69EE5C29CA7B1C5085C8C9181EA78AB51E9379326E8ADE5917FBC91923F4AF42B789ADC8168896E47436E811BF161F31FC49A8E7BC88498B8BF8C49FF4DAE067F535CCF19D91BAC2F7679DCB65340DB25428DFDD61"
$FileBin &= "83F9544D1B2F5535EA56EF733C445BDDB3C5D0EC94B2FE3838A493C376B7EA7CFB58813FC70288987E4369FA95269C716BED213C2BE8CF31B6B396EA658A28D9DD8E155464935D4D8F81FCF51F68BD58DCF6862F3B1EC4EE51F8A923DEBA1B2F0CC5A3ACE449E6993E55665DA553B8EBC1278E3B28E9B88ACE9356D4F4CBB68534EB4914731C8F7F0C5BD7D76BC8AC3D0F18CF7A8AB896DFB8553C3AB5E466EA9E00BEB681A6B36FB5A28C9409B24FC17241FA0627DAB8C75C1AF64F0DF8B9AFF598346D42C22866B80DE5BC372932E550B60ED2C3A29E8C7D315C7FC4CD1E3D2FC429710A858EF50C8401FF002D01C39FC72A4FB935542BB93E59055A2A2AF1"
$FileBin &= "388238A6115291C5308EB5D6731091C5348A90D31854B288CD30D48DDE986A58C8C8EB4D239A79E69A6A4A194DFC69C693348007AD385253C75A005C53C53475A78A621C29E38A6AF6A7AF6AB421EA29E3B53145483B5512397B53D4520A78AA44B154715A9A46953EA9789042BC9E598F445EEC4F603FC00C920567C4BB980AF52F0FE989A4696AAC3173300F2E7AAFA27E00F23D49EB8159D6ABECE3E65D2A7CF22C596996FA6DB0B5B55243637B91F34A47427FA2F41EE724E54BAA4B7F70D69A1C315CB29DB25DCA488233E831CB9FA103DCF22ABEBFA93DF5D3E916D2158178BC914E0B13FF002C81EC31F78FE1EB5AFA4471C16A91C6AAAA38C28C015C"
$FileBin &= "31A6E7EF48EB7351F750C83C1D05E286D66FAEF5163D6367F2E1FC235C0FC6B561F06E83146163D1ECC0FF00AE40FF003AD0B421980F5ED52C9AFD85B3796332B75257A63D88073FE04119A25688D5D9CFDDF81B4176F3134E8A0947DD9602D1B03EA083555175EF0FBEEB4BA3AADA0FBD6B7EDFBCC7FB13019CFF00BC187B57582FADAF5098490D8CEC61838E0123DB247E6320646736E9860D35152426DA25D3F54D3FC4B652BD9978EE21C0B8B5980596127A647707B30C83F5040E3F5BD2B58BA9DADE5D334CBBB547DF0C8CF346FD3B95901CF638E0E3381C010EA8B359EA51EA5A7CBF67BC8798E503239EAAC3F890F71FD6BB2D3F54B6F10E8E97F146"
$FileBin &= "2294131DC404E4C5201CAFB8E4107B823BE4567529B832E1352307C19E19BFB4F1141A94A96D63042AE3C8B79E590CA594AE1B796C2F21BEF1E54703AD73FF0016B578AF7C5505840C1FEC3115908ED23E095FC005AD7F17F8AF56F0E59431E990469F695602F09DCC8C3AAAA63008054EE248E4F19071E5904523BB4D3333BB12CCCC49249392493D4935A61E9B72B99D69A51B131E94C6152B0A6357A2CE24C89875A8D875A95875A61EB525111A61A90D31AA4A2334C3D2A46EB4CA818C3498A534521883AD3853474A78A0070A78A60ED4F14D123C76A905317D69EBD6B410F51522D316A45AA247AF5A7A8E94C5A905325B36FC3568B73AB426450628CF"
$FileBin &= "98E08C8207201F6270BF8D76BA9EA86CECAE2EB21DE34CA8639DCE781FA915CBF85F082E24EE5550FD09CFF3414FF12DC6DD2E303F8EE0647B0563FCC0AE0AFEF55513B28FBB4EE57D2D828F99CBB124B31EACC4E493F539AEA6C6E36E39AE16CAE3680335D1E9B2BDC4AB1447E623393C851DC9F6FE7C01C915DB3828C4E78C9B676504A678D901C47D1DBFF651EFEBDC0F4DC0D37CA8BCDC92093C9CD67B4CD0441132001DFA9F527DFF00C8C0E2B1659EEB53BB960B7BB6B48EDCFCF3A0C932E32A98EEA382DEBC2F7615E63BD4968772B416A76E9046C9FBB608E0E54819C11EA3B8E48FA13C8EB5977774416561B5D4E1973C83FE7907B8208E0D64E97A"
$FileBin &= "D4F3291247E5CD1379734639D8E39201EE082083DC1157B520F756DF688D499635F995464BAF5E9EA3AFB8C8E7E502A94B965664D45757462DFCC086C9CE6A9F86F553A6F884C3BBF717ABE5383D378C946FFD097FE042AA5E5DE475AC296ECC57293E705183E7FDD20FF4AEFAB4EF4DDCE4A73B4D1E89AFC29A96817D0100BC20DCC67D0A024FD72BBC63D5ABCCC018E3B57A5C7305BC2241F2071BC7B67915E6611A37689CE590ED63EE3835CF8496F135C4AD988C298DD2A43D2A33DEBB0E6431AA33521A8DA91446D4C3DE9ED4C6EF50CA2334C3D6A434C3DAA06861EF494A7AD2521883A53C77A60EB4F1400E5A78A60EB4F1D29A24917A53D7B5462A45"
$FileBin &= "AD0448B522D46B4F5ED544920F5A907A546BDA9EA6992D1D3F860EEF3D0752AA7F2CFF008D1E2D8993448A5EC2E4271EE921FF00D96AB7862E162D6218D8E165CC5CFA9E9FA803F1AEABC41A5B5E787EFE18D499447E6C78E49284310077254328F76AF3EB7BB5AE7752D6958F36B69492A143331200551924FA003A9AF5BF0EE85FD99A68FB46D3772E1A6C1C84F4407DBB91D4E79202E3CB3C33AAE93A45E3DDEA5F689278B8B68E2B769029C7DF27A647451CE0E4F04293D5C7F116C146D106A0C3B62D48CFE75A622A4A7EEC5684518463EF3DCDFF00135F26976AB140E9F6EB9044390088D47DE9587A2E463D58A8E9922A5A6857B6D6B1C49184551F76"
$FileBin &= "493E7C9E496F5624924FA935CCD96BD1AEB4FAB6AB0DD4D74FB5A24B785A45880276AE7B6CEA3D5896E38CEEAF8D2DCF234FD5C8F6B26ACBDEA5A456A5DE35356F42D47A2DFC1AB4178AB0E1B115C297E1A3CF07FDE52491EA0B0EF9AEA2DA245C6D3823A115C5C9E36B503E6B0D547D6C9AAB0F1FD9C4DCDB6A207FD7A3544D4E4EED171718AB2633C6DA31D2EE85E5B28FB15C37DD51811498C95C760402463A608C0C0CF13206B990429CBC80A2FD4F03F9D76775E3CD16FA096DAFADF516B69576C882D9B247A8F4208041EC403DAB9FF09D90D43C576E2176960B77371E618CA6523395254F232DB148E7EF75239AEA8D697B371974309525CF78F53BF9"
$FileBin &= "22125DCDB546198E3F13C579A34826BA9A453F2BB961F89CD7A6EAD20D3745BCBC3C3221D84FF78F0BFA915E5B6C3E4CFE559E117BCD9589D894F4A8CD48D51B5771C8861A8CD4879A8DA91446698DDE9ED4C6EF50CA18DD6A33521A61A81A187AD2529A4CD21894E1D69B4EA0078A78A8C53D7AD313245ED4F5E951AF4A78ED56844AB520A8853D4D5124A29EA6A31DA9C0D522593C6EC8EAC8C5581C861D88E87F3AF5BD1B514D534DB7D4222165E8E14F2920EA3F3E47B115E423A56BF87BC40FA15F1670CF673604E8BC91E8E07A8F4EE3DC0AE6C4D3E65CC8DF0F52CF9595FC69E1D3A26ABF6AB58B1A7DD3168768E236EA63F6C751FECE392436312DE6"
$FileBin &= "1C735ED172B65AB69CD14CA9756572A1B86E08ECCA7B11D8D799EBBE0EBCD1DE4B9B5DD75A78CB79CA3E6897FE9A01D31FDE1F2F4E84ED1187AC97BB22EB516F543F4E6DC4574F6EABE5835C658332918254D74305CCE100120FC8577B8736C79EE5CAF525D4000A715CB5ECBB58826B6EF2599D482E7F018AE7E4B3B8BBBA5B7B78A49677FBB1C6A598FE039FF0A1C7915D950F7DE8674CFB89E7EBED5EB1E0EF0EB689A516BA42B7D7586951B83120FBA87D0F24B7B9008F96B3BC31E108B4A963BED44A4B7AA434512B06480FF7891C338ED8CA8C6416382BADE23F12C3E1EB0DD9592F6507C888FF00E84DFEC8FD7A7B8F32BD5E77689E8D2A7CAAECE77E"
$FileBin &= "226AE8D2C1A35B904A112CF83DF1F2AFE473F88AE5235DB18155E2335D5C497570ED24B2316676392C4F53564F4AEAA14F92273569F3486B1A61A713D698DDEB666635BBD46D4E34C3D2A4A1AC6A3269C698C79A9286B75A61EB4E3C537A540C61A28349CFAD2180EB4A29B4A2900F14F1DA983D29C0D5089076A783C54629E3B552622453D2A41508A9071544B2507A53C1A881A783C5508941F7A52370A603DE9C0D513B1A1A3F882F34290AA0F3AD18E5EDD9B001EE54FF0009FD0FEA3B8D33C4165A9112585C6D9D7E63113B6443EB8FEA323DEBCE080C306ABC96F920AF50723D8D7255C35F589D34EBD95A47A6DCE9FA6DCB979AC221213CC9013137B9"
$FileBin &= "3B48049F5604D41FD95628008A5BD03BF992C6DFCA31FD6B84875FD6ECC0517924A83B4C049FA9E7F5AB23C69AA81F35BD9B1F5D8E3FF67AC12AD0D15CD5BA53D59D9FF65E9B9CBADDCDEA92DC0087FEF8543FAD5C81E0B385E2B6862B7888CB88D42E40EEC7AB63D58922BCF25F186AF28C22DBC47D638893FF008F123F4ACCB9B9D4B52FF8FAB996419CED63F2E7D768E07E5472559EE1CD4E1B1DB6AFE37B6B3468B4FD97571D37FF00CB34FC47DEFC38F7ED5C4B35CEA376F77772B4B2B9CB33753FE03D076A586C95482C727DEAD7006057452C3A8EACC2A5772D108005181484E68269A4D7518084F7A6B1A18D309E2A4A109EB519A731A613C549421A"
$FileBin &= "8D8F7A71E38A61352C634D34D29EF4D3D6A4A1334DC529A6E7DE900B4A0D251DE90C753C1E29829C3AD310F1EB4F151834E079AA4C92507A53C1A881ED4E07354225069E0D440D381154226069C0D440D381F7A6224CD3835459A7669DC5624C834D2A9DD4526EF7A3340870551D1452E40E94CDD49BBDE801F9A696A6E690B5171D85269A5A90B7BD34B5218A4FA5309A09A61A918134C278A52698C7BD2188C69869C4F34C3CD4B65087A534FA5293CD34D48C43D68A28A430A28A280141A5A6D2F6A621E0E69C0F14C14E06981203DA9C0D474E069924AA734B9E2A307D69C0FBD508933EF4ECD459A7034C56250D4A1BDEA2CD2EEF7A6049BBDE9777BD47"
$FileBin &= "9F7A5DD4C43F77BD1BA99BA90B5003F3499F7A616A42D48638B5349A4CD377520B0A4FBD349A42D4DCE7BD218A4F14C279A09A69352D8C42690D04D34F5A450534D2D254805145140C28A28A0028A28A00752834C14EA621E0D283CD3334EA603C1F6A507DE980D3875A69923C1F7A766A3CD28CD34C093346EF7A6669734C0937526EA664D2E698876EA5DDEF4CCD266801DBA909A4C9A4CD218E269A5BDE933499A4D80A4D373487A5373C526C604FA521A0D373D690C5A69F4A0D21A4014514521851451401FFD9"
Return Binary($FileBin)
EndFunc► Afficher le texte_FileToBinaryFunction
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version(s) : 3.3.6.1
Auteur : Tlem
Fonction du Script :
Script adapté de l'UDF ConvertImageToBinary.au3 qui permet de transformer
un fichier en code binaire qui peut être inclus tel quel dans un code AutoIt.
L'appel de la fonction permet de recupérer le fichier sous forme binaire
afin de le recréer ou de l'utiliser tel quel à partir de la mémoire.
#ce ----------------------------------------------------------------------------
$file = FileOpenDialog("Fichier à convertir", @DesktopDir, "All Files (*.*)")
If @error Then Exit
$Fname = StringTrimLeft($file, StringInStr($file, "\", 1, -1))
$Path = StringTrimRight($file, StringLen($Fname))
$f = FileOpen($file, 16)
$t = FileRead($f)
FileClose($f)
$z = StringRegExp($t, "(.{1,512})", 3) ; Longeur de ligne (512)
$Ubound = UBound($z)
$FuncName = StringReplace($Fname, ".", "_")
$FuncName = StringRegExpReplace($FuncName, '[^\w]', '')
$FuncName = StringRegExpReplace($FuncName, '[^\D]', '')
Global $String
If $Ubound = 1 Then
$String &= 'Func ' & $FuncName & '()' & @CRLF & ' Local _' & @CRLF & ' $FileBin = "' & $z[0] & '"'
ElseIf $Ubound > 1 Then
$String &= 'Func ' & $FuncName & '()' & @CRLF & ' Local _'& @CRLF & ' $FileBin = "' & $z[0] & '"' & @CRLF
For $i = 1 To $Ubound - 2 Step 1
$String &= ' $FileBin &= "' & $z[$i] & '"' & @CRLF
Next
$String &= ' $FileBin &= "' & $z[$Ubound - 1] & '"' & @CRLF
EndIf
If $Ubound > 0 Then
$String &= ' Return Binary($FileBin)' & @CRLF
$String &= 'EndFunc'
EndIf
FileDelete(@TempDir & "\FicTmp.au3")
FileWrite(@TempDir & "\FicTmp.au3", $String)
ShellExecute(@TempDir & "\FicTmp.au3", '', '', "edit")