捕捉 midi 输入消息的基本程序
2021/5/1 12:58:07
本文主要是介绍捕捉 midi 输入消息的基本程序,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!
捕捉 midi 输入消息的基本程序
uses MMSystem; var hMidiIn: Integer; procedure midiCallBack(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD; dw1, dw2: DWORD) stdcall; begin case uMsg of MIM_OPEN: ; MIM_CLOSE: ; MIM_DATA: Form1.Memo1.Lines.Add(IntToStr(dw1)); MIM_LONGDATA: ; MIM_ERROR: ; MIM_LONGERROR: ; end; end; procedure TForm1.Button1Click(Sender: TObject); begin midiInOpen(@hMidiIn, 0, Cardinal(@midiCallBack), 0, CALLBACK_FUNCTION); midiInStart(hMidiIn); Caption := IntToStr(hMidiIn); end; procedure TForm1.Button2Click(Sender: TObject); begin midiInStop(hMidiIn); midiInClose(hMidiIn); Caption := '0' end;
这篇关于捕捉 midi 输入消息的基本程序的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-06-19《2023版Java工程师》课程升级公告
- 2024-06-15matplotlib作图不显示3D图,怎么办?
- 2024-06-1503-Loki 日志监控
- 2024-06-1504-让LLM理解知识 -Prompt
- 2024-06-05做软件测试需要懂代码吗?
- 2024-06-0514-ShardingSphere的分布式主键实现
- 2024-06-03为什么以及如何要进行架构设计权衡?
- 2024-05-31全网首发第二弹!软考2024年5月《软件设计师》真题+解析+答案!(11-20题)
- 2024-05-31全网首发!软考2024年5月《软件设计师》真题+解析+答案!(21-30题)
- 2024-05-30【Java】百万数据excel导出功能如何实现