通过Opencv在MFC界面上显示视频的解决方案

xrea

1.介绍
官方例子中Opencv在MFC界面中显示视频的方案有个BUG，就是视频显示的时候会导致窗口不能移动！今天突然在看代码的时候突发灵感，实践了以下非常完美的解决了官方例子中的问题！
2.代码
<火山程序 类型 = "通常" 版本 = 1 />

包 火山.程序

类 启动类 <公开 基础类 = 窗口程序类>
{
    变量 主窗口对象 <类型 = 我的主窗口>

    方法 启动方法 <公开 类型 = 整数>
    {
        主窗口对象.创建主窗口 ()
        返回 (1)
    }
}

# ===

类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"753, 540\"" 标题 = "我的主窗口">
{
    变量 图片框_画面容器 <类型 = 图片框 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"13, 14, 728, 448\"">
    变量 按钮_选择视频文件并播放 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"21, 478, 712, 48\""
            标题 = "选择视频文件并播放">
    变量 时钟1 <类型 = 时钟 隐藏值属性 = "0" @视窗.布局 = "id = 103\r\npos = \"661, 502, 32, 32\"">
    变量 m_video <类型 = CV视频>

    方法 时钟_周期事件 <接收事件 类型 = 整数 注释 = "每当经过了指定的时钟周期,将发送本事件.">
    参数 来源对象 <类型 = 时钟 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        如果 (来源对象 == 时钟1)
        {
            变量 frame <类型 = CV矩阵类>
            本对象.m_video.取当前帧 (frame)
            CV核心.显示图像 ("cvwin", frame)
        }
        返回 (0)
    }

    方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
    参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        如果 (来源对象 == 按钮_选择视频文件并播放)
        {
            变量 对话框对象 <类型 = 通用对话框 "类型" = 打开文件 过滤器 = "视频文件(*.mp4)|*.mp4">
            如果 (对话框对象.打开 (本对象))
            {
                本对象.m_video.打开视频 (对话框对象.文件名, )
            }
            本对象.时钟1.时钟周期 = 60
        }
        返回 (0)
    }

    方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
    参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
    参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
    {
        CV核心.创建CV窗口 ("cvwin", 本对象.图片框_画面容器.取用户区宽度 (), 本对象.图片框_画面容器.取用户区高度 (), 本对象.图片框_画面容器.取窗口句柄 ())
        返回 (0)
    }
}

沉默流星

支持