文档章节

捕捉 midi 输入消息的基本程序

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 88
阅读 16
收藏 0

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;


参考: http://msdn.microsoft.com/en-us/library/ms709430(VS.85).aspx

本文转载自:http://www.cnblogs.com/del/archive/2011/10/31/2230442.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Sound — An API for playing sound data from applications.

https://docs.oracle.com/javase/tutorial/sound/index.html The Java Sound API is a low-level API for effecting and controlling the input and output of sound media, including both ......

祖冲之
12/11
0
0
厚积薄发,丰富的公用类库积累,助你高效进行系统开发(7)-----声音播放、硬件信息、键盘模拟及钩子、鼠标模拟及钩子等设备相关

俗话说,一个好汉十个帮,众人拾柴火焰高等都说明一个道理,有更多的资源,更丰富的积累,都是助你走向成功,走向顶峰的推动力。 本篇继续继续整理优化已有的共用类库,并继续发表随笔介绍公...

长平狐
2012/08/22
80
0
厚积薄发,丰富的公用类库积累,助你高效进行系统开发(7)-----声音播放、硬件信息、键盘模拟及钩子、鼠标模拟及钩子等设备相关

俗话说,一个好汉十个帮,众人拾柴火焰高等都说明一个道理,有更多的资源,更丰富的积累,都是助你走向成功,走向顶峰的推动力。 本篇继续继续整理优化已有的共用类库,并继续发表随笔介绍公...

长平狐
2012/06/11
113
0
【HttpClient】HttpClient总结一之基本使用

最近工作中是做了一个handoop的hdfs系统的文件浏览器的功能,是利用webhdfs提供的rest api来访问hdfs来与hdfs进行交互的,其中大量使用HttpClient,之前一直很忙,没什么时间来总结,今天闲下...

双月通天
2016/11/08
69
0
虚拟管风琴--jOrgan

jOrgan是一个Java开发的虚拟管风琴。让您使用电脑作为一个功能齐全的管风琴。它可以采取各种基本的MIDI键盘和控制的输入,并将其转化为高级别复杂且相互关联的控制功能和输出。 功能和特点 ...

匿名
2008/12/07
580
0

没有更多内容

加载失败,请刷新页面

加载更多

deepin中配置robot framework环境

本文永久更新地址:https://my.oschina.net/bysu/blog/2989005 【若要到岸,请摇船:开源中国 不最醉不龟归】 1.在终端中输入pip,回车,如果提示没有该命令,则先安转pip sudo apt-get inst...

不最醉不龟归
15分钟前
1
0
OSChina 周日乱弹 —— 钱不还,我就当你人不在了

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享Bigleaf的单曲《小鹿》 《小鹿》- Bigleaf 手机党少年们想听歌,请使劲儿戳(这里) 周日在家做什么? 做手工呀, @poorfis...

小小编辑
今天
74
3
EOS docker开发环境

使用eos docker镜像是部署本地EOS开发环境的最轻松愉快的方法。使用官方提供的eos docker镜像,你可以快速建立一个eos开发环境,可以迅速启动开发节点和钱包服务器、创建账户、编写智能合约....

汇智网教程
今天
20
0
《唐史原来超有趣》的读后感优秀范文3700字

《唐史原来超有趣》的读后感优秀范文3700字: 作者:花若离。我今天分享的内容《唐史原来超有趣》这本书的读后感,我将这本书看了一遍之后就束之高阁了,不过里面的内容一直在在脑海中回放,...

原创小博客
今天
29
0
IC-CAD Methodology知识图谱

CAD (Computer Aided Design),计算机辅助设计,指利用计算机及其图形设备帮助设计人员进行设计工作,这个定义同样可以用来近似描述IC公司CAD工程师这个岗位的工作。 早期IC公司的CAD岗位最初...

李艳青1987
今天
33
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部