VB.net与Media Player9.0嵌入式开发

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB.net与Media Player9.0嵌入式开发，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

Windows Media Player 9.0是微软推出的最新数字媒体播放器，它除了继承了media player 8.0的优秀之处外，还添加了许多的实用功能。不过这些功能并不是本文讲述的重点，本文要讲的是如何利用media player来编写一个自己的嵌入式软件，并让它拥有播放cd，vcd，avi，mp3等的功能。　

要编写这个程序你首先要熟悉vb.net，因为本程序是使用vb.net编写。在你的计算机上要安装windows media player 9.0。最后最关键的是要安装windows mendia player 9.0 sdk，在sdk中包含了一个dll，这个dll的作用是完成com和.net之间的转换，因为media player 9.0的编程要使用一个media player 9.0 activeX控件，而activeX的本质就是一个com。对于windows mendia player 9.0 sdk可以到微软的msdn去下载。

完成上面3个软件的安装后还不可以动手编写代码，因为要保证mendia player 9.0要与.net框架通信，还必须注册mendia player 9.0的pia，所谓pia是"Primary interop assemblies"的缩写本人将它翻译为"原始内部汇编集"，之所以要先注册它是因为com技术诞生在.net技术之前要让com和.net通信就要一个中间层来连接这两边在mendia player 9.0中使用mendia player 9.0 sdk redist目录下的wmppia.dll来注册mendia player 9.0的pia，在命令窗口中输入：[path]regasm c:WMSDKWMPSDK9 redistwmppia.dll（regasm是.net提供的pia注册程序，path是它的路径，你可以用搜索功能来找到它）。　

各位别以为注册了pia就可以编程了，你还得将它添加到全局缓存中。在命令窗口中输入：[path]Gacutil /i C:WMSDKWMPSDK9redistwmppia.dll（Gacutil是.net提供的全局缓存添加程序，path是它的路径，你可以用搜索功能来找到它）　

完成上面的5个步骤后就可以开始编写代码了。为了让.net使用pia，我们必须要在代码的开头添加下面一条语句： Imports Microsoft.MediaPlayer.Interop现在就可以开始我们的编程之旅了。

右击vs.net ide的控件工具箱，在快捷菜单中单击"自定义工具箱"，在"自定义工具箱"中选中"windows media player"并单击"确定"（图1）

图1

此时会在控件工具拦底部添加一个mendia的控件标志。双击此控件，将它放在窗

体上。右击它并点击"属性"在出现的属性窗口（图2）中将"选择模式"设置为"none"并单击"确定"，这样做的目的是去掉原来的播放控件。

图2

然后在窗口中在添加如图3的控件，在属性窗口中将TrackBar1控件的最大和最小值设定为100和0，因为media的音量范围是0到100，我们用TrackBar1控件来调整播放音量。Timer1的interval设置为1000。

图3

现在可以输入以下代码了：

Code:
  1. PrivateSubButton1_Click(ByValsenderAsSystem.Object,
  2. ByValeAsSystem.EventArgs)HandlesButton1.Click
  3. '打开和关闭所有光驱仓门
  4. Dimi
  5. Dimk=AxWindowsMediaPlayer1.cdromCollection.count()
  6. Ifk>1Then
  7. Fori=0Tok-1
  8. AxWindowsMediaPlayer1.cdromCollection.Item(i).eject()
  9. Next
  10. Else
  11. AxWindowsMediaPlayer1.cdromCollection.Item(0).eject()
  12. EndIf
  13. EndSub
  14. PrivateSubForm1_Load(ByValsenderAsObject,
  15. ByValeAsSystem.EventArgs)HandlesMyBase.Load
  16. '获得计算机中有多少个光驱和它们的盘符
  17. Dimi
  18. DimcdlabelAsString
  19. Dimk=AxWindowsMediaPlayer1.cdromCollection.count()
  20. Ifk>1Then
  21. Fori=0Tok-1
  22. cdlabel=cdlabel&
  23. AxWindowsMediaPlayer1.cdromCollection.Item(i).driveSpecifier()
  24. Label1.Text="这台计算机共有"&k&
  25. "台CD-ROM"&"分别是"&cdlabel&""
  26. Next
  27. Else
  28. cdlabel=cdlabel+
  29. AxWindowsMediaPlayer1.cdromCollection.Item(0).driveSpecifier()
  30. Label1.Text="这台计算机共有"&k&
  31. "台CD-ROM"&"分别是"&cdlabel&""
  32. EndIf
  33. EndSub
  34. PrivateSubButton2_Click(ByValsenderAsSystem.Object,
  35. ByValeAsSystem.EventArgs)HandlesButton2.Click
  36. DimstrfilenameAsString
  37. DimOpenFileDialog1AsSystem.Windows.Forms.OpenFileDialog=
  38. NewSystem.Windows.Forms.OpenFileDialog()
  39. OpenFileDialog1.ShowDialog()
  40. strfilename=OpenFileDialog1.FileName
  41. AxWindowsMediaPlayer1.URL=strfilename
  42. EndSub
  43. PrivateSubButton3_Click(ByValsenderAsSystem.Object,
  44. ByValeAsSystem.EventArgs)HandlesButton3.Click
  45. AxWindowsMediaPlayer1.controls.play()'播放
  46. EndSub
  47. PrivateSubButton5_Click(ByValsenderAsSystem.Object,
  48. ByValeAsSystem.EventArgs)HandlesButton5.Click
  49. AxWindowsMediaPlayer1.controls.stop()'停止
  50. EndSub
  51. PrivateSubAxWindowsMediaPlayer1_PlayStateChange(ByValsenderAsObject,
  52. 　ByValeAsAxMicrosoft.MediaPlayer.Interop._WMPOCXEvents_PlayStateChangeEvent)Handles
  53. 　AxWindowsMediaPlayer1.PlayStateChange
  54. '表示播放媒体发生变化时触发此事件
  55. Label4.Text="此文件播放总时间是"&
  56. AxWindowsMediaPlayer1.currentMedia.durationString
  57. Timer1.Enabled=True
  58. Label5.Text="标题"&
  59. AxWindowsMediaPlayer1.currentMedia.getItemInfoBytype("Title","",0)
  60. Label6.Text="作者"&
  61. AxWindowsMediaPlayer1.currentMedia.getItemInfoBytype("Author",0)
  62. EndSub
  63. PrivateSubButton4_Click(ByValsenderAsSystem.Object,
  64. 　ByValeAsSystem.EventArgs)HandlesButton4.Click
  65. AxWindowsMediaPlayer1.controls.pause()'暂停
  66. EndSub
  67. PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,
  68. ByValeAsSystem.EventArgs)HandlesTimer1.Tick
  69. Label2.Text="已经播放时间"&
  70. CInt(AxWindowsMediaPlayer1.controls.currentPosition)&"秒"
  71. EndSub
  72. PrivateSubTrackBar1_Scroll(ByValsenderAsSystem.Object,
  73. ByValeAsSystem.EventArgs)HandlesTrackBar1.Scroll
  74. AxWindowsMediaPlayer1.settings.volume=TrackBar1.Value'调整输出音量
  75. EndSub

程序说明：当你按下F5开始编译时，系统会提示你有一个错误，这个错误就是在"Windows 窗体设计器生成的代码"中的"Me.AxWindowsMediaPlayer1.enabled = True"这条语句引起的，其原因是media player 9.0的控件与.net的兼容问题，此问题已经得到微软的证实，在下一版本中即vs2003.net将不会有此问题，在此版本中解决方法是将此代码去掉即可。

文中使用的getItemInfoBytype属性是用来读取元数据的中的信息（对于元数据的定义见sdk），这些信息是在媒体建立时输入进去的，但是这个属性并不会在你编写代码时自动出现，有就是说不具备智能填充功能，其原因是media player 9.0控件的某些新功能是通过接口发布的，而未在com类型库中发布，所以不具备智能填充功能。不过你可以按照sdk给出的语法书写，编译器不会识别不出来的。程序中对文件的播放时间的计算单位是秒，如果你感兴趣可以将它转换为mm：ss的格式。

运行如图4

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积