保存不了摄像的图片
本帖最后由 福军 于 2023-7-29 04:20 编辑帮看下是扫描回事
<火山程序 类型 = "通常" 版本 = 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)
页:
[1]