AutoIt Français

Bonjour chèrz' amis AutoItiens .

Je vous partage un petit exemple issus d'une fonction que j'ai mis en place.
Avant tout, je sais qu'il existe déjà des fonctions du même type, mais ayant passé pas mal de temps à la faire je me dis que ça pourrais intéresser quelque un d'entre vous

.
Celle-ci vous permet de mettre du texte sur une image et de la sauvegarder.
Un peu comme un générateur de signatures

Histoire de vous faire un bel exemple, je vous ai mis tout cela dans une 'GuiTest' !
C'est pas beau tout ça ?

Donc,
Voici la Fonction.

Code : Tout sélectionner

_DrawStringToPicture(OriPic, DestPic,[color=#4080FF] String[/color], [color=#808000][Color][/color],[color=#808000][Font][/color],[color=#808000][Size][/color])

OriPic = L'image source
DestPic = La destination de sauvegarde

String =
Attention ici c'est un array qu'il faut mettre !
Ex :

Code : Tout sélectionner

 
[color=#0000BF]Local[/color] [color=#800000]$StringPic[/color][4]
[color=#800000]$StringPic[/color][0] = 1 [color=#408040];Nombre de string[/color]
[color=#800000]$StringPic[/color][1] = "Mon message" 
[color=#800000]$StringPic[/color][2] = 80 [color=#408040];Coord X[/color]
[color=#800000]$StringPic[/color][3] = 12 [color=#408040];Coord Y[/color]

Le Return

$Array[0] = Chemin
$Array[1] = Sa taille Width
$Array[2] = Sa taille Height

► Afficher le texteFonction

Voici un script d'exemple pour créer une signature.

► Afficher le texteCode

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>

FileInstall(".\Example.jpg",@TempDir&"\Example.jpg")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Sign Generator", 403, 173, -1, -1)

$L1 = GUICtrlCreateLabel("Votre Message :", 8, 8, 81, 17)
$L2 = GUICtrlCreateLabel("Coordonées X,Y :", 8, 40, 87, 17)

$Message = GUICtrlCreateInput("", 96, 8, 297, 21)

$inputX = GUICtrlCreateInput("80", 96, 40, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))
$inputY = GUICtrlCreateInput("12", 144, 40, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_NUMBER))

$Pic1 = GUICtrlCreatePic(@TempDir&"\Example.jpg", 8, 72, 383, 60)

$Save = GUICtrlCreateButton("Enregistrer", 8, 136, 379, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $LabelBuffer = GUICtrlRead($Message)
Local $XBuffer = GUICtrlRead($inputX)
Local $YBuffer = GUICtrlRead($inputY)

While 1
   
   If GuictrlRead($Message) <> $LabelBuffer or GuictrlRead($inputX) <> $XBuffer or GuictrlRead($inputY) <> $YBuffer Then
      
      Local $StringPic[4]
            $StringPic[0] = 1
            $StringPic[1] = GUICtrlRead($Message)
            $StringPic[2] = GUICtrlRead($inputX)
            $StringPic[3] = GUICtrlRead($inputY)
               
   $Test = _DrawStringToPicture(@tempdir&"\Example.jpg", @TempDir&"\SignBuffer.jpg", $StringPic,0xFFFFFFFF)
   
   GUICtrlSetImage($Pic1,$Test[0])
   
   $LabelBuffer = $StringPic[1]
   $XBuffer = $StringPic[2]
   $YBuffer = $StringPic[3]
   
   EndIf
   
    $nMsg = GUIGetMsg()
    Switch $nMsg
   Case $GUI_EVENT_CLOSE
            Exit
   Case $Save
   Local $SavePic = FileSaveDialog("Sauvegarder", ".\", "JPG (*.jpg)", 2)
   
   If Not @error And IsArray($Test) Then
    Filecopy($Test[0],$SavePic&".jpg")
   EndIf
 
    EndSwitch
WEnd



Func _DrawStringToPicture($OriPicture, $DestPicture, Byref $pStringArray, $FontColor = 0xFF000000, $pStringFont = "Arial", $pFontSize = 30)

_GDIPlus_Startup()

$BitmapPicture = _GDIPlus_BitmapCreateFromFile($OriPicture)
$BasePicture = _GDIPlus_ImageGetGraphicsContext($BitmapPicture )

$hBrush = _GDIPlus_BrushCreateSolid($FontColor)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate($pStringFont)
$hFont = _GDIPlus_FontCreate($hFamily, $pFontSize, 1)

For $sCount = 1 To $pStringArray[0]*3 step 3
    
$tLayout = _GDIPlus_RectFCreate($pStringArray[$sCount+1], $pStringArray[$sCount+2], 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString($BasePicture, $pStringArray[$sCount], $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx($BasePicture, $pStringArray[$sCount], $hFont, $aInfo[0], $hFormat, $hBrush)

Next

_GDIPlus_ImageSaveToFile($BitmapPicture, $DestPicture)
Local $ReturnPicture[3]
   $ReturnPicture[0] =  $DestPicture
   $ReturnPicture[1] = _GDIPlus_ImageGetWidth($BitmapPicture)
   $ReturnPicture[2] = _GDIPlus_ImageGetHeight($BitmapPicture)

_GDIPlus_ImageDispose ($BitmapPicture)

_GDIPlus_Shutdown()

Return $ReturnPicture

EndFunc

Disponible en pièce jointe avec le Jpg d'exemple.

Bon script à tous

Pas mal mais il manque le nettoyage des ressouces GDI+ en fin de fonction, comme dans celle-ci

► Afficher le texte

AutoIt Français

[Ex] Générateur de signatures.

[Ex] Générateur de signatures.

Re: [Ex] Générateur de signatures.