как воспроизвести фаил миди в програме?

[Lamerok]

как воспроизвести фаил миди в програме?

[Andrev]

Объявляешь в проекте новый класс, обзываешь его, скажем, Snd_cls. В код класса пихаешь:

Option Explicit
Dim MC As IMediaControl
Dim MP As IMediaPosition
Public Sub LoadFile(ByVal strFileName As String)
Set MC = New FilgraphManager
Set MP = MC
MC.RenderFile strFileName
End Sub
Public Sub PlayFile()
MC.Run
MP.CurrentPosition = 0
End Sub
Public Sub StopFile()
MC.Stop
End Sub
Public Property Get Speed() As Currency
Speed = MP.Rate
End Property
Public Property Let Speed(ByVal curSpeed As Currency)
MP.Rate = curSpeed
End Property
Public Property Get Pos() As Currency
Pos = MP.CurrentPosition
End Property
Public Property Let Pos(ByVal curPos As Currency)
MP.CurrentPosition = curPos
End Property
Public Function GetLen() As Long
GetLen = MP.Duration
End Function

Вот тебе и новый класс для работы со звуком. Есть все, абсолютно все функции.
Затем в проекте объявляешь переменную:

Dim SND As New Snd_cls

Методом LoadFile запихиваешь файл:

SND.LoadFile "C:\123.mid"

И затем воспроизводишь его:
SND.PlayFile

Все. Приятных минут.
Да! Еще в проекте необходимо подключить библиотеку Active movie control type library (quartz.dll).
ЗЫ.
Забыл сказать - этим методом можно играть не только *.mid, но и *.mp3 и *.wav

[Lamerok]

спасиб

[step]

А так тоже можно!


Dim PW As Integer
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszNull As Long, ByVal uFlags As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
PW = sndPlaySound("1.wav", 1)
End Sub

Private Sub Command2_Click()
result = mciSendString("play 1.mid", 0, 0, 0)
End Sub

Private Sub Command3_Click()
retcode = sndStopSound(0, SND_ASYNC)
End Sub
Private Sub Command4_Click()
result = mciSendString("stop 1.mid", 0, 0, 0)
End Sub

[HotKitten]

а можно проще - добавить на форму MediaPlayer1 и через MediaPlayer1.filename указать путь к миди - легко и просто, так же MP3, wav, gif, и avi можно проигрывать

[vvs_adm]

а можно проще - добавить на форму MediaPlayer1 и через MediaPlayer1.filename указать путь к миди - легко и просто, так же MP3, wav, gif, и avi можно проигрывать

Вот-вот, я пока Андрева топик до конца дочитал, уж начал думать, что такой ламерской фигней, как медиа плейер тока один я, как дурак, и пользуюсь... Слава богу, нас минимум двое

[HotKitten]

но MediaPlayer1 не помогает, если надо сохранить анимашку или звук на форме, а не отдельным файлом и это плохо

[step]

а можно проще - добавить на форму MediaPlayer1 и через MediaPlayer1.filename указать путь к миди - легко и просто, так же MP3, wav, gif, и avi можно проигрывать

Ну если так, то можно еще проще берёшь инсталятор виндовс медиа плейер добавляешь в архив с прогой, при запуске проги устанавливаешь его на комп, при нажатии на кнопку шелом открываешь файл, который по ассоциации открывается виндовс медиа плейером, и так можно воспроизводить и MID, и AVI, и MPG, и т.д. почти все форматы аудио и фидео! Т.е. нафиг чё-то мудрить, ведь при этом предётся MediaPlayer1 с собой тащить, а он много весит, так проще написать маленький код, чем тащить за собой лишние мега!

[Mikle]

Я предпочитаю не MediaPlayer, а элемент Active Move. Это есть даже в Win95.

[HotKitten]

а можно проще - добавить на форму MediaPlayer1 и через MediaPlayer1.filename указать путь к миди - легко и просто, так же MP3, wav, gif, и avi можно проигрывать

Ну если так, то можно еще проще берёшь инсталятор виндовс медиа плейер добавляешь в архив с прогой, при запуске проги устанавливаешь его на комп, при нажатии на кнопку шелом открываешь файл, который по ассоциации открывается виндовс медиа плейером, и так можно воспроизводить и MID, и AVI, и MPG, и т.д. почти все форматы аудио и фидео! Т.е. нафиг чё-то мудрить, ведь при этом предётся MediaPlayer1 с собой тащить, а он много весит, так проще написать маленький код, чем тащить за собой лишние мега!

добавляеш на форму компонент Windows MediaPlayer
MediaPlayer1.filename = midi.mid - и всё!
этот код меньше!
и ненадо никаких инстальников

[step]

а можно проще - добавить на форму MediaPlayer1 и через MediaPlayer1.filename указать путь к миди - легко и просто, так же MP3, wav, gif, и avi можно проигрывать

Ну если так, то можно еще проще берёшь инсталятор виндовс медиа плейер добавляешь в архив с прогой, при запуске проги устанавливаешь его на комп, при нажатии на кнопку шелом открываешь файл, который по ассоциации открывается виндовс медиа плейером, и так можно воспроизводить и MID, и AVI, и MPG, и т.д. почти все форматы аудио и фидео! Т.е. нафиг чё-то мудрить, ведь при этом предётся MediaPlayer1 с собой тащить, а он много весит, так проще написать маленький код, чем тащить за собой лишние мега!

добавляеш на форму компонент Windows MediaPlayer
MediaPlayer1.filename = midi.mid - и всё!
этот код меньше!
и ненадо никаких инстальников

Это прикол был, чё не понял что-ли!