AutoIt Français

Code : Tout sélectionner

#include <GDIPlus.au3>
#include <File.au3>
#include <Array.au3>
$newFileName = "C:\Users\Pc\Desktop\decompo\path11.png"
$holdFileName = "C:\Users\Pc\Desktop\path1S.png"
$W = 402
$H = 419
_Image($holdFileName, $newFileName, $W, $H)
; Resize function
Func _Image($sInImage, $sOutImage, $iW, $iH)
    Local $hWnd, $hDC, $hBMP, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0

    ;OutFile path, to use later on.
    Local $sOP = StringLeft($sOutImage, StringInStr($sOutImage, "\", 0, -1))

    ;OutFile name, to use later on.
    Local $sOF1 = StringMid($sOutImage, StringInStr($sOutImage, "\", 0, -1) + 1)
    Local $sOF = StringMid($sOF1,1,StringInStr($sOF1, ".", 0, 1) - 1) & "-"
    ;OutFile extension , to use for the encoder later on.
    Local $Ext = StringUpper(StringMid($sOutImage, StringInStr($sOutImage, ".", 0, -1) + 1))

    ; Win api to create blank bitmap at the width and height to put your resized image on.
    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
    _WinAPI_ReleaseDC($hWnd, $hDC)

    ;Start GDIPlus
    _GDIPlus_Startup()

    ;Get the handle of blank bitmap you created above as an image
    ;$hImage1 = _GDIPlus_BitmapCreateFromHBITMAP ($hBMP)
    $hImage1 = _GDIPlus_ImageLoadFromFile("C:\Users\Pc\Desktop\g6.png") ;Base
    ;Load the image you want to resize.
    $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)

    ;Get the graphic context of the blank bitmap
    $hGraphic = _GDIPlus_ImageGetGraphicsContext ($hImage1)

    Local $hIA = _GDIPlus_ImageAttributesCreate() ;create an ImageAttribute object >> transparence

    _GDIPlus_ImageAttributesSetColorKeys($hIA, 0, True, 0x00400000, 0x00ffff00)
_GDIPlus_GraphicsDrawImageRectRect($hGraphic, $hImage2, 0, 0, $iW, $iH, 0, 0, $iW, $iH, $hIA)
$CLSID = _GDIPlus_EncodersGetCLSID("png")

    ;Generate a number for out file that doesn't already exist, so you don't overwrite an existing image.
    Local $i

    Do
        $i += 1
        $y = StringFormat("%03i",$i)
    Until (Not FileExists($sOP  & $sOF & $y & "." & $Ext))

    ;Prefix the number to the begining of the output filename
    $sOutImage = $sOP  & $sOF & $y & "." & $Ext
    ;Save the new resized image.
    _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID)


;_GDIPlus_ImageSaveToFile($hImage1, $sOutImage)
    ;Clean up and shutdown GDIPlus.
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_ImageDispose($hImage2)
    _GDIPlus_GraphicsDispose ($hGraphic)
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_ImageAttributesDispose($hIA)
    _GDIPlus_Shutdown()

EndFunc

Code : Tout sélectionner

#include <GDIPlus.au3>
    _GDIPlus_Startup()
    $base = _GDIPlus_ImageLoadFromFile ("C:\Users\Pc\Desktop\essai_ffmpeg\g6.png" );Base

    $iX = _GDIPlus_ImageGetWidth($base)
    $iY = _GDIPlus_ImageGetHeight($base)
    $hBitmap = _GDIPlus_ImageLoadFromFile ( "C:\Users\Pc\Desktop\essai_ffmpeg\path1.png"  )
    Local $hBitmap_Scaled = _GDIPlus_ImageResize($hBitmap, $iX, $iY) ;resize image
    _GDIPlus_ImageSaveToFile($hBitmap_Scaled,  @ScriptDir & "\path1S.png")

        ;cleanup resources
    _GDIPlus_ImageDispose($hBitmap)
    _GDIPlus_BitmapDispose($base)
    _GDIPlus_Shutdown()