Как проиграть MP3-файл? - Технологии - Интересные решения для программистов - Примеры кода

Технологии → Как проиграть MP3-файл? → Visual Basic

Пример показывает, как можно проиграть MP3-файл средствами Visual Basic 6.0 с импользованием API.

Option Explicit
'http://kbyte.ru
Private Declare Function mciSendString Lib "winmm.dll" _
 Alias "mciSendStringA" (ByVal lpszCommand As String, _
 ByVal lpszReturnString As String, _
 ByVal cchReturnLength As Long, _
 ByVal hwndCallback As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" _
 Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
 ByVal lpszShortPath As String, _
 ByVal cchBuffer As Long) As Long

Public Function MP3_Play(ByVal sFile As String, _
 ByVal sAlias As String) As Boolean
 
 Dim bResult As Boolean
 Dim sBuffer As String
 Dim lResult As Long
 
 sBuffer = Space$(255)
 lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
 
 If lResult <> 0 Then
  sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  lResult = mciSendString("open " & sFile & _
   " type MPEGVideo alias " & sAlias, 0, 0, 0)
  
  If lResult = 0 Then
   If mciSendString("play " & sAlias & _
    " from 0", 0, 0, 0) = 0 Then
    bResult = True
   End If
  End If
 End If
 
 MP3_Play = bResult
End Function

Public Sub MP3_Stop(ByVal sAlias As String)
 mciSendString "stop " & sAlias, 0, 0, 0
 mciSendString "close " & sAlias, 0, 0, 0
End Sub

Private Sub Command1_Click()
 'укажите путь к файлу MP3_Play "P:\Музыка\RAMMS+EIN\Rosentron\rammstein_-_hilf_mir[1].rar_[www_MP3shek_net].mp3", "MyAlias"
End Sub

Private Sub Command2_Click()
 MP3_Stop "MyAlias"
End Sub

mp3, multimedia, play, sound, vb, visual basic

KOS_MOS

Алексей

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Технологии → Как проиграть MP3-файл? → Visual Basic Пример показывает, как можно проиграть MP3-файл средствами Visual Basic 6.0 с импользованием API. Option Explicit 'http://kbyte.ru Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpszCommand As String, _ ByVal lpszReturnString As String, _ ByVal cchReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Public Function MP3_Play(ByVal sFile As String, _ ByVal sAlias As String) As Boolean Dim bResult As Boolean Dim sBuffer As String Dim lResult As Long sBuffer = Space$(255) lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer)) If lResult <> 0 Then sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) lResult = mciSendString("open " & sFile & _ " type MPEGVideo alias " & sAlias, 0, 0, 0) If lResult = 0 Then If mciSendString("play " & sAlias & _ " from 0", 0, 0, 0) = 0 Then bResult = True End If End If End If MP3_Play = bResult End Function Public Sub MP3_Stop(ByVal sAlias As String) mciSendString "stop " & sAlias, 0, 0, 0 mciSendString "close " & sAlias, 0, 0, 0 End Sub Private Sub Command1_Click() 'укажите путь к файлу MP3_Play "P:\Музыка\RAMMS+EIN\Rosentron\rammstein_-_hilf_mir[1].rar_[www_MP3shek_net].mp3", "MyAlias" End Sub Private Sub Command2_Click() MP3_Stop "MyAlias" End Sub mp3, multimedia, play, sound, vb, visual basic KOS_MOS Алексей 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt