说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB取得 WAV 文件信息

HTML文档下载 WORD文档下载 PDF文档下载
VB取得 WAV 文件信息

WAV 文件基本信息包括如是否立体声,采样频率等。
声明:
Public Const RIFF_ID = 1179011410
Public Const RIFF_WAVE = 1163280727
Public Const RIFF_FMT = 544501094
'Typical header of a simple RIFF WAVE file
Public Type WAVInfo
Riff_Format As Long
chunk_size As Long
ChunkID As Long fmt As Long
Wave_Format As Integer
Channels As Integer '0 = 单声道, 1 = 立体声
SamplesPerSecond As Long
AverageBytesPerSecond As Long '11.025kHz, 22.05kHz, 等
BlockAlign As Integer 'Size of blocks for low level playback
End Type
函数:
Public Function GetWaveInfo(Byval filename As String, Byref w As WAVInfo) _
As Boolean

Dim ff As Integer
ff = FreeFile

On Error GoTo ehandler
Open filename For Binary Access Read As #ff

On Error GoTo ehandler_fo
Get #ff, , w
Close #ff

On Error GoTo ehandler

If w.Riff_Format = RIFF_ID And w.ChunkID = _
RIFF_WAVE And w.fmt = RIFF_FMT Then

GetWaveInfo = True
Else
GetWaveInfo = False
End If

Exit Function

ehandler_fo:
Close #ff
ehandler:
GetWaveInfo = False
End Function

