高手都去那了？？？？？？？1000分奉上，有人答吗。

[hyqwater]

请举一例子：
用midistreamopen、midistreamout等Api函数播放一段midi音乐。

delphi6.0下要能调试通过的。


我问了第三次了，还是没有人答。高手都去那了？？？？？？？
能通过的决不吃言。

[knock]

我昨天看过，《win32程序员指南》上的，有现成源码。可没光盘，我不想打字啊。。。。。。

[耙子]

有等的时间看着帮助早写出来。

[王集鹄]

http://www.fnl.nl/ct-nl/archief1997/ct9711/listings/dphi1.txt
仅供参考～～

[SilveryFox]

多媒体编程中有的是呀，找找看

[gcd0318]

自己搜索一下，很多编程站都有这样的例子
有了CSDN也不能助长懒惰的坏风气

[CloneCenter]

同意楼上观点，实际上 Delphi 的帮助和 MSDN 的内容可以解决 CSDN 上大家提出的绝大多数问题。

[SilveryFox]

mediaplay1.devicetype:=dtsequencer;
mediaplay1.filename:=filename;
mediaplay1.open;
mediaplay1.displayrect:=rect(,,,,,);
mediaplay1.frames:=1;
mediaplay1.step;

[qiandeng]

感情是楼主自己懒,想吃现成的啊

[hyqwater]

各位，本人不是赖，我试了一天了，还不成功，用midioutshortmsg可以，但用
midistreamout总不成功。



streamTrack.Clear;

MidiDataToStream;//转换一条音轨


htrack.lpData:=streamTrack.Memory; //streamTrack
//为TmemoryStream型， 我把midi的数据转换成midi事件后存在里面。

htrack.dwBufferLength:=streamtrack.Size;
htrack.dwBytesRecorded:=streamtrack.Size;
htrack.dwFlags:=0;

car_err:=midiOutPrepareHeader(hstream,@htrack,sizeof(TMidiHdr));

if car_err<>MMSYSERR_NOERROR then
begin
Application.MessageBox(pchar('错误代码：'+vartostr (car_err)),'midi输出设备错误！');
exit；
end;

car_err:=midiStreamOut(hstream,@hTrack,sizeof(TMidiHdr));
if car_err<>MMSYSERR_NOERROR then
begin
Application.MessageBox(pchar('错误代码：'+vartostr(car_err)),'midi输出设备错误！');
exit;
end;

midiStreamRestart(hstream);


究竟哪里出了问题？？？？