易语言视频图像采集源码

系统结构:删除场景,填充设备场景,创建场景,发送媒体指令,取短文件名,置父窗口,释放鼠标,俘获鼠标,

======照片窗口程序集
           |  |
           |  |------ _设备组合框_列表项被选择
           |  |
           |  |------ _截取按钮_被单击
           |  |
           |  |------ _数码设备1_图片传送完毕
           |  |
           |  |------ _画板1_鼠标左键被按下
           |  |
           |  |------ _画板1_鼠标位置被移动
           |  |
           |  |------ _保存按钮_被单击
           |  |
           |  |------ _画板1_鼠标左键被放开
           |  |
           |  |------ _取消按钮_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   删除场景
           |  |
           |  |---[dll]------   填充设备场景
           |  |
           |  |---[dll]------   创建场景
           |  |
           |  |---[dll]------   发送媒体指令
           |  |
           |  |---[dll]------   取短文件名
           |  |
           |  |---[dll]------   置父窗口
           |  |
           |  |---[dll]------   释放鼠标
           |  |
           |  |---[dll]------   俘获鼠标

调用的DLL命令:

.DLL命令 删除场景, 整数型, , "DeleteDC"
    .参数 hdc, 整数型

.DLL命令 填充设备场景, , , "PatBlt"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 dwRop, 整数型

.DLL命令 创建场景, 整数型, , "CreateDCA"
    .参数 lpDriverName, 文本型
    .参数 lpDeviceName, 文本型
    .参数 lpOutput, 文本型
    .参数 lpInitData, 整数型

.DLL命令 发送媒体指令, 整数型, "winmm.dll", "mciSendStringA"
    .参数 命令, 文本型
    .参数 操作, 文本型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 取短文件名, 整数型, "kernel32.dll", "GetShortPathNameA"
    .参数 长文件名, 文本型
    .参数 短文件名, 文本型
    .参数 缓冲区长度, 整数型

.DLL命令 置父窗口, 整数型, "user32.dll", "SetParent", , 返回前一个父窗口的句柄
    .参数 子窗口句柄, 整数型
    .参数 父窗口句柄, 整数型, , 欲设置的新父窗口

.DLL命令 释放鼠标, 整数型, "user32", "ReleaseCapture"

.DLL命令 俘获鼠标, 整数型, "user32", "SetCapture"
    .参数 窗口句柄, 整数型