易语言bmp转AVI源码

系统结构:生成AVI,GetObjectA,CreateCompatibleDC,GetDIBits_BimapInfo,GetDIBits,CopyMemory_BITMAPINFO,CopyMemory_BITMAPFILEHEADER,DeleteDC,GetWindowRect,IsWindow,SelectObject,PrintWindow,CreateCompatibleBitmap,DeleteObject,GetDC,ReleaseDC,EnumWindows,IsWindowVisible,GetWindowTextLengthA,GetWindowTextA,AVIFileInit,AVIFileExit,AVIFileOpen,AVIFileCreateStream,AVIStreamSetFormat,AVIStreamWrite,AVIStreamRelease,CallWindowProcA,AVIFileRelease,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 生成AVI
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetObjectA
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   GetDIBits_BimapInfo
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   CopyMemory_BITMAPINFO
           |  |
           |  |---[dll]------   CopyMemory_BITMAPFILEHEADER
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   PrintWindow
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   EnumWindows
           |  |
           |  |---[dll]------   IsWindowVisible
           |  |
           |  |---[dll]------   GetWindowTextLengthA
           |  |
           |  |---[dll]------   GetWindowTextA
           |  |
           |  |---[dll]------   AVIFileInit
           |  |
           |  |---[dll]------   AVIFileExit
           |  |
           |  |---[dll]------   AVIFileOpen
           |  |
           |  |---[dll]------   AVIFileCreateStream
           |  |
           |  |---[dll]------   AVIStreamSetFormat
           |  |
           |  |---[dll]------   AVIStreamWrite
           |  |
           |  |---[dll]------   AVIStreamRelease
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   AVIFileRelease

  

调用的DLL命令:

.DLL命令 GetObjectA, 整数型, , "GetObjectA"
    .参数 hgdiobj
    .参数 cbBuffer
    .参数 lpvObject, BITMAP

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 GetDIBits_BimapInfo, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 GetDIBits, 整数型, , "GetDIBits"
    .参数 HDC
    .参数 hBitmap
    .参数 nStartScan
    .参数 nNumScans
    .参数 lpBits, 字节集
    .参数 lpBI, BITMAPINFO
    .参数 wUsage

.DLL命令 CopyMemory_BITMAPINFO, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPINFO
    .参数 Length

.DLL命令 CopyMemory_BITMAPFILEHEADER, 整数型, , "RtlMoveMemory"
    .参数 Destination, 字节集
    .参数 Source, BITMAPFILEHEADER
    .参数 Length

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 GetWindowRect, 逻辑型
    .参数 hWnd, 整数型
    .参数 lpRect, RECT

.DLL命令 IsWindow, 逻辑型
    .参数 hWnd, 整数型

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc
    .参数 hgdiobj

.DLL命令 PrintWindow, 逻辑型
    .参数 hwnd, 整数型
    .参数 hdcBlt, 整数型
    .参数 nFlags, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 DeleteObject, 逻辑型, , "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 GetDC, 整数型
    .参数 hWnd, 整数型

.DLL命令 ReleaseDC, 整数型
    .参数 hWnd, 整数型
    .参数 hDC, 整数型

.DLL命令 EnumWindows, 逻辑型
    .参数 lpEnumFunc, 整数型
    .参数 lParam, 整数型

.DLL命令 IsWindowVisible, 逻辑型
    .参数 hWnd, 整数型

.DLL命令 GetWindowTextLengthA, 整数型
    .参数 hWnd, 整数型

.DLL命令 GetWindowTextA, 整数型
    .参数 hWnd, 整数型
    .参数 lpString, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 AVIFileInit, , "avifil32.dll", "AVIFileInit"

.DLL命令 AVIFileExit, , "avifil32.dll", "AVIFileExit"

.DLL命令 AVIFileOpen, 整数型, "avifil32.dll", "AVIFileOpen"
    .参数 ppfile, , 传址, PAVIFILE *
    .参数 szFile, 文本型, , LPCTSTR
    .参数 mode, , , UINT
    .参数 pclsidHandler, , , CLSID

.DLL命令 AVIFileCreateStream, 整数型, "avifil32.dll", "AVIFileCreateStream"
    .参数 pfile, , , PAVIFILE
    .参数 ppavi, , 传址, PAVISTREAM *
    .参数 psi, AVISTREAMINFO, , AVISTREAMINFO *

.DLL命令 AVIStreamSetFormat, 整数型, "avifil32.dll", "AVIStreamSetFormat"
    .参数 pavi, , , PAVISTREAM
    .参数 lPos, , , LONG
    .参数 lpFormat, 字节集, , LPVOID
    .参数 cbFormat, , , LONG

.DLL命令 AVIStreamWrite, 整数型, "avifil32.dll", "AVIStreamWrite"
    .参数 pavi, , , PAVISTREAM
    .参数 lStart, , , LONG
    .参数 lSamples, , , LONG
    .参数 lpBuffer, 字节集, , LPVOID
    .参数 cbBuffer, , , LONG
    .参数 dwFlags, , , DWORD
    .参数 plSampWritten, , , LONG *
    .参数 plBytesWritten, , , LONG *

.DLL命令 AVIStreamRelease, 整数型, "avifil32.dll", "AVIStreamRelease"
    .参数 pavi, , , PAVISTREAM

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 AVIFileRelease, 整数型, "avifil32.dll", "AVIFileRelease"
    .参数 pfile, , , PAVIFILE