保存不了摄像的图片

福军

帮看下是扫描回事

<火山程序 类型 = "通常" 版本 = 1 />
如果 (来源对象 == 按钮_拍照)
{


    图片框1.置底图数据 (摄像头1.采样拍照 ())







}
如果 (来源对象 == 按钮_开关摄像头)
{
    如果 (来源对象.标题 == "打开摄像头")
    {
        如果 (摄像头1.打开设备 (组合框_摄像头列表.现行选中项))
        {
            摄像头1.启用采样 (采样器1)
            摄像头1.启用预览 (标签_预览.取窗口句柄 ())
            摄像头1.运行 ()
            摄像头1.播放器.置窗口尺寸 (0, 0, 标签_预览.宽度, 标签_预览.高度)
            组合框_摄像头列表.禁止 = 真

            来源对象.标题 = "关闭摄像头"
        }
    }
    否则 (来源对象.标题 == "关闭摄像头")
    {
        摄像头1.停止 ()
        摄像头1.关闭设备 ()
        {
            组合框_摄像头列表.禁止 = 假
            按钮_刷新视频设备.禁止 = 假


            来源对象.标题 = "打开摄像头"
        }
    }
}
如果 (来源对象 == 按钮_刷新视频设备)
{
    组合框_摄像头列表.清空 ()
    音视频操作类.枚举摄像头 ()
    {
        组合框_摄像头列表.加入项目 (音视频操作类.取设备名称 (), 0)
    }
    如果 (组合框_摄像头列表.取项目数 () > 0)
    {
        组合框_摄像头列表.现行选中项 = 0
        组合框_摄像头列表.列表项被选择 ()
    }
}
返回 (0)

福军

<火山程序 类型 = "通常" 版本 = 1 />
如果 (来源对象 == 按钮_拍照)
{


    图片框1.置底图数据 (摄像头1.采样拍照 ())

  





}
如果 (来源对象 == 按钮_开关摄像头)
{
    如果 (来源对象.标题 == "打开摄像头")
    {
        如果 (摄像头1.打开设备 (组合框_摄像头列表.现行选中项))
        {
            摄像头1.启用采样 (采样器1)
            摄像头1.启用预览 (标签_预览.取窗口句柄 ())
            摄像头1.运行 ()
            摄像头1.播放器.置窗口尺寸 (0, 0, 标签_预览.宽度, 标签_预览.高度)
            组合框_摄像头列表.禁止 = 真

            来源对象.标题 = "关闭摄像头"
        }
    }
    否则 (来源对象.标题 == "关闭摄像头")
    {
        摄像头1.停止 ()
        摄像头1.关闭设备 ()
        {
            组合框_摄像头列表.禁止 = 假
            按钮_刷新视频设备.禁止 = 假


            来源对象.标题 = "打开摄像头"
        }
    }
}
如果 (来源对象 == 按钮_刷新视频设备)
{
    组合框_摄像头列表.清空 ()
    音视频操作类.枚举摄像头 ()
    {
        组合框_摄像头列表.加入项目 (音视频操作类.取设备名称 (), 0)
    }
    如果 (组合框_摄像头列表.取项目数 () > 0)
    {
        组合框_摄像头列表.现行选中项 = 0
        组合框_摄像头列表.列表项被选择 ()
    }
}
返回 (0)