文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 88
阅读 9
收藏 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
深圳
程序员
厚积薄发,丰富的公用类库积累,助你高效进行系统开发(7)-----声音播放、硬件信息、键盘模拟及钩子、鼠标模拟及钩子等设备相关

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

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

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

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

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

双月通天
2016/11/08
69
0
盛大开源软件一览表

盛大近日发布了一开源项目网站SNDACode,开源项目列表如下: ACode2Html AndroidHelper bambook ComoJS DelphiDASM DHibernate EasyAndroidInstaller framework Jscex Let's Go MPQEditor Re......

老枪
2011/05/13
9.3K
18
Chrome 43 beta 发布,支持 Web MIDI

Chrome 43 beta 发布,支持 Web MIDI ,并提高了安全性能和兼容性。还变化或更新了一些小技巧,使开发人员能够构建更强大的 web 应用程序。 新增功能: 支持互联网和 MIDI 设备的互联 新增 ...

oschina
2015/04/17
3.3K
13

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JS:异步 - 面试惨案

为什么会写这篇文章,很明显不符合我的性格的东西,原因是前段时间参与了一个面试,对于很多程序员来说,面试时候多么的鸦雀无声,事后心里就有多么的千军万马。去掉最开始毕业干了一年的Jav...

xmqywx
今天
0
0
Win10 64位系统,PHP 扩展 curl插件

执行:1. 拷贝php安装目录下,libeay32.dll、ssleay32.dll 、 libssh2.dll 到 C:\windows\system32 目录。2. 拷贝php/ext目录下, php_curl.dll 到 C:\windows\system32 目录; 3. p...

放飞E梦想O
今天
0
0
谈谈神秘的ES6——(五)解构赋值【对象篇】

上一节课我们了解了有关数组的解构赋值相关内容,这节课,我们接着,来讲讲对象的解构赋值。 解构不仅可以用于数组,还可以用于对象。 let { foo, bar } = { foo: "aaa", bar: "bbb" };fo...

JandenMa
今天
1
0
OSChina 周一乱弹 —— 有人要给本汪介绍妹子啦

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享水木年华的单曲《中学时代》@小小编辑 手机党少年们想听歌,请使劲儿戳(这里) @须臾时光:夏天还在做最后的挣扎,但是晚上...

小小编辑
今天
18
4
centos7安装redis及开机启动

配置编译环境: sudo yum install gcc-c++ 下载源码: wget http://download.redis.io/releases/redis-3.2.8.tar.gz 解压源码: tar -zxvf redis-3.2.8.tar.gz 进入到解压目录: cd redis-3......

hotsmile
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部