------ 定义结构体
type GdiplusStartupInput from structure
long GdiplusVersion
long DebugEventCallback
long SuppressBackgroundThread
long SuppressExternalCodecs
end type
----- 定义API 函数
Private Function Long GdiplusStartup (ref Long Token, GdiplusStartupInput inputbuf, Long outputbuf) Library "gdiplus.dll"
SUBROUTINE GdiplusShutdown (Long Token) Library "gdiplus.dll"
Private Function Long GdipLoadImageFromFile ( blob FileName, ref Long hImage) Library "gdiplus.dll"
Private Function Long GdipDisposeImage(Long Image) Library "gdiplus.dll"
Private Function Long GdipGetImageWidth(Long Image, ref Long al_Width) Library "gdiplus.dll"
Private Function Long GdipGetImageHeight (Long Image, ref Long al_Height) Library "gdiplus.dll"
function ulong MultiByteToWideChar(UINT CodePage, ulong dwFlags , ref string lpMultiByte
type GdiplusStartupInput from structure
long GdiplusVersion
long DebugEventCallback
long SuppressBackgroundThread
long SuppressExternalCodecs
end type
----- 定义API 函数
Private Function Long GdiplusStartup (ref Long Token, GdiplusStartupInput inputbuf, Long outputbuf) Library "gdiplus.dll"
SUBROUTINE GdiplusShutdown (Long Token) Library "gdiplus.dll"
Private Function Long GdipLoadImageFromFile ( blob FileName, ref Long hImage) Library "gdiplus.dll"
Private Function Long GdipDisposeImage(Long Image) Library "gdiplus.dll"
Private Function Long GdipGetImageWidth(Long Image, ref Long al_Width) Library "gdiplus.dll"
Private Function Long GdipGetImageHeight (Long Image, ref Long al_Height) Library "gdiplus.dll"
function ulong MultiByteToWideChar(UINT CodePage, ulong dwFlags , ref string lpMultiByte