用VB5开发商品软件的经验谈 用VB5设计多功能计时器 用VB5制作文字上卷效果 用VB6.0实现打字效果 用VB编写DirectX7.0游戏(上) 用VB创建Excel报表 用VB读取和控制Windows的中文输入法 用VB将命令行软件Windows化 用VB进行移位操作 用VB开发CAI软件的小经验 用VB开发分布式应用 用VB切换三个特殊键 用VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB 用VB实现动态显示操作进度程序 用VB实现双向循环链表 用VB实现用户登录密码的修改 用VB与MS-Draw开发通用作图软件 用VB制作TopMost类型窗口 用VB制作Windows风格安装盘 用Visual Basic 6创建基于MTS的商务组件 用Visual Basic实现Windows的重启动 VB用Windows管理技术做你的应用程序 VB用程序给标识字段(ID)赋值的一种简单实现方法 VB用自己的'PROGRAM'测试自己的电脑 有 BitMap 之Menu -VB资料 运行其他程序,并等待执行完毕 -VB资料 再谈VB程序的加密 在 VB 程序中如何设定 Mouse 光标的位置? 在ActiveX DLL工程中慎用App对象-VB资料 在ActiveX控件工程中设置DataField属性-VB资料 在VB中异步执行程序 关于oracle 配置的问题 Oracle数据库实例和数据文件的问题求助 调查:各位用Lotus开发的时候,对源码如何做版本控制的?效果如何? 请问各位高手现在业界对工作流与电子工单有没有统一的标准? 动态生成STATIC 文本框,把里面的文字都加上下划线,怎么做? 有什么好的类似于QQ的局域网通讯程序???可支持WIN98及WINXP间的通讯!!! 我快晕了,急救! 低手勿入,高手请进,剧难??? 一个程序调试中产生的问题 -------数据接收和发送模式的问题!(非资深程序员勿入)100分只给答的最好的 求救!关于坐标系转换问题 现在很多邮件服务器要身份验证,ASP.NET(C#)的SMTPMAIL类有设置身份验证和密码的属性吗? 怎么在基于对话框的程序中加入一幅bmp作为底图? 刚学java,碰到一问题,请 有空进来看看 showMessageDialog的使用问题 disable mainmenu控件的某个subitem怎样实现 哈哈,需要短信网关IP地址及其源代码的快来顶一下。 sybase12.0安装时的问题??? 怎么样能用asp编写使得IE打开pdf文件?在查询后怎样还能在查询的输入框里面保留查询的输入? 如何使用TreeView进行分级管理 触发器的效率问题! 寻求解决方案 组件刷新问题,UP有分 请问 虚拟目录 和 WEB站点 有什么区别? DBEXPRESS的问题!很简单 请问那里有支持中文好的jsp开发的webmail下载?很急!谢谢大家了! 我如何在程序中切换输入法 怎么把一个COleDateTime类型的变量转成time_t类型(long型)变量? 结构成员这样定义 WCHAR bString[0]; 长度为0有意义吗? 关于DLL中的函数 如何动态分配指针数组? 哪里有关于delphi多线程资料下载? 急!!!SQL2000数据库IMAGE图象数据的存取?????? 这个存储过程怎么写? D7中的这个怎不见了啊-----急急 为什么只能传递两个汉字?有解决的办法吗? 关于DLL文件中的函数 lotus菜鸟请求急就!!!!!!!! 如何动态分配指针数组? 怎样实现点击按钮,将光标所在行的某列参数传到另一个form,显示出另一个表的某条相关记录? 这句话到底有什么含义??? T-SQL连接字符串的操作符号是? 问一个送分问题。 如何得到驱动器信息? (腊肉)欢迎讨论:简体、繁体同界面显示问题 請問在水晶報表里怎樣實現這樣的設計 谁有校友录? 欢迎讨论:简体、繁体同界面显示问题 用VB写了Lable控件,但不知如何把背景是否透明的属性加入 这堆警告是什么意思? 关闭API函数? 急问吡啶和顺丁烯二酸酐能反应吗?请问顺丁烯二酸酐和吡啶能反应吗? 为什么单缝衍射试验中缝越窄条纹数越多?(请给出数学推导,) 古代的人喝什么水?3Q我个人觉得古代的人大部分喝矿泉水,那时候环境资源没怎么开发,大部分喝山泉,溪水,河水,这些水中都含有一定的矿物质! 在三氯化铝存在下,吡啶与乙酸酐作用生成的产物主要是什么? 泊松亮斑和单缝衍射1.这个亮斑为什么可以说明光有波动性?为什么它是衍射形成的呢?(书上讲的实在没理解)2.单色光单缝衍射时,中间条纹最亮最宽没错,为什么两侧条纹会变窄?3.有关单缝 为什么水永远都喝不腻呢?3Q 实物证据最能够证明的认定是()A存在性B完整性C所有权D计估 关于单缝衍射的疑问单缝衍射可以用传统学说(阵列波面法)解释,但是我有一个疑问,就是波是在不断向前运动的,这一瞬间波峰恰到达屏,下一瞬间就是波的其它部分甚至波谷到达屏,那么它 为什么咪唑比吡啶碱性强? 某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g,完全反应后,称得剩余...某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g 什么是静压水池 浇花用水怎么选听大家说慎重选择浇花用水很重要,比如说找一瓶子里面放入蛋壳 馒头渣 剩下的饮料 果肉等等 倒入水放置一段时间取其上清液浇花这样好吗 直接把上清液倒入花盆吗?还需要 实验室加热氯酸钾和二氧化锰的混合物共15g制取氧气,待反应完后,冷却称得固体物质10.2g,计算:(1)制得氧气多少克?(2)原混合物中含氯酸钾多少克?(结果精确到0.01) 如果有一只苍蝇落入你的水杯中,你会怎么办? 测气相色谱时使用溶剂必须是色谱纯吗? 为什么氮气中两个氮原子成键是成3个共用电子对? 静压水池向下供水400米处水压是多少 高效液相色谱专用的色谱纯溶剂可以用于气相色谱吗? 共用电子对的形成共用电子对是因为一个原子容易失去电子,另一个容易得到电子(出自百度百科),那么为什么不会形成两个离子而形成了共用电子对呢?两个相同的元素也会形成共用电子对, 最不利配水点与贮水池最低工作水位的静压差怎么算谢谢 气相色谱测定残留溶剂能用稀硫酸吗 化妆品微生物基础知识 在建筑图中有一个房间 叫静压室,它是做什么用的房间? 杂交育种的看图一就行了经过a、b、c过程,后代中矮杆抗病植株中不能稳定遗传的占2/3这句话是否正确我算来算去都不是.好的再加分,我关于F2代的计算结果和你一样但F3的和你不一样,你看看 化妆品微生物欧盟标准求助,化妆品中微生物检测,欧盟与美国的标准? 将15g氯酸钾,二氧化锰混合物加热至无氧气放出 固体质量为10.2g 原混合物中氯酸钾质量分数是多少 高一生物 杂交育种至少要4年?为什么?怎样算一年?解释下/ 如何控制化妆品微生物超标 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和SB请绕开 培育矮秆抗锈病小麦新品种的方法如下:纯种的高秆(D)抗锈病(T)×纯种的矮秆(d)易染锈病选出符合要求的品种.下列有关该育种方法的叙述中,正确的是 [D ] A.过程3为单倍体育种B.过程 如何净化浑浊的自来水,自来水浑浊(水锈)无沉淀.净化后营养会流失么. 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和 求一段数据的总和 死细胞的细胞膜的透过性死细胞的细胞膜是全透性还是失去透过性? 如图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里呢? 测量结果的表示方法 死细胞细胞膜具有全透性的原因没有了蛋白质运输,为什么反而能通过呢 右图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里 线桥法,如果碰到有共用电子对的物质该怎么办? 细胞膜皱缩会使细胞死亡吗?会丧失半透膜的性质吗? 微生物源有毒物质及其毒性效应是什么? 是否存在四对共用电子对的物质?大家知道氮N≡N 有三对共用电子对,所以性质很稳定,那是否存在四对的那? 单缝衍射问题平行单色光垂直入射于单缝,得到一组夫琅禾费衍射条纹,若将缝宽扩大3/5倍,则原第二级明纹的位置变为第_级_答案是第四条暗纹.但最后得到k=16/5 不应该是第三条明纹吗 是不是所有的有毒物质都是微生物构成的? [普通化学]下列全部用共用电子对成健的物质是A>NaOHB>NH4Clc>BF5d>NaCl 求所有有机基本结构的名称,最好有化学结构式.如:呋喃、吲哚、吡啶、哌啶……等等等等,要全面. 微生物如何除去水中有毒物质 单线桥法,如果碰到有共用电子对的物质该怎么办? 嘌呤的标准值是多少? 有毒物质( )叫做食物链的()作用,产生原因有毒物质1()2() 共用三个电子对且形成气态物质是N2吗 把execl里面的所有数字 统一乘以一个数?如图 一种离子能在细胞膜中运输取决于 手机电子证书是什么意思 哪些因素影响细胞膜的完整程度 自来水浑浊里面含有什么物质啊,喝了有什么危害? 国外科学家是怎么证明神的存在的? 温度对细胞膜通透性影响的原因请问温度对细胞膜的通透性的影响是什么原因?是只改变蛋白质的活性,还是还对其他膜上物质有影响?例如磷脂双分子层而且我听说在高温下,磷脂分子之间会 什么叫做一对共用电子对 怎么投水自尽 么水不可以喝拜托各位了 3Q 奥巴马以“不知情”回应窃听风波 政客美华人五口被害:嫌犯曾与被害家庭争吵男子头戴丝袜闯婚礼震惊来宾 抢走数千杰克逊私人医生穆雷提前出狱 歌迷不满中国:联合国的钱应该多花在发展领域新加坡南洋理工大学设翻译奖学金饭店代金券酷似人民币 律师:此行为违调查显示:超七成被调查者“吃错药”人民日报谈教育实践活动:部分干部只说零容忍:数字解读反贪报告关键词山西大同浑源县回应:山体被挖处距悬空北京自住房摇号选房将出细则 京市户籍广东省应急委成员调整 朱小丹任主任\"不计划生育连饭碗都不给了?\"—(今日海外言论10月29日)军事手段欧洲西部多国遭飓风袭击 已致至少13摩洛哥举办中国电影周 《搜索》等7部美国华人不满ABC道歉 或采取更大规安倍出访土耳其 称海底隧道是日土友好澳维持禁止华为参与宽带网络项目 华为第二届世界浙商大会青田分会举行 共谋加大扶持力度 善于因地制宜全国三百名专家 探讨“杜甫与地域文化宁泽涛再破百米自由泳亚洲纪录成都市党的群众路线教育实践活动总结大出差不要求必须入住定点饭店消费者节约食品意识明显增强话剧《活在阳光下》 以人民为中心的天府新区直管区首条有轨电车线路规划出成都市第十届老年大学运动会开幕西南首创 残障少年与马儿亲密互动沪深两市涨跌互现群众工作群众做 30天实现100%签中国证监会与香港证监会签署沪港通监管明年起各高级人民法院全部实行月度新闻2015年度全国党报党刊发行工作视频香港警方清除旺角“占中”路障恢复交通古蜀再发现 三星堆众神归位以人民为中心 创作时代精品沪港通引来活水 券商股走牛值得期待iPhone 6上市首日引发抢购热潮警官当模特 卡通形象可爱亲切
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