怎样在程序中播放MIDI音乐.......

Question

如果你用Delphi6，在ActiveX面板里有ActiveMovie，可以放。

Answer 1

mcisendstring 函数就行，可以播放mid、mp3等

Answer 2

用TMediaPlayer.
TMediaplayer.filename:='midi1.mid';
Tmediaplayer.open;

Answer 3

加上一个Mediaplayer控件，如果不想看到的话可以把visible属性设为false.

Answer 4

用DeityFox(神狐)说的就可以,不要控件的

Answer 5

谢谢各位.有没有关于mcisendstring的介绍喝使用方法

Answer 6

要看MSDN,转贴一段VB代码给你,都一样
Private Sub Command1_Click()
Dim back
back = mciSendString&("CLOSE NN", 0, 0, 0)
End SubPrivate Sub Command2_Click()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.mid" + " TYPE SEQUENCER ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End SubPrivate Sub Form_Load()
Dim back
back = mciSendString&("OPEN " + App.Path + "\TEST.mid" + " TYPE WaveAudio ALIAS NN", 0&, 0, 0)
back = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

Answer 7

可将MIDI文件做成资源文件，然后就可以任由使用了。