Code: Select all
; Works in ANSI
#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
SetBatchLines -1
/*
Public Enum IwStatus
Ok = 0
LoadingError = 1
ImageNotInitialized = 2
InvalidParameter = 3
BitCountNotSupported = 4
UnknownImageHandle = 5
AccessDenied = 6
UnrecognizedSignature = 7
OutOfMemory = 8
GdiplusNotInitialized = 9
ValueOverflow = 10
UnknownImageFormat = 11
Win32Error = 12
End Enum
*/
log .= "`n`n LoadLibrary: " hModule := DllCall("LoadLibrary", Str, "ImageWizard.dll")
log .= "`n`n ImageWizardStartUp: " DllCall("ImageWizard\ImageWizardStartUp")
; Public Declare Function LoadImageFromFile Lib "ImageWizard.dll" (ByVal FileName As String, ByRef Image As Long, Optional ByVal Index As Long) As IwStatus
log .= "`n`n LoadImageFromFile: " DllCall("ImageWizard\LoadImageFromFile", Str, "lena.bmp", "Int*", hImage) ; <---- Not work in unicode ahk.
log .= "`n`n hImage: " hImage
log .= "`n`n SaveImageToPngFile: " DllCall("ImageWizard\SaveImageToPngFile", Int, hImage, Str, "out.png")
; Public Declare Function DisposeImage Lib "ImageWizard.dll" (ByRef Image As Long) As IwStatus
log .= "`n`n DisposeResource: " DllCall("ImageWizard\DisposeResource", "Int*", hImage) ; <----- Not work.
log .= "`n`n ImageWizardShutDown: " DllCall("ImageWizard\ImageWizardShutDown")
log .= "`n`n FreeLibrary: " DllCall("FreeLibrary", UInt, hModule)
MsgBox, 262144, Finish, % log
Download:
test files: https://www.dropbox.com/s/a6uto60jd0hej ... eWizard.7z
ImgWizard (Includes source and .chm, etc.): https://www.dropbox.com/s/xudz55yitkqa6vz/ImgWizard.rar
Thanks!