摄像头-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-654)>>1,上=(桌面.高-519)>>1;
窗体=创建窗口($100,程序.名称,"摄像头",$10CE0000,左,上,654,519,0,0,0,0);
窗体启动;读取消息
结束

 

//程序代码:

导入 摄像框 别名 capCreateCaptureWindowA lib "avicap32.dll",8;
整数 Cap;
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据);
    判断(消息)为 窗口关闭{发送消息(Cap, 1035, 0, 0)停止}
    否则{处理窗口(窗口,消息,参数,数据);}
结束

小程序 窗体启动
    Cap=摄像框("CAP", $50000000, 0, 0, 640, 480,窗体, 0);
    如果(发送消息(Cap, 1034, 0, 0)<>0){
    发送消息(Cap, 1076, 66, 0);
    发送消息(Cap, 1074, 1, 0);}
    读取消息
结束