想在程序中加入MIDI背景音乐，请指点一下(50分)

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #1

不想使用VCL库，并将MIDI音乐定义到资源中
我应该如何做呢？

 

S

sgzc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #2

二进制资源，用MCI函数播放。

 

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #3

我想问的就是哪个MCI函数...[8D]

 

S

sgzc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #4

uses MMSystem

procedure TForm1.btn1Click(Sender: TObject);
var
strPath:string;
mciOpenParms:TMCI_OPEN_PARMS ;
mciPlayParms:TMCI_Play_Parms;
wDeviceIDWORD;
mciCloseParms:TMCI_Generic_Parms;
begin

strPath:=SysUtils.ExtractFilePath(Application.ExeName)+'Test.MID';
showmessage(strpath);
FillChar(mciOpenParms, SizeOf(TMCI_Open_Parms), 0);
mciOpenParms.lpstrDeviceType := 'sequencer';
mciOpenParms.dwCallback:=0;
mciOpenParms.lpstrElementName := PChar(strPath);
mciSendCommand(0,MCI_OPEN,
MCI_OPEN_TYPE or MCI_OPEN_ELEMENT,
DWORD(@mciOpenParms));
wDeviceID:=mciOpenParms.wDeviceID;
mciPlayParms.dwCallback:=Handle;
mciSendCommand(wDeviceID, MCI_PLAY,
MCI_NOTIFY,
DWORD(@mciPlayParms));
end;

 

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #5

我想将MIDI音乐定义到资源中来播放，该如何做呢？

 

A

aolo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #6

<style type="text/css">.text{font-family:宋体;font-size:10.5pt}</style><pre class="text">
//在菜单project->resources下建立new->user data,resource type='MID'
//并将lost.mid文件插入资源文件中（project1.res）
procedure TForm1.BitBtn1Click(Sender: TObject);
var
R: TResourceStream;
begin

r:=TResourceStream.Create(HInstance, 'lost', 'MID');
//其中lost为mid歌曲名称，MID为资源类型
r.SaveToFile('c:/temp.mid');
r.Free;
MediaPlayer1.FileName:='c:/temp.mid';
MediaPlayer1.open;
MediaPlayer1.Play;
end;

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #7

如果是播放背景音乐，建议单独做一个播放背景音乐的程序。
否则，如果播放音乐和主程序在一起，在主程序处理量大的
时候，背景音乐的播放会出问题，如停顿等。
两个程序之间的通信可以用发送消息

 

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-02

• #8

to 楼上：
用另外一个线程不就搞定了？
可是搞不明白应该怎样播放

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-04

• #9

to ：千晶
用另一个线程虽然可以搞定，但是你可以这么想，如果你把背景音乐程序
独立出来，那么这个东西可以在其他程序中使用，而不用移植代码和编译。
另外，即使用另一个线程播放，在程序处理量大时也会出问题，如
你用shellexec打开另一个大的exe文件时。

 

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-04

• #10

我只想发部出去一个exe文件，否则的话我就可以直接打开放在磁盘上的文件了[]

 

Z

zhang_yz6666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-04

• #11

帮你顶！！！

 

S

sgzc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-04

• #12

你不要做两二进制资源，还是不会从资源读取？

 

千

千晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-18

• #13

thX