Programming with MP3

[Admiral]

Народ, как оптимальнеэ всего сделать поддержку МР3 в своих програмах:
через MP3.h, MP3.ocx или другими способами(например хаudio.dll)?

[JCooper]

Admiral если тебе нужно просто проигрывать звуковые фрагменты, то значительно проще использовать формат wav. Не парься.

[Prisoner]

Угу, особенно если они мелкие, в пределах ~2-5 (а может и более) секунд. К примеру, если присмотреться, то звуки Half-Life все в wav'ках.

[hasherfrog]

Kuper
Prisoner
Имхо, человек собирается проигрывать музыку, а не звуковые эффоекты. Wav - это всё-таки от лени.
Admiral
Поскольку про язык программирования ни слова, посмотрите вот это (http://delphi.about.com/library/weekly/aa112800a.htm).
Мне вот интересно, когда же directx начнёт поддерживать vp3 напрямую

[Admiral]

hasherfrog
Спасибо, но я хотел узнать как лучше для процессора, что б наименьше он грузился из-за этой музыки. Например когда играет Winamp там всего 1-2% а когда этот ТМеdiaPlayer целых 5%. Ассемблер не предлагать.
Если на С то плеєр не так уж грузит процесор, но там долго писать, на Делфи намного быстрее и легче. Мож кто знает где можно достать SDK для хаudio.dll(кроме офицыального сайта)?

[Prisoner]

hasherfrog, а ты "сожми" пятисекундную вафельку в mp3 и погляди процент "сжатия" :). В теме малых вафель разговор не о лени, имхо.

[hasherfrog]

:no: Чтобы подсунуть directX'у wav-ку, никаких телодвижений не нужно. А mp3 придётся пергнать в pcm, то есть нужен кодек, шмодек и ... начинающего программиста начинают посещать именно такие вопросы, какие задаёт Admiral. И Именно это я это имею в виду, когда говорю о лени.
А то, что для звуковых эффектов целесообразнее использовать вавки, :yes: я не спорю - это было известно с древнейших времён, ещё с доса. Помню, откроешь файл с каким-нибудь экзотическим расширением - а там вавка без хидера.

[Guest]

Есть вопрос как в программу зашить музыку - т.е. загружаешь программу и начинает проигрываться музыка (одна и таже по кругу), но не отдельным файлом, а в теле программы. Сам новичок пробую Delphi. Просто видел как-то кряк для какой-то программы (точно не помню какой), его запускаешь и начинает идти мызыка. Если кто знает как это сделать, подскажите, заранее спасибо.

[Prisoner]

Есть такая штука как ресурс, он компилируется компилятором ресурсов и потом прилинковывается к исполняемому модулю, таким образом программа может содержать в себе картинки и много чего еще.
Алгоритм в общем-то прост:
1) Создать rc-файл, он текстовый.

WAV1        WAV     wav1.wav
WAV2        WAV     wav2.wav
BMP1        BITMAP  bmp1.bmp
BMP2        BITMAP  bmp2.bmp

2) Попросить компилятор ресурсов (он входит в состав Дельфи) заняться его прямыми обязанностями:

brcc32 наш_файл.rc

Если оный компилятор не найден, то ищите его в директории bin, что в директории куда ставили Дельфи.
3) Получившийся на выходе наш_файл.res необходимо "прилинковать" к проекту, для этого в каком-нибудь юните вставляете такую опцию компилирования
{$R наш_файл}
4) Про то как использовать ресурсы, как их находить читайте в справочной системе в стороне FindResource, LoadResource, LoadFromResourceName, LockResource, UnLockResource, FreeResource.

[Admiral]

Много времени прошло после создания темы, а интереса к теме (по крайне мере у меня) не поубавилось.

