المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
28-10-13, 12:16 PM
السلام عليكم ورحمة الله وبركاته
عندي كلاس من المنتدى القديم صراحة لا اعرف من صاحبه اخذته من مشاركة للأستاذ راجي والي بدوره اخذه من شخص , قمت بجعله مكتبة dll
وهو لتشغيل الملفات الصوتيه التي نوعها mp3;wav;mid;wma;asf;avi
تحميل الاداة
كما وضعت مثال طريقة الاستخدام
تحميل المثال
تم الشكر بواسطة: Abu Ehab , سعود , Sajad , ali.alfoly , kslawy , mohammed moh , العزابي , hoob computer , Phenomenon1 , الشاكي لله , sooriaty03
المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة :
29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
السلام عليكم ورحمة الله
شكرا على هذا الملف الرائع
وشكرا على الامانة فى الطرح
جزاك الله خيرا
-
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
وجزاك بالمثل اخي
واعتذر نسيت وضع الكلاس لتعم الفائدة للجميع
كود :
Public Class MediaPlayer
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Integer, ByVal lpstrBuffer As String, ByVal uLength As Integer) As Integer
Public Event MediaOpened(ByVal sender As System.Object, ByVal e As System.EventArgs)
Public Event MediaClosed(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Shared ObjectCount As Integer = 0
Private retVal As Integer = 0
Private returnData As String = Space(128)
Private errorString As String = Space(128)
Private errorSuccess As Boolean
'
Sub New()
ObjectCount = ObjectCount + 1
mFileAlias = "SND" & Hex(Now.Ticks) & Hex(ObjectCount)
End Sub
Sub New(ByVal pFileName As String)
Me.New()
Me.FileName = pFileName
End Sub
Private mFileAlias As String
ReadOnly Property FileAlias() As String
Get
Return mFileAlias
End Get
End Property
Private mFileName As String
Property FileName() As String
Get
Return mFileName
End Get
Set(ByVal value As String)
Me.Stop()
Me.close()
mFileName = value
End Set
End Property
Private mLength As Long = 0
Public ReadOnly Property Length() As Long
Get
Return mLength
End Get
End Property
Public Property Position() As Long
Get
retVal = mciSendString("status " & Me.FileAlias & " position", returnData, 128, 0)
Return Val(returnData)
End Get
Set(ByVal value As Long)
If Me.IsPlaying() Then
retVal = mciSendString("play " & Me.FileAlias & " from " & value.ToString, 0, 0, 0)
Else
retVal = mciSendString("seek " & Me.FileAlias & " to " & value.ToString, 0, 0, 0)
End If
End Set
End Property
Public ReadOnly Property IsPlaying() As Boolean
Get
retVal = mciSendString("status " & Me.FileAlias & " mode", returnData, 128, 0)
Return returnData.StartsWith("playing")
End Get
End Property
Private mVolume As Byte = 100
Public Property volume() As Byte
Get
Return mVolume
End Get
Set(ByVal value As Byte)
If value > 100 Then
value = 100
End If
mVolume = value
Dim vol As Integer = (Me.volume * 10)
retVal = mciSendString("setaudio " & Me.FileAlias & " volume to " & vol.ToString, 0, 0, 0)
End Set
End Property
Private mIsOpen As Boolean = False
Sub open(ByVal sFileName As String)
Me.FileName = sFileName
Me.open()
End Sub
Public ScreenHandel As Int32 = 0
Sub open()
Me.close()
If ScreenHandel <= 0 Then
retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias, 0, 0, 0)
Else
retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias & " parent " & ScreenHandel.ToString & " style " & "child" & " ", 0, 0, 0)
End If
retVal = mciSendString("set " & Me.FileAlias & " time format ms", 0, 0, 0)
retVal = mciSendString("status " & Me.FileAlias & " length", returnData, 128, 0)
mLength = Val(returnData)
mIsOpen = True
Me.volume = Me.volume
RaiseEvent MediaOpened(Me, New System.EventArgs)
End Sub
Sub Play(Optional ByVal repate As Boolean = False)
If repate = True Then
Me.Play("repeat")
Else
Play("")
End If
End Sub
Sub Play(ByVal pFileName As String, ByVal pRepate As Boolean)
Me.FileName = pFileName
Me.Play(pRepate)
End Sub
Sub Play(ByVal pCommand As String)
Dim Cmd As String = "play " & Me.FileAlias & " " & pCommand
If mIsOpen = False Then
Me.close()
Me.open()
End If
retVal = mciSendString(Cmd, 0, 0, 0)
End Sub
Sub Pause()
retVal = mciSendString("pause " & Me.FileAlias, 0, 0, 0)
End Sub
Sub [resume]()
retVal = mciSendString("resume " & Me.FileAlias, 0, 0, 0)
End Sub
Sub [Stop]()
retVal = mciSendString("stop " & Me.FileAlias, 0, 0, 0)
End Sub
Sub close()
Me.Stop()
retVal = mciSendString("close " & Me.FileAlias, 0, 0, 0)
'----------------------------------
If mIsOpen = True Then
RaiseEvent MediaClosed(Me, New System.EventArgs)
End If
'----------------------------------
mIsOpen = False
mLength = 0
'--------------------------------------
End Sub
End Class
المشاركات : 22
المواضيع 4
الإنتساب : Oct 2013
السمعة :
0
الشكر: 6
تم شكره 37 مرات في 21 مشاركات
المشاركات : 89
المواضيع 12
الإنتساب : Sep 2013
السمعة :
6
الشكر: 275
تم شكره 150 مرات في 58 مشاركات
السلام عليكم و رحمة الله
بارك الله فيك أخي
المشاركات : 230
المواضيع 17
الإنتساب : Sep 2012
السمعة :
24
الشكر: 1555
تم شكره 874 مرات في 149 مشاركات
بارك الله فيك رائع
تحياتي
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
30-10-13, 04:38 PM
(آخر تعديل لهذه المشاركة : 30-10-13, 04:40 PM {2} بواسطة 3booody.)
إقتباس :بارك الله فيك اخى
إقتباس :السلام عليكم و رحمة الله
بارك الله فيك أخي
إقتباس :بارك الله فيك رائع
تحياتي
وفيكم باارك الله اخواني شكرآآ على مروركم
المشاركات : 5
المواضيع 0
الإنتساب : Nov 2013
السمعة :
0
الشكر: 3
تم شكره 2 مرات في 2 مشاركات
جزاك الله كل خير أخي الكريم واصل تميزك
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
(17-11-13, 08:52 PM)Phenomenon1 كتب : جزاك الله كل خير أخي الكريم واصل تميزك
وجزاك بالمثل تحياتي لك
المشاركات : 749
المواضيع 17
الإنتساب : Sep 2013
السمعة :
54
الشكر: 521
تم شكره 619 مرات في 232 مشاركات
السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخي عبودي
وزادك من علمه
وجعله في ميزان حسناتك
|