盒子论坛 v2.1

以下是delphi调用api播放MIDI音乐，程序运行正常，我的问题是如何建立资源文件使得生成的程序直接包含MID文件，而不需要再调用磁盘上的E:\lion.mid文件。我知道这是一个低级问题，但不清楚这个过程怎么做？希望大家不吝指教！谢谢！

procedure TForm1.Button1Click(Sender: TObject);
begin
  //uses mmsystem
  //播放音乐
  MCISendString('OPEN E:\lion.mid TYPE SEQUENCER ALIAS NN', ', 0, 0);
  MCISendString('PLAY NN FROM 0', ', 0, 0);
  MCISendString('CLOSE ANIMATION', ', 0, 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //停止播放
  MCISendString('OPEN E:\lion.mid TYPE SEQUENCER ALIAS NN', ', 0, 0);
  MCISendString('STOP NN', ', 0, 0);
  MCISendString('CLOSE ANIMATION', ', 0, 0);
end;
----------------------------------------------
-

作者：

marron (FoxMarron)	★☆☆☆☆	-
	盒子活跃会员

2004/3/19 8:29:54

1楼：

可以把它做成资源文件,然后使用时调用,编译进EXE就可以了
----------------------------------------------
∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴
          别人笑我太疯癫，
          我笑他人看不穿。
          不见武林豪杰墓，
          无花无酒锄作田。
∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴∵∴

作者：

royal_longer (笑霸王)	★☆☆☆☆	-
	普通会员

2004/3/19 9:23:58

2楼：

可以把它做成资源文件,然后使用时调用,编译进EXE就可以了

能不能说详细点？？谢谢！

这个我也想知道。。。。。。
----------------------------------------------
-

作者：

zjx1111 (浮云)	★☆☆☆☆	-
	盒子活跃会员

2004/3/19 15:35:15

3楼：

呵呵，没有人回答，是我的问题太菜？还是太烂。

我已经做完的工作

myres.rc脚本文件内容：MYMID MIDI LION.MID
经过brcc32.exe编译的res资源文件名为：myres.res
已在声明中包含了res资源文件如：
{$R *.dfm}
{$R myres.res}

可我始终没有解决在下面的两个MCI函数中正确的提取这个资源文件内容，将1楼的前两个语句改成如下，编译通过，没提示错误，但就是不玩活儿。将最后一个0改为hinstance资源标识符也不行，晕，请高人指点。

MCISendString('OPEN mymid TYPE SEQUENCER ALIAS NN', ', 0, 0);
MCISendString('PLAY NN FROM 0', ', 0, 0);

----------------------------------------------
-

作者：

zjx1111 (浮云)	★☆☆☆☆	-
	盒子活跃会员

2004/3/19 21:52:10

4楼：

忘了说了我用的是delphi6.0，关于上面的问题，请高手指点一二，另外，还有多少种方法可以背景播放mid音乐。
----------------------------------------------
-

作者：

root_lh (Lhxs)	★☆☆☆☆	-
	盒子活跃会员

2004/3/20 0:06:54

5楼：

我支持四楼那位仁兄
----------------------------------------------
中流一壶，千金争挈。宁为铅刀，毋为楮叶。错节盘根，利器斯别。识时务者，呼为俊杰！

信息

登陆以后才能回复