| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1561 人关注过本帖
标题:请教如何在vfp播放一段视频,并能检测视频播放结束?
只看楼主 加入收藏
wxzd123
Rank: 2
等 级:论坛游民
帖 子:383
专家分:69
注 册:2012-9-6
结帖率:87.76%
收藏
已结贴  问题点数:20 回复次数:8 
请教如何在vfp播放一段视频,并能检测视频播放结束?
方案一在主程序前播放一段视频,播放完继续执行主程序
方案二把视频嵌入到表单中,播放完表单退出
请教那个实现起来更简单?怎么实现?谢谢
搜索更多相关主题的帖子: vfp 检测 播放 结束 视频 
2021-12-02 18:55
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:786
专家分:1160
注 册:2021-10-13
收藏
得分:10 
这个有点意思,坐等大神回复。。。
2021-12-02 20:48
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:10 
windows有媒体播放控件
图片附件: 游客没有浏览图片的权限,请 登录注册
2021-12-03 09:22
kangss
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:271
专家分:604
注 册:2014-6-12
收藏(1)
得分:0 
回复 楼主 wxzd123
用 VFP 播放视频有2种比较好的方法。

方法一:调用windows api:mciSendString

mciSendString的常用命令


Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
  (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
   ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    mciSendString是用来播放多媒体文件的API指令,可以播放MPEG,AVI,WAV,MP3,等等,下面介绍一下它的使用方法:

该函数有四个参数:
    第一个参数:要发送的命令字符串。字符串结构是:[命令][设备别名][命令参数].
    第二个参数:返回信息的缓冲区,为一指定了大小的字符串变量.
    第三个参数:缓冲区的大小,就是字符变量的长度.
    第四个参数:回调方式,一般设为零
    返回值:函数执行成功返回零,否则返回错误代码


一、常用命令
  1.打开:
Dim mName as string
mName = "f:\\mpeg\\mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %u Style %u notify",0&, 0, 0
 其中:
open             操作命令
mName            全路径文件名
type MPEGVideo   是指打开MPEG,AVI等类型,如果不加这一句,就是打开WAV,MP3等
Alias movie      定义了该操作的别名为movie,后续操作只要指明别名即可
parent %u        
Style %u         风格、样式
notify           通知

  2.播放:
mciSendString "play movie", 0&, 0, 0  
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
  3.暂停:
mciSendString "pause movie", 0&, 0, 0
  4.继续:
mciSendString "resume movie", 0&, 0, 0
  5.停止:
mciSendString "stop movie", 0&, 0, 0
  6.关闭:
mciSendString "close movie", 0&, 0, 0
  7.前进到下一个位置:
mciSendString "step movie", 0&, 0, 0      
  8.后退到上一个位置:
mciSendString "step movie reverse", 0&, 0, 0
  9.前进或后退 N 個位置(其中 N<0 即表示后退)
mciSendString "step movie by " & str(N), 0&, 0, 0   
  10.获取当前播放位置:
Dim ST As String*64
mciSendString "status movie position", st, len(st), 0  
  11. 获取媒体的总长度:
mciSendString "status movie length", st, len(st), 0
l=val(st) 'L就是所播放文件的长度
  12.获取播放信息:
Dim ST As String*64
mciSendString "status movie mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (处理代码) '播放完毕
  13.循环播放:
mciSendString "play movie repeat", 0&, 0, 0


二、控制声音大小:
Dim V As Long
mciSendString "status movie volume", V, 0, 0 'V是获取的音量大小值。
V = 50
mciSendString "setaudio movie volume to " & V, &0, 0, 0 'V是设置的音量值

三、控制亮度(如果是播放视频)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是获取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是设置的亮度值

四、到指定的位置播放。
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0 'P1是当前起始位置,单位:毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到开头位置
mciSendString "play movie", 0&, 0, 0 '定位后再播放
或者:
mciSendString "play movie FROM P1 to P2",0&, 0, 0 'P1是起始位置,P2是停止位置。单位:毫秒

mciSendString "seek movie to end", 0&, 0, 0 '定位到最后位置

五、在指定控件上播放视频:
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0, 0
其中,hWnd 是控件的句柄
执行上述命令之后,影片会被放置在控件的左上角,且影片的大小不受控件大小的影响,如果想要改变
影片播放的位置及大小,可以在執行 play  指令前先执行 put 指令,格式如下:

mciendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
 其中 X  及 Y 参数须填入位置,而 Width 及 Height 参数则填入影片显示出來的宽度及高度

六、录音设置:
  录音前,用以下语句初始化
  1.设为8位:
mciSendString "set wave bitpersample 8", "", 0, 0
  2.设为11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
  3.设为立体声:
mciSendString "set wave channels 2", "", 0, 0
  4.实现PCM格式(不一定正确):
MCISENDSTRING "set wave format tag pcm","", 0, 0
  5.开始录音:
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio alias movie",0&,0,0
mciSendString "record movie",0&,0,0
  6.保存录音到c:\123.wav
mciSendString "stop movie",0&,0,0
mciSendString "save movie C:\\123.wav",0&,0,0
mciSendString "close movie",0&,0,0

七、开关光驱:
mciSendString "set cdaudio door open", "", 0, 0 '打开
mciSendString "set cdaudio door close", "", 0, 0 '关闭

AnsiString Str = "save movie C:\\"+IntToStr(I)+IntToStr(S)+".wav" ;
mciSendString (Str.c_str(),NULL, 0,0);

*******************************
MCISendString详细参数:自己百度
*******************************
2021-12-18 13:25
kangss
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:271
专家分:604
注 册:2014-6-12
收藏
得分:0 
方法二:用迅雷免费的DLL,调用方法很简单。

论坛右上角点击【下载频道】,找到“我的 Aplayer 播放器.mp4.rar”免费下载。自己看效果。
视频效果连接:https://down.bccn.net/tag-VFP_Aplayer.html

APlayer SDK 的最新版本可以在 http://aplayer.open. 下载到。
开发者论坛:http://aplayer.open.


[此贴子已经被作者于2021-12-18 13:40编辑过]

2021-12-18 13:32
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1712
专家分:3318
注 册:2012-2-29
收藏
得分:0 
学习啦,谢谢!
2021-12-18 17:34
sam_jiang
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:14
帖 子:786
专家分:1160
注 册:2021-10-13
收藏
得分:0 
回复 4楼 kangss
牛逼
2021-12-19 11:20
fnlsgjb
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2012-1-10
收藏
得分:0 
以下是引用kangss在2021-12-18 13:32:44的发言:

方法二:用迅雷免费的DLL,调用方法很简单。

论坛右上角点击【下载频道】,找到“我的 Aplayer 播放器.mp4.rar”免费下载。自己看效果。
视频效果连接:https://down.bccn.net/tag-VFP_Aplayer.html

APlayer SDK 的最新版本可以在 http://aplayer.open. 下载到。
开发者论坛:http://aplayer.open.

你好kangss:
      这个具体怎么调用的?有没有示例?想请教一下,请回复,谢谢!!
2021-12-24 11:24
kangss
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:14
帖 子:271
专家分:604
注 册:2014-6-12
收藏
得分:0 
回复 8楼 fnlsgjb
免费控件,ole,拖到表单直接调用,非常简单。
2022-01-04 18:58
快速回复:请教如何在vfp播放一段视频,并能检测视频播放结束?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024124 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved