Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Артем Федоров -

Visual Basic 5.0/6.0 - Звук

Все примеры / Мультимедиа / Звук

Проигрывание файлов mp3 в программе

Автор: Артем Федоров | добавлено: 15.06.2012, 22:25 | просмотров: 6005 (1+) | комментариев: 0 | рейтинг: *x10
Пример показывает как можно воспроизводить файлы mp3 в своей программе.

Инструкции

Добавьте на форму Command1 и Command2.

Код

Option Explicit
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 "G:\song.mp3", "MyAlias"
End Sub
 
Private Sub Command2_Click()
 MP3_Stop "MyAlias"
End Sub

Как это работает?

Написано на vb6.
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Артем Федоров

vk.com/temamagic
t.me/temamagic

См. также:
Профиль автора
Артем Федоров
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики