易语言API取剪辑板图像源码

系统结构:取剪贴板位图数据C,取剪贴板位图数据A,整数_到字节集,取剪贴板位图数据B,删除对象,打开剪贴板,GlobalSize,设置剪贴板数据,获取剪贴板数据,关闭剪贴板,取对象属性_,GlobalAlloc,GlobalLock,GetDIBits,VirtualAlloc,VirtualFree,拷贝内存_位图数据,拷贝内存_位图文件头,拷贝内存_位图信息头,GetDC,CreateCompatibleDC,DeleteDC,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 取剪贴板位图数据C
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 取剪贴板位图数据A
           |  |
           |  |------ 整数_到字节集
           |  |
           |  |------ 取剪贴板位图数据B
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   删除对象
           |  |
           |  |---[dll]------   打开剪贴板
           |  |
           |  |---[dll]------   GlobalSize
           |  |
           |  |---[dll]------   设置剪贴板数据
           |  |
           |  |---[dll]------   获取剪贴板数据
           |  |
           |  |---[dll]------   关闭剪贴板
           |  |
           |  |---[dll]------   取对象属性_
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   VirtualAlloc
           |  |
           |  |---[dll]------   VirtualFree
           |  |
           |  |---[dll]------   拷贝内存_位图数据
           |  |
           |  |---[dll]------   拷贝内存_位图文件头
           |  |
           |  |---[dll]------   拷贝内存_位图信息头
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   _取字节集指针

调用的DLL命令:

.DLL命令 删除对象, 逻辑型, , "DeleteObject"
    .参数 GDI对象句柄, 整数型

.DLL命令 打开剪贴板, 整数型, , "OpenClipboard"
    .参数 窗口句柄, 整数型

.DLL命令 GlobalSize, 整数型, "kernel32", "GlobalSize"
    .参数 参数, 整数型

.DLL命令 设置剪贴板数据, 整数型, , "SetClipboardData", , 返回句柄
    .参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式
    .参数 hMem, 整数型, , 表示数据的地址指针

.DLL命令 获取剪贴板数据, 整数型, , "GetClipboardData", , 返回句柄
    .参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式

.DLL命令 关闭剪贴板, 逻辑型, , "CloseClipboard", , 本函数没有参数，事先应该用OpenClipboard函数打开过剪贴板。

.DLL命令 取对象属性_, 整数型, "gdi32", "GetObjectA"
    .参数 对象句柄, 整数型
    .参数 数据尺寸, 整数型
    .参数 属性, 位图结构_

.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存　
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock"
    .参数 参数, 整数型

.DLL命令 GetDIBits, 整数型, "gdi32", "GetDIBits", , 将来自一幅位图的二进制位复制到一幅与设备无关的位图里　非零表示成功，零表示失败。在Windows 95中，返回值是返回的扫描线数量
    .参数 aHDC, 整数型, , 定义了与设备有关位图hBitmap的配置信息的一个设备场景的句柄
    .参数 hBitmap, 整数型, , 源位图的句柄。绝对不能将这幅位图选入设备场景
    .参数 nStartScan, 整数型, , 欲复制到DIB中的第一条扫描线的编号
    .参数 nNumScans, 整数型, , 欲复制的扫描线数量
    .参数 lpBits, 整数型, , 指向一个缓冲区的指针。这个缓冲区将用于装载采用DIB格式的信息，但不取回数据（用ByVal传递零值）
    .参数 lpBI, BITMAPINFOHEADER, , BITMAPINFO，对lpBits DIB的格式及颜色进行说明的一个结构。在BITMAPINFOHEADER结构中，从biSize到biCompression之间的所有字段都必须初始化
    .参数 wUsage, 整数型, , 下述常数之一：;DIB_PAL_COLORS：在颜色表中装载一个16位所以数组，它们与当前选定的调色板有关;DIB_RGB_COLORS：在颜色表中装载RGB颜色;  

.DLL命令 VirtualAlloc, 整数型, "kernel32", "VirtualAlloc", , 保留虚拟页　
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型
    .参数 flProtect, 整数型

.DLL命令 VirtualFree, 整数型, "kernel32", "VirtualFree", , 释放虚拟页　
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 dwFreeType, 整数型

.DLL命令 拷贝内存_位图数据, , "kernel32.dll", "RtlMoveMemory", , 　
    .参数 pBlock, 整数型
    .参数 缓冲区, 整数型
    .参数 尺寸, 整数型

.DLL命令 拷贝内存_位图文件头, , "kernel32.dll", "RtlMoveMemory", , 　
    .参数 pBlock, 整数型
    .参数 缓冲区, BITMAPFILEHEADER
    .参数 尺寸, 整数型

.DLL命令 拷贝内存_位图信息头, , "kernel32.dll", "RtlMoveMemory", , 　
    .参数 pBlock, 整数型
    .参数 缓冲区, BITMAPINFOHEADER
    .参数 尺寸, 整数型

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

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

.DLL命令 DeleteDC, 逻辑型
    .参数 hdc, 整数型

.DLL命令 _取字节集指针, 整数型, , "lstrcpyn", 公开
    .参数 目的指针, 字节集, 传址
    .参数 源指针, 字节集, 传址
    .参数 复制长度, 整数型, , 0