文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 88
阅读 13
收藏 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
MusE 2.0 发布,Linux 的虚拟演播室

MusE 2.0 发布,该版本新增分数编辑器、项目对话框和新的 MIDI 编辑对话框,对已有的功能也做了不少的改进。 MusE 是一个多轨的Linux虚拟演播室。它支持在一个集成的环境中实时MIDI和音频实时...

oschina
2012/07/02
700
0

没有更多内容

加载失败,请刷新页面

加载更多

windows下Git BASH安装

1.从git官网下载一个git安装包,官网下载地址https://www.git-scm.com/downloads 2.双击安装程序,进入欢迎界面点击【Next >】...》finish 3.空白处点击鼠标右键选择Git Bash Here或点击开始...

15834278076
26分钟前
2
0
strpos

一、前方有坑 php某些自带函数,如果使用不当,也会坑得你人仰马翻。比如:strpos() 先了解一下strpos()函数是干啥的。 strpos — 查找字符串首次出现的位置 用法: int strpos ( string $hay...

dragon_tech
29分钟前
1
0
Spark DAG概述

一、 DAG定义 DAG每个节点代表啥?代表的一个RDD 这里再次复习RDD的5大特性 一组分片(Partition),即数据集的基本组成单位。对于RDD来说,每个分片都会被一个计算任务处理,并决定并行计算...

张泽立
29分钟前
0
0
防抖和节流

浏览器的一些事件,如:resize,scroll,keydown,keyup,keypress,mousemove等。这些事件触发频率太过频繁,绑定在这些事件上的回调函数会不停的被调用。会加重浏览器的负担,导致用户体验...

tianyawhl
39分钟前
1
0
mysql出现Waiting for table metadata lock的解决方法

查询某一个表时,一直没有显示数据,于是就show processlist; 发现有表已经被锁了,关掉了之前的查询语句可以看到 这时候需要查看未提交的事务 select trx_state, trx_started, trx_mysql_t...

bobway
40分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部