奇怪的问题,MCI播放不了mpg文件。

现在还是人类 现在还是人类 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我碰到了一个奇怪的问题,我使用MIC播放媒体文件的时候像被卡死一样。
我采用以下代码可以播放很多种类型的文件(安装过解码器的情况下)
包括rm、rmvb、wmv等等,但是最奇怪的就是放不了mpg文件,这个mpg文件
是我从vcd的歌碟中拷贝的,原来是dat文件,后来因为我用MCI播放后,只要
一打开文件程序就像卡死了一样不动(包括vb本身),所以我就用WinAVI将这
个文件转换成了mpg格式的来看看,结果也是一样。但这个文件我用Media Player
和 暴风影音 还有 KMPlayer 来播放都没问题。后来我就想是不是解码器问题。
因为安装 暴风影音 的时候暴风影音会重新注册解码器,所以我下载了最新的3.6版
重新安装,结果用MCI播放还是不行。但那些播放器都没问题,dat和mpg都能播放。
其实我以前也搞过MCI播放mpg和dat文件,没什么问题,但这次放不了估计问题出在
系统,但为什么那些软件又可以播放呢?都不知道是为什么。
还有:
"MPEGVideo"、"AVIVideo"、"CDAudio"、"Sequencer"、"WaveAudio"
我试过"MPEGVideo"和"AVIVideo",效果一样,像死机一样,只能强制关闭程序。

代码如下:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private 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

Private Sub Command1_Click()
'加载一个影片或MP3文件
mciExecute "open D:\AVSEQ05.mpg TYPE MPEGVideo ALIAS DemoPlayer STYLE child PARENT " & Me.hWnd
'设置调整条的当前度量为当前控件的音量 最大是100,最小是0
Dim 返回字符 As String * 128
mciSendString "status DemoPlayer volume", 返回字符, 128, 0
Slider1.Value = Int(Left(返回字符, 8))
End Sub
Private Sub Command2_Click()
'播放
mciExecute "play DemoPlayer notify"
End Sub
Private Sub Command3_Click()
'暂停
mciExecute "Pause DemoPlayer"
End Sub
Private Sub Slider1_Scroll()
'设置音量大小
mciExecute "setaudio DemoPlayer volume to " & Slider1.Value
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'停止播放
mciExecute "Stop DemoPlayer"
'关闭打开的MDI设备
mciExecute "close DemoPlayer"
End Sub
...全文

相关推荐

正交拉丁超立方(OLHC)分组与实验设计(DOE)评估的优化Python实现.rar

正交拉丁超立方(OLHC)分组与实验设计(DOE)评估的优化Python实现.rar

天天Matlab科研工作室

Java微服务如何拆解审计日志查询服务

标题:Java微服务如何拆解审计日志查询服务 内容概要:围绕缓存策略、任务调度、回压控制和审计追踪,拆解Java微服务如何拆解审计日志查询服务的实现细节。 xdronline.com xdrea.com 9g.xinmei6.com xinghaohuanbao.com m.xiker66.com

2601_97068614

港股十档行情tick数据涵盖逐笔成交与委托,记录每笔买卖价格、成交量及挂单明细 逐笔数据包含成交时间、价格、股数、成交方向,委托数据展示买一至买十、卖一至卖十的价格与数量

港股十档行情tick数据涵盖逐笔成交与委托,记录每笔买卖价格、成交量及挂单明细。逐笔数据包含成交时间、价格、股数、成交方向,委托数据展示买一至买十、卖一至卖十的价格与数量。分钟数据汇总每分钟开盘价、最高价、最低价、收盘价、成交量及成交额。历史行情覆盖近十五年,字段清晰完整,便于回溯分析。 数据源:CMES金融数据库

2401_89140926

MO-372A_PQFP-F6_I1p27-R3p8x4p48Z1p1-N5p5C1p24.stp

MO-372A_PQFP-F6_I1p27-R3p8x4p48Z1p1-N5p5C1p24.stp

std86021

光伏储能虚拟同步发电机VSG并网仿真模型(Similink仿真实现)

内容概要:本文介绍了一种光伏储能虚拟同步发电机(VSG)并网的Simulink仿真模型,旨在通过仿真手段实现新能源系统与电网的高效协同运行。该模型深度融合光伏发电与储能系统,借助虚拟同步发电机技术有效提升系统的惯性和阻尼特性,从而显著增强电网在高比例可再生能源接入背景下的稳定性。文中重点阐述了VSG在频率调节、电压支撑及动态响应等方面的优越性能,并提供了完整的仿真框架,支持研究人员进行控制策略优化、参数调整与系统性能验证,有助于推动智能电网与新能源并网技术的发展。; 适合人群:具备一定电力系统基础知识和Simulink仿真经验的科研人员、电气工程及相关专业的研究生或从事新能源并网技术研发的工程师。; 使用场景及目标:① 研究光伏储能系统并网的动态行为;② 设计与优化虚拟同步发电机的控制策略以提高电网稳定性;③ 验证新型控制算法在多时间尺度调度中的有效性;④ 教学演示新能源系统与电网互动的物理机制。; 阅读建议:建议读者结合提供的仿真模型与代码,深入理解VSG的工作原理,尝试修改控制参数以观察系统响应变化,并参考文中提及的Matlab代码实现方式,进一步开展个性化研究与创新设计。

荔枝科研社
评论 20
收藏 已收藏
分享
返回顶部