易语言对比位图源码

系统结构:初始化对比,获取对比图,还原对比图,取屏幕32位图,ReadProcessMemory,BitBlt,DeleteDC,DeleteObject,CreateCompatibleDC,CreateCompatibleBitmap,SelectObject,StretchBlt,GetDC,SetStretchBltMode,释放设备场景_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化对比
           |  |
           |  |------ 获取对比图
           |  |
           |  |------ 还原对比图
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 取屏幕32位图
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ReadProcessMemory
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   StretchBlt
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   SetStretchBltMode
           |  |
           |  |---[dll]------   释放设备场景_

调用的DLL命令:

.DLL命令 ReadProcessMemory, 整数型, "kernel32", "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型, 传址 数组, 传址,数组
    .参数 lpBuffer, 字节集
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 BitBlt, 整数型, "gdi32.dll", "BitBlt"
    .参数 目标设备场景, 整数型, , hDestDC,目标设备场景
    .参数 目标横坐标, 整数型, , x,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 目标纵坐标, 整数型, , y,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 传输图像宽度, 整数型, , nWidth,欲传输图象的宽度
    .参数 传输图像高度, 整数型, , nHeight,欲传输图象的高度
    .参数 源设备场景, 整数型, , hSrcDC,源设备场景。如光栅运算未指定源，则应设为0
    .参数 源横坐标, 整数型, , xSrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 源纵坐标, 整数型, , ySrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 光栅运算方式, 整数型, , dwRop,传输过程要执行的光栅运算

.DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC"
    .参数 设备场景句柄, 整数型, , hdc，将要删除的设备场景

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , DeleteObject
    .参数 对象句柄, 整数型, , hObject,一个GDI对象的句柄

.DLL命令 CreateCompatibleDC, 整数型, "Gdi32", "CreateCompatibleDC"
    .参数 设备场景句柄, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 设备场景句柄, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型

.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject", , SelectObject
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

.DLL命令 StretchBlt, 逻辑型, "gdi32.dll", "StretchBlt"
    .参数 目标hdc, 整数型
    .参数 目标x, 整数型
    .参数 目标y, 整数型
    .参数 目标宽度, 整数型
    .参数 目标高度, 整数型
    .参数 源hdc, 整数型
    .参数 源x, 整数型
    .参数 源y, 整数型
    .参数 源宽度, 整数型
    .参数 源高度, 整数型
    .参数 光栅操作, 整数型

.DLL命令 GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 SetStretchBltMode, 整数型, "gdi32.dll", "SetStretchBltMode"
    .参数 hdc, 整数型
    .参数 拉伸模式, 整数型

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