主题：高手请进
lzl1403
[专家分：1670] 发布于 2005-08-02 17:22:00
怎样用pascal播放mid音乐？
回复列表 （共16个回复）
11 楼
stuart920106 [专家分：730] 发布于 2005-08-06 11:44:00
program musicprogram (songfile);
uses music;
var
songfile:text;
octave,note,duration:integer;
begin
assign(songfile,'song1.dat');
reset(songfile);
while not eof(songfile) do
begin
readln(songfile,octave,note,duration);
play(octave,note,duration);
end;
close(songfile);
end.
12 楼
MagicG [专家分：650] 发布于 2005-08-06 13:46:00
这是什么啊?看不懂诶?..`
13 楼
lzl1403 [专家分：1670] 发布于 2005-08-06 22:19:00
多谢各位，不过我问的是怎样直接读取Mid格式的文件然后播放
14 楼
weiyulan [专家分：50] 发布于 2005-08-06 23:19:00
[em6]
pascal的单元好象不支持也
毕竟pascal是dos的啊
15 楼
MagicG [专家分：650] 发布于 2005-08-08 08:55:00
早这样说嘛````
害我激动了``诶```
16 楼
闪电123 [专家分：470] 发布于 2005-08-08 11:37:00
QB可以。。。。
那程序运行后可以生成MID文件。。
居然是美国乡村小曲。。。。。。
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 高手请进