|
发表于 2016-9-27 22:57:57
|
显示全部楼层
|阅读模式
新疆维吾尔自治区乌鲁木齐市
分享源码
界面截图: |
|
是否带模块: |
纯源码 |
备注说明: |
- |
此源码是我用易语言编写的,没有使用模块,纯易语言API都没有用,
此代码实现了屏幕录像,以及录像播放功能
有兴趣的朋友可以拿来2次开发,也可拿来开发成网络版,作者本人不保留任何权利,(不要做坏事哦)~~
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 录像 | 字节集 | | 录像宽度 | 整数型 | | 录像高度 | 整数型 | | 临时文件文件号 | 整数型 | | 临时文件 | 字节集 | | 临时文件加之前内容 | 字节集 | | 图片循环 | 逻辑型 | | 数据集 | 字节集 | | 数据集分割 | 字节集 | 0 | 帧数 | 整数型 | | 计次 | 整数型 | |
图片框1.显示方式 = 2 图片框2.显示方式 = 2 _启动窗口.宽度 = 取屏幕宽度 ()_启动窗口.高度 = 取屏幕高度 ()图片框1.宽度 = _启动窗口.宽度 图片框1.高度 = _启动窗口.高度 图片框2.宽度 = _启动窗口.宽度 图片框2.高度 = _启动窗口.高度 按钮1.禁止 = 真 按钮2.禁止 = 真 按钮3.禁止 = 假 _启动窗口.位置 = 2 临时文件文件号 = 打开文件 (取运行目录 () + “\临时文件.cyle”, 5, 4 )删除数据 (临时文件文件号, 取文件长度 (临时文件文件号 )) 判断 (临时文件文件号 = 0 )写到文件 (取运行目录 () + “\临时文件.cyle”, 到字节集 (“”)) 临时文件文件号 = 打开文件 (取运行目录 () + “\临时文件.cyle”, 5, 4 )判断 (临时文件文件号 = 0 )信息框 (“创建临时文件失败”, 0, )时钟1.时钟周期 = 23 时钟1.时钟周期 = 23 录像 = 快照 (, , )判断 (图片循环 )图片框2.可视 = 假 图片框1.图片 = 录像 图片框1.可视 = 真 图片循环 = 假 图片框1.可视 = 假 图片框2.图片 = 录像 图片框2.可视 = 真 图片循环 = 真 临时文件中转 (临时文件文件号, 录像)读入数据 (文件号, 临时文件加之前内容 )写出字节集 (文件号, 临时文件加之前内容 + 压缩数据 (数据 ) + 到字节集 (“||||||||||”)) 按钮1.禁止 = 假 按钮2.禁止 = 假 按钮3.禁止 = 真 时钟1.时钟周期 = 0 关闭文件 (临时文件文件号 )临时文件文件号 = 打开文件 (取运行目录 () + “\临时文件.cyle”, 1, 4 )判断 (临时文件文件号 = 0 )信息框 (“视屏不存在”, 0, )取视屏信息 ()计次 = 0 时钟2.时钟周期 = 170 数据集 = 读入字节集 (临时文件文件号, 取文件长度 (临时文件文件号 )) 数据集分割 = 分割字节集 (数据集, 到字节集 (“||||||||||”), )帧数 = 取数组成员数 (数据集分割 )计次 = 计次 + 1 判断 (计次 = 帧数 )时钟3.时钟周期 = 1 判断 (图片循环 )图片框2.可视 = 假 图片框1.图片 = 解压数据 (数据集分割 [计次 ])图片框1.可视 = 真 图片循环 = 假 图片框1.可视 = 假 图片框2.图片 = 解压数据 (数据集分割 [计次 ])图片框2.可视 = 真 图片循环 = 真 时钟2.时钟周期 = 0 计次 = 0 关闭文件 (临时文件文件号 )时钟3.时钟周期 = 0
|
-
-
屏幕录像.rar
2.38 KB, 下载次数: 403, 下载积分: 精币 -2 枚
评分
-
查看全部评分
|