关于mciSendString的一个问题

老哥们救急一下
想知道获取媒体长度怎么写？
网上查的是mciSendString “status movie length”，但是网上全是抄的，参数都写的一个样子st，len（st），0，实验之后根本用不了
我的机器太新看不了帮助
有哪位老哥知道参数帮帮忙

参数格式没问题，关键是调用函数之前参数的值
你需要先给st用一个字符串赋值，比如这样：st = String(255, 0)
然后Len(st)那里，直接换成255就好

不感兴趣

开通SVIP免广告

大佬再请教一下
我是这么写的
st=String(255,0)
mciSendString “status movie length”,st,255,0
Msgbox st
输出结果是空？
用一个函数去保存sendstring的结果就一直是263
求解

mciSendString确定是很不好用，可以推荐一个好用的点叫ActiveMovie（至少对VB来说它更方便，功能也更强），可以完全取代mci（mci内部也是调用ActiveMovie实现的）。
在VB6IDE的菜单栏中找到“工程→引用”菜单，然后勾上“ActiveMovie control type library”，然后写入以下代码：
Option ExplicitConst WS_CHILD = &H40000000' 定义变量保存播放器实例
Dim mc As FilgraphManager
Dim mp As IMediaPosition
Dim ba As IBasicAudio
Dim bv As IBasicVideo
Dim vw As IVideoWindowPrivate Sub Form_Load()
' 创建 ActiveMovie 播放器
Set mc = New FilgraphManager
Set mp = mc ' 进度控制接口（可以获取视频总长度，播放进度等信息，单位为秒，可用小数表示精确进度）。
Set ba = mc ' 声音控制接口（其中的音量是以百分之一分贝为单位，即0表示原声，-100表示音量降低1分贝，最小值为-10000（降100分贝也就静音了））
Set bv = mc ' 视频控制接口
Set vw = mc ' 视频窗口控制接口
' 加载视频文件
mc.RenderFile "D:\Videos\LoginVideo.wmv"
' 设置播放器的父窗口
vw.Owner = Me.hWnd
' 设置播放器子窗口的样式（如果不指定WS_CHILD样式的话，播放器是浮在我们Form上方，而不是嵌入到里面）
vw.WindowStyle = WS_CHILD
End SubPrivate Sub Form_Resize()
' 窗口大小改变时拉伸播放器子窗口
vw.SetWindowPosition Me.ScaleX(Me.ScaleLeft, Me.ScaleMode, vbPixels), Me.ScaleY(Me.ScaleTop, Me.ScaleMode, vbPixels), Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, vbPixels), Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, vbPixels)
End SubPrivate Sub Form_Unload(Cancel As Integer)
' 停止播放
mc.Stop
End SubPrivate Sub Command1_Click()
' 开始播放
mc.Run
End SubPrivate Sub Timer1_Timer()
' 显示播放进度
Me.Caption = mp.CurrentPosition & "/" & mp.Duration
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

24回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六