易语言转换图像格式模块源码

系统结构:A2W,销毁,载入图像,载入文件,转换到字节集,转换到文件,取图片宽度,取图片高度,取图片尺寸,GetCLSID,GdiplusStartup,GdiplusShutdown,MultiByteToWideChar,GdipLoadImageFromFile,GdipSaveImageToFile,CLSIDFromString,GdipDisposeImage,CreateStreamOnHGlobal,GetHGlobalFromStream,GlobalLock,GlobalSize,GlobalUnlock,GlobalAlloc,GetObjectPtr,GdipCreateBitmapFromStream,GlobalFree,CreateStreamOnHGlobal_int,GdipSaveImageToStream,GetHGlobalFromStream_int,CLSIDFromString_Bytes,CopyMemory,GetPtr_Int,GdipGetImageWidth,GdipGetImageHeight,CopyMemory_BinToPtr,CopyMemory_PtrToInt,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ A2W
           |  |
           |  |
======图像格式转换类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 销毁
           |  |
           |  |------ 载入图像
           |  |
           |  |------ 载入文件
           |  |
           |  |------ 转换到字节集
           |  |
           |  |------ 转换到文件
           |  |
           |  |------ 取图片宽度
           |  |
           |  |------ 取图片高度
           |  |
           |  |------ 取图片尺寸
           |  |
           |  |------ GetCLSID
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   GdipLoadImageFromFile
           |  |
           |  |---[dll]------   GdipSaveImageToFile
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GetHGlobalFromStream
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GetObjectPtr
           |  |
           |  |---[dll]------   GdipCreateBitmapFromStream
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal_int
           |  |
           |  |---[dll]------   GdipSaveImageToStream
           |  |
           |  |---[dll]------   GetHGlobalFromStream_int
           |  |
           |  |---[dll]------   CLSIDFromString_Bytes
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   GetPtr_Int
           |  |
           |  |---[dll]------   GdipGetImageWidth
           |  |
           |  |---[dll]------   GdipGetImageHeight
           |  |
           |  |---[dll]------   CopyMemory_BinToPtr
           |  |
           |  |---[dll]------   CopyMemory_PtrToInt

  

调用的DLL命令:

.DLL命令 GdiplusStartup, 整数型, "gdiplus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

.DLL命令 GdiplusShutdown, , "gdiplus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 GdipLoadImageFromFile, 整数型, "gdiplus.dll", "GdipLoadImageFromFile"
    .参数 filename, 字节集
    .参数 image, 整数型, 传址

.DLL命令 GdipSaveImageToFile, 整数型, "gdiplus.dll", "GdipSaveImageToFile"
    .参数 image, 整数型
    .参数 filename, 字节集
    .参数 clsidEncoder, 字节集
    .参数 encoderParams, EncoderParameters

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 GdipDisposeImage, 整数型, "gdiplus.dll", "GdipDisposeImage"
    .参数 image, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal
    .参数 fDeleteOnRelease, 逻辑型
    .参数 ppstm, 对象, 传址

.DLL命令 GetHGlobalFromStream, , "ole32.dll", "GetHGlobalFromStream"
    .参数 pstm, 对象, , 未知类型：ISTREAM。
    .参数 phglobal, 整数型, 传址

.DLL命令 GlobalLock, 整数型
    .参数 hMem, 整数型

.DLL命令 GlobalSize, 整数型
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 逻辑型
    .参数 hMem, 整数型

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 uFlags
    .参数 dwBytes

.DLL命令 GetObjectPtr, 整数型, , "lstrcpyn"
    .参数 lpString1, 对象, 传址
    .参数 lpString2, 对象, 传址
    .参数 iMaxLength, 整数型

.DLL命令 GdipCreateBitmapFromStream, 整数型, "gdiplus.dll", "GdipCreateBitmapFromStream"
    .参数 stream, 整数型
    .参数 bitmap, , 传址

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem

.DLL命令 CreateStreamOnHGlobal_int, 整数型, "ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal
    .参数 fDeleteOnRelease, 逻辑型
    .参数 ppstm, , 传址

.DLL命令 GdipSaveImageToStream, 整数型, "gdiplus.dll", "GdipSaveImageToStream"
    .参数 image
    .参数 stream
    .参数 clsidEncoder, 字节集
    .参数 encoderParams, EncoderParameters

.DLL命令 GetHGlobalFromStream_int, , "ole32.dll", "GetHGlobalFromStream"
    .参数 pstm, , , 未知类型：ISTREAM。
    .参数 phglobal, 整数型, 传址

.DLL命令 CLSIDFromString_Bytes, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节型, 传址 数组

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

.DLL命令 GetPtr_Int, 整数型, , "lstrcpynA"
    .参数 lpString1, 整数型, 传址
    .参数 lpString2, 整数型, 传址
    .参数 iMaxLength, 整数型

.DLL命令 GdipGetImageWidth, 整数型, "GdiPlus.dll", "GdipGetImageWidth"
    .参数 image, 整数型
    .参数 width, 整数型, 传址

.DLL命令 GdipGetImageHeight, 整数型, "GdiPlus.dll", "GdipGetImageHeight"
    .参数 image, 整数型
    .参数 height, 整数型, 传址

.DLL命令 CopyMemory_BinToPtr, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集
    .参数 cbCopy, 整数型

.DLL命令 CopyMemory_PtrToInt, , , "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 cbCopy, 整数型