Creating a blank image

[Vindicator209]

Hello, I am trying to create a script to replace many .png files with a blank image of the same dimensions.

I guessed I would be using GDIPlus, but I'm not sure how to create a blank image using it.

Here is my unfinished attempt:

#include <Array.au3>
#include <File.au3>
#include <GDIPlus.au3>
_GDIPlus_Startup()
$folders = _FileListToArray(@ScriptDir,"*",2)
For $i = 1 to $folders[0]
    $files = _FileListToArray(@ScriptDir & "\" & $folders[$i],"*.png")
    For $k = 1 to $files[0]
        $image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\" & $folders[$i] & "\" & $files[$i])
        $height = _GDIPlus_ImageGetWidth($image)
        $width = _GDIPlus_ImageGetHeight($image)
        _GDIPlus_ImageDispose($image)
        FileDelete(@ScriptDir & "\" & $folders[$i] & "\" & $files[$i])

        ;create blank image of height and width
        $newimage = "Blank Image Here"
        $CLSID = _GDIPlus_EncodersGetCLSID ("PNG")
        _GDIPlus_ImageSaveToFileEx($newimage,@ScriptDir & "\" & $folders[$i] & "\" & $files[$i],$CLSID)
    Next
Next
_GDIPlus_Shutdown()

How would I create a blank image using the GDIPlus UDF to be saved using _ImageSaveToFileEx?

Thanks

[Andreik]

You mean transparent or white?

[UEZ]

Try this:

#include <Array.au3>
#include <File.au3>
#include <GDIPlus.au3>
_GDIPlus_Startup()
$folders = _FileListToArray(@ScriptDir,"*",2)
For $i = 1 to $folders[0]
    $files = _FileListToArray(@ScriptDir & "\" & $folders[$i],"*.png")
    For $k = 1 to $files[0]
        $image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\" & $folders[$i] & "\" & $files[$i])
        $height = _GDIPlus_ImageGetWidth($image)
        $width = _GDIPlus_ImageGetHeight($image)
        _GDIPlus_ImageDispose($image)
        FileDelete(@ScriptDir & "\" & $folders[$i] & "\" & $files[$i])

        ;create blank image of height and width
        $newimage = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $width, "int",  $height, "int", 0, "int", 0x0026200A, "ptr", 0, "int*", 0)
        $newimage = $newimage[6]
        $CLSID = _GDIPlus_EncodersGetCLSID ("PNG")
        _GDIPlus_ImageSaveToFileEx($newimage,@ScriptDir & "\" & $folders[$i] & "\" & $files[$i],$CLSID)
        _GDIPlus_BitmapDispose($newimage)
    Next
Next
_GDIPlus_Shutdown()

Not tested!

Br,

UEZ

Edited June 8, 2011 by UEZ

[Vindicator209]

That works beautifully! Thanks!