Вот написанный мною пример на Visual Basic 6.0 с использованием мультимедийной библиотеки Bass (http://www.un4seen.com/bass.html) (исп. версия 2.2, в настоящее время уже доступна 2.3).

Option Explicit
Dim A As Integer 'The number of song in list
Dim B As String 'The time of sound
Dim FName As String
Dim C As Integer
Const MaxTime = 65535 'Max of interval in timer
Dim chan As Long
Dim File As Long

'display error message
Sub Error_(ByVal es As String)
Call MsgBox(es & vbCrLf & vbCrLf & "error code: " & BASS_ErrorGetCode, vbExclamation, "Error")
End Sub
Private Sub Form_Load()

'Check if bass.dll is exists
If (Not FileExists(RPP(App.Path) & "bass.dll")) Then
Call MsgBox("BASS.DLL does not exists", vbCritical, "BASS.DLL")
End
End If

'Check that BASS 2.2 was loaded
If (BASS_GetVersion <> MakeLong(2, 2)) Then
Call MsgBox("BASS version 2.2 was not loaded", vbCritical, "Incorrect BASS.DLL")
End
End If

If (Not FileExists(RPP(App.Path) & "play.ini")) Then
Call MsgBox("play.ini does not exists.", vbCritical, "play.ini")
End
End If

File = FreeFile
Open "play.ini" For Input As File
Do Until EOF(File)
Line Input #File, B
List1.AddItem (B)
Loop
Close File

'initialize BASS

If (BASS_Init(-1, 44100, 0, Me.hWnd, 0) = 0) Then
Call Error_("Can't initialize device")
End
End If

' If (Not PlayFile) Then 'start a file playing by calling the PlayFile pushing
' BASS_Free
' End
'End If

Play.value = True 'start a file playing by pushing the play button
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call BASS_Free
End
End Sub

Private Sub Nx_Click()
If A = List1.ListCount - 1 Then
A = 0
Else
A = A + 1
End If
Play.value = True
End Sub

Private Sub Play_Click()
Timer1.Enabled = False
Text1.Text = List1.List(A)
If (Not PlayFile) Then 'start a file playing - call PlayFile function
BASS_Free
End
End If
End Sub

Private Sub Prev_Click()
If A = 0 Then
A = List1.ListCount - 1
Else
A = A - 1
End If
Play.value = True
End Sub

Function PlayFile() As Boolean
On Local Error Resume Next 'if Cancel pressed...

Call BASS_StreamFree(chan)
'Call BASS_MusicFree(chan)

chan = BASS_StreamCreateFile(BASSFALSE, List1.List(A), 0, 0, 0)
'If chan = 0 Then chan = BASS_MusicLoad(BASSFALSE, List1.List(A), 0, 0, 0, 0)

If chan = 0 Then
Call Error_("Selected file couldn't be played!")
PlayFile = False 'Can't load the file
Exit Function
End If

Call BASS_ChannelPlay(chan, BASSFALSE)
B = BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetLength(chan))
B = Left(B, InStrRev(B, ",") - 1)
B = 1000 * B + 1000

Label1.Caption = B
CheckTime

Timer1.Enabled = True

FName = GetFileName(List1.List(A))
Text1.Text = Left(FName, InStrRev(FName, ".") - 1)

PlayFile = True
End Function

Private Sub Stp_Click()
Timer1.Enabled = False
Call BASS_ChannelStop(chan)
End Sub

Private Sub Timer1_Timer()
If C = 1 Then
CheckTime
Else: Timer1.Enabled = False 'C = 0
Nx.value = True
End If
Label1.Caption = B
End Sub

'--------------------------
' some useful functions :)
'--------------------------

'check if any file exists
Public Function FileExists(ByVal fp As String) As Boolean
FileExists = (Dir(fp) <> "")
End Function

'RPP = Return Proper Path
Function RPP(ByVal fp As String) As String
RPP = IIf(Mid(fp, Len(fp), 1) <> "\", fp & "\", fp)
End Function

'get file name from file path
Public Function GetFileName(ByVal fp As String) As String
GetFileName = Mid(fp, InStrRev(fp, "\") + 1)
End Function

'check Time
Public Sub CheckTime()
If B > MaxTime Then
B = B - MaxTime
C = 1 'Tell timer that i use big time
Timer1.Interval = MaxTime
Else:
Timer1.Interval = B
C = 0
End If
End Sub

Была следующая сложность в реализации: как можно было узнать, когда одна композиция доиграет, что б запустить следующую по списку?

Так вот, обратите внимание на функции таймера

Dim A As Integer 'Количество песен в списке
Dim B As String 'Время песни
Dim C As Integer
Const MaxTime = 65535 'Max of interval in timer
...
B = BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetLength(chan))
B = Left(B, InStrRev(B, ",") - 1)
B = 1000 * B + 1000 `получаем длину композиции в миллисекундах и округляем до секунды (+1000)
...
Private Sub Timer1_Timer()
If C = 1 Then
CheckTime
Else: Timer1.Enabled = False 'C = 0
Nx.value = True
End If
Label1.Caption = B
End Sub
...
Public Sub CheckTime()
If B > MaxTime Then
B = B - MaxTime
C = 1 'Tell timer that i use big time
Timer1.Interval = MaxTime
Else:
Timer1.Interval = B
C = 0
End If
End Sub


Время, которое максимально допустимо задать таймеру в Visual Basic 6.0, ограничено (65535 мс).
Естественно средне статическая песня играет значительно больше.
Так вот, я узнаю в сколько раз больше она играет, и сохраняю данное значение в переменной.

А таймер каждый интервал, будет проверят, не пора ли переключится на следующую песню.
А так как интервал (кроме последнего, а иногда и первого, если песня короче 65535 мс) достаточно велик, то и нагрузка на CPU будет достаточно либеральна.

P.S.
До этой реализации я использовал mp3.ocx производства Vision Factory (http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/komponenten/komponente0014.shtml), который можно скачать вместе с примером (http://www.vb-fun.de/cgi-bin/downloadtools.pl?ID=VFMp3player&Ort=vb/komponenten).
Во времена создания темы меня устраивал, но теперь увы требования по серьёзней.
Там естественно никакого таймера не надо было придумывать.
У объекта мр3.осх есть событие SongPlayed() которое и отвечает за конец песни.

Достаточно написать

Private Sub mp3_SongPlayed()
NX.Value = True
End Sub


где NX. кнопка на следующую песню (см исх выше).