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:\wmsdk\wmpsdk9\ redist\wmppia.dll（regasm是.net提供的pia注册程序，path是它的路径，你可以用搜索功能来找到它）。
各位别以为注册了pia就可以编程了，你还得将它添加到全局缓存中。在命令窗口中输入：[path]gacutil /i c:\wmsdk\wmpsdk9\redist\wmppia.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控件来调整播放音量。t imer1的interval设置为1000。
图3
现在可以输入以下代码了：
private sub button1_click(byval sender as system.object,
byval e as system.eventargs) handles button1.click
打开和关闭所有光驱仓门
dim i
dim k = axwindowsmediaplayer1.cdromcollection.count()
if k > 1 then
for i = 0 to k - 1
axwindowsmediaplayer1.cdromcollection.item(i).eject()
next
else
axwindowsmediaplayer1.cdromcollection.item(0).eject()
end if
end sub
private sub form1_load(byval sender as object,
byval e as system.eventargs) handles mybase.load
获得计算机中有多少个光驱和它们的盘符
dim i
dim cdlabel as string
dim k = axwindowsmediaplayer1.cdromcollection.count()
if k > 1 then
for i = 0 to k - 1
cdlabel = cdlabel &
axwindowsmediaplayer1.cdromcollection.item(i).drivespecifier()
label1.text = "这台计算机共有 " & k &
" 台cd-rom" & "分别是" & cdlabel & " "
next
else
cdlabel = cdlabel +
axwindowsmediaplayer1.cdromcollection.item(0).drivespecifier()
label1.text = "这台计算机共有 " & k &
" 台cd-rom" & "分别是" & cdlabel & " "
end if
end sub
private sub button2_click(byval sender as system.object,
byval e as system.eventargs) handles button2.click
dim strfilename as string
dim openfiledialog1 as system.windows.forms.openfiledialog =
new system.windows.forms.openfiledialog()
openfiledialog1.showdialog()
strfilename = openfiledialog1.filename
axwindowsmediaplayer1.url = strfilename
end sub
private sub button3_click(byval sender as system.object,
byval e as system.eventargs) handles button3.click
axwindowsmediaplayer1.controls.play()播放
end sub
private sub button5_click(byval sender as system.object,
byval e as system.eventargs) handles button5.click
axwindowsmediaplayer1.controls.stop()停止
end sub
private sub axwindowsmediaplayer1_playstatechange(byval sender as object,
byval e as axmicrosoft.mediaplayer.interop._wmpocxevents_playstatechangeevent) handles
axwindowsmediaplayer1.playstatechange
表示播放媒体发生变化时触发此事件
label4.text = "此文件播放总时间是" &
axwindowsmediaplayer1.currentmedia.durationstring
timer1.enabled = true
label5.text = "标题" &
axwindowsmediaplayer1.currentmedia.getiteminfobytype("title", "", 0)
label6.text = "作者" &
axwindowsmediaplayer1.currentmedia.getiteminfobytype("author", "", 0)
end sub
private sub button4_click(byval sender as system.object,
byval e as system.eventargs) handles button4.click
axwindowsmediaplayer1.controls.pause()暂停
end sub
private sub timer1_tick(byval sender as system.object,
byval e as system.eventargs) handles timer1.tick
label2.text = "已经播放时间" &
cint(axwindowsmediaplayer1.controls.currentposition) & "秒"
end sub
private sub trackbar1_scroll(byval sender as system.object,
byval e as system.eventargs) handles trackbar1.scroll
axwindowsmediaplayer1.settings.volume = trackbar1.value调整输出音量
end sub
|
程序说明：当你按下f5开始编译时，系统会提示你有一个错误，这个错误就是在”windows 窗体设计器生成的代码”中的”me.axwindowsmediaplayer1.enabled = true”这条语句引起的，其原因是media player 9.0的控件与.net的兼容问题，此问题已经得到微软的证实，在下一版本中即vs2003.net将不会有此问题，在此版本中解决方法是将此代码去掉即可。
文中使用的getiteminfobytype属性是用来读取元数据的中的信息（对于元数据的定义见sdk），这些信息是在媒体建立时输入进去的，但是这个属性并不会在你编写代码时自动出现，有就是说不具备智能填充功能，其原因是media player 9.0控件的某些新功能是通过接口发布的，而未在com类型库中发布，所以不具备智能填充功能。不过你可以按照sdk给出的语法书写，编译器不会识别不出来的。程序中对文件的播放时间的计算单位是秒，如果你感兴趣可以将它转换为mm：ss的格式。
运行如图4
图4
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：
IDC资讯中心 »
VB.net与Media Player9.0嵌入式开发-.NET教程,VB.Net语言
IDC资讯中心
