استفسارين متعلقين بملفات الصوت

السلام عليكم

لتوفير إمكانية قراءة ملف صوتي من نوع MP3 بإمكانك إستعمال المكتبة الديناميكيةfmodce.dll . هذه المكتبة تضاف الى المجلد ويندوز لحاسوب الكف.

	'btnPlay_Click - fired when user clicks on the play button
	Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
		'start playing the track
		play_track()
		'disable play button and enable pause/stop buttons
		btnPause.Enabled = True
		btnStop.Enabled = True
		btnPlay.Enabled = False
		'set the progress bar max value to the length of the track divided by 1000 
		'divide by 1000 to avoid having a max value greater than what it can hold
		trackBar.Maximum = currentSoundLength / 1000
		trackBar.Minimum = 0
		'set the progress bar to 0
		trackBar.Value = 0
	End Sub

لقراءة الملف الصوتي إستعمل التعليمات التالية:

	'btnPause_Click - fired when user clicks on the pause button
	Private Sub btnPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPause.Click
		'set the onPause boolean
		isOnPause = True
		'stop playing
		stop_track()
		'disable pause button
		btnPause.Enabled = False
		'other buttons still available
		btnStop.Enabled = True
		btnPlay.Enabled = True
	End Sub

لإنهاء قراءة الملف الصوتي

	'btnStop_Click - fired when user clicks on the stop button
	Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
		'stop playing
		stop_track()
		'enable/disable buttons as if user had just selected a file
		setEnabled()
	End Sub

وهذه طريقة إستدعاء المكتبة والدوال التي تنتمي لها

#Region " FMOD DLL calls "
	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Init", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_Init(ByVal mixrate As Integer, ByVal maxsoftwarechannels As Integer, ByVal flags As Integer) As Boolean
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_GetLength", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_GetLength(ByVal fstream As IntPtr) As Integer
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_GetPosition", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_GetPosition(ByVal fstream As IntPtr) As UInt32
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_Open", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_Open(ByVal data As IntPtr, ByVal mode As Integer, ByVal offset As Integer, ByVal length As Integer) As IntPtr
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_Play", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_Play(ByVal channel As Integer, ByVal fstream As IntPtr) As Integer
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_SetPosition", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_SetPosition(ByVal fstream As IntPtr, ByVal position As UInt32) As Boolean
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Stream_Stop", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Function fmod_Stop(ByVal fstream As IntPtr) As Boolean
	End Function

	<DllImport("fmodce.dll", EntryPoint:="FSOUND_Close", SetLastError:=True, CharSet:=CharSet.Unicode, CallingConvention:=CallingConvention.Winapi)> _
	Public Shared Sub fmod_Close()
	End Sub

والله أعلم

Simple MP3 Player for Pocket PC using FMOD

لكن ابحثي في موقع http://www.opennetcf.org فلديهم مكتبات تسهل التعامل و برمجة الاجهزة الكفية

و لديهم ادوات لعرض الملتيميديا

كيف استطيع اضافة مشغل الميديا بلير لبرنامج0ي