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

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

回车代替Tab移动输入焦点-Delphi资料 获取Windows临时路径-Delphi资料 获取当前鼠标位置的类名和句柄-Delphi资料 检测存在打印机-Delphi资料 将BMP文件转换为JPG文件-Delphi资料 类似链接的效果-Delphi资料 利用COM技术实现外壳扩展的属性页-Delphi资料 留意DELPHI的命名规则 判断元件有哪一特定的属性-Delphi资料 全局热键-Delphi资料 让自己的程序防破解-Delphi资料 如何查找一个目录下的某些特定的文件-Delphi资料 如何在全屏幕显示一个AVI文件-Delphi资料 删除文本文件中的多余空格-Delphi资料 实现Hint的分行提示-Delphi资料 实现应用程序的文件拖放功能-Delphi资料 死循环的控制权转让-Delphi资料 添加桌面快捷-Delphi资料 统计中英文字个数-Delphi资料 为 应 用 程 序 添 加 口 令-Delphi资料 应用软件加入全面的功能权限控制-Delphi资料 用Delphi编写安装程序 用Delphi实现超级链接 用Delphi实现子目录级的文件查询 用Delphi自制英语复读机 用DEPHI为应用软件建立注册机制-Delphi资料 优化delphi5.0秘籍大曝光 元件的handle的建立-Delphi资料 元件卷动的改进-Delphi资料 在delhpi程序中获取网络资源信息-Delphi资料 在Delphi中操作快捷方式 Win2000下写的程序,在Win98下运行时界面变得惨不忍睹,请问有何办法? 如何在打开一个页面时让一个text文本框获得焦点并不可以选取?急! 感觉什么也不会。。。。。。。 在三层数据库里怎样进行数据查询? 高分求阿克曼函数的非递归算法 关于打印:每次打印都多走一张白纸,为什么?? 大家多帮帮我 请教一个C下的小游戏—九子棋怎么写? <21天学通C++>哪里有下? 请问如何将自己的网页挂到别人的搜索引擎中去! MYSQL和其它的一些大型数据比有什么特色啊? 寻求数据库设计方法 在weblogic7下怎么布置jsp,谢谢,帮我顶顶也给分 在主框架中建立了一个工具条,如何在视中对其进行操作 有戴过隐形眼镜的朋友吗?感觉怎样?我最近配的怎么感觉不舒服? 又快到毕业就业的季节,看看这两道题(c),就当热身如何? 实习了,散点分,大家乐一乐! 在Redhat8.0下关于nv显卡驱动的安装问题 小弟偶现要搞电子地图,请各位推荐推荐有关的书籍,一定给分 怎样检验文本框内是有效的数字 又快到毕业就业的季节,看看这两道题(c),就当热身如何? 如何在VS.net 下编译.cpp文件(非Windows应用) 请问像comp.lang.c++这样的新闻组,我要怎么设置才能上呢? 如何知道mfc程序需要哪些dll文件阿?vc有没有这个功能? 各位好,小弟有一事要问, 错在哪里了? 又快到毕业就业的季节,看看这两道题(c),就当热身如何? 这些是不是b/s模式??为什么?? 决心重新捡起丢下多年的数学,大家祝我好运吧! lj8101(笨笨)请进 !!!可用分不再增加的对策!!! 急,关于SQL查询 请问怎样new一个多维数组? 简单的application高手赐教!小妹急啊,谢谢! net 关于程序接口问题,请高手指教!!! 高手帮忙 我在SQL2000中有个字段类型是SMALLDATE,与CEDIT控件联结后,类型是CTIME,但显示不出? 我该怎么学? 怎样让我的程序运行时,始终在最前面 散分!!!回到CSDN!! 经常在运行屏幕保护时VC6.0 就出现了运行错误 嘻嘻~`问同学借了一台数码相机回家,自已拍了几张房间里的照片.大家有兴趣的就去吧!小A房间大暴光 请众位大侠,能不能强烈的推荐一本关于Delphi入门级的经典著作!谢谢了!推荐者必有分 请教! 关于Win32下的字符串操作 菜鸟提问,估计大家都会,指点一下 为什么我用ie的时候,新打开一个页面,他的还原形式的大小总是最小化的? var oXL = new ActiveXObject("Excel.Application")这句话有什么问题? 高分求算法 如何根据IP来得的到对方的操作系统类型 英语翻译7.Mary wrote an article on _______ the team had failed to win the game.A.why B.what C.who D.that9.—Why does she always ask you for help?—There is no one else _______,is there?A.who to turn to B.she can turn to C.for whom to turn D.for 翻译成英语:当警察到达时,小偷们正从窗口逃出(scramble) 一只成年熊猫每天吃大约10公斤竹子 英语翻译 为卖火柴的小女孩童话剧写几句话做宣传 一道英语选择(初一)There are many apples_____ the tree.A bird______ the tree is eating an apple.A.in,on B.on,in C.in,ay D.to,of此题咋做?请各位说明理由! 关于对《弟子规》信这篇的讲解在企业里需要给员工讲解,启发员工.谁能具体说说该怎么去讲解? 谁会打阿拉伯语的“谢谢”. 我们公司是上海的增值税一般纳税人,国际货运代理行业,收到外地同行的增值税专用发票能抵扣吗? 一道初一的英语选择I_____home____the rain stops1.don't go;until 2.won't go; until Be my best self~Be my best self.不要字面意思~ 成为一般纳税人前取得的增值税专用发票在成为一般纳税人后可以论证抵扣吗? 时间会是治疗创伤的良药吗?拜托各位大神 能再原创一个英语的演讲稿吗,你写过的能再写一个吗.to be the best vs to be my self.please help ...有点急.如果能帮我的话就回复我. 一些关于让自己有自信的英语句子.比如像:Be Yuor Self 时间究竟是不是治疗伤痛的良药?时间是不是能治疗伤痛?忘掉的是不是就一定不会记起?为了她到底值不值得? 思想和观念有什么实质区别. 唐山大地震英文怎么写 比如想一个人我们脑子里就会出现这个人的画面?我想知道这个画面是我们的思维想象出来的?这到底是一种思维还是当时这个画面就真的在大脑里播放呢?比如想象在大海边,就真的出现大海边 英语字母A的正确写法 根据提示词完成对话(英语)初一1.A:What's this?B:__________.(photo)2.A:________?(those)B:They are books.3.A:Is David your brother?B:__________.(no)4.:Well,your family photo is very nice.B:________________!(thank)5.A:Is Gina Mr Cool's daught 思考时你的头脑中是画面还是文字? 英语翻译Kids are welcome to act1 as shopkeepers and shoppers at the supermarket in the Please Touch Museum.Children can learn2 a lot of things here.They can learn the names of things.They can also learn to count3 numbers.They also have to put thi my internet availability may be spotty at best意思 请问人们在思考或者想象的时候头脑中出现的形象(表象)有质量吗?请解释详细一点,谢谢了!我也想了很多,如果表象是有质量的话,那么这个质量是从那里得来的,当表象消失后又会去哪里;若表 英语翻译1.我的表弟个子不高,但有点胖.2.她有一头漂亮的黑发.3.我要一个中碗的鸡肉卷心菜面.4.你要多大码的鞋?5.我的爸爸喜欢看书和下棋. Try my best to be 思考 用头脑 要 我们思考 用头脑 要 我们 融会贯通 和知识 才能 灵活 运用所学到的(连成一句话) 主要写春夏秋冬的气候和适合做什么活动!作文题:My favorite season一楼的你是从天马山跑出来的么?还是你妈忘记给你吃药了?还是你记错了出院的时间? I am at my 关于雪的作文开头? 1.写出单词W( )to our party.My parents piay b( ) in the field.2.写适当的形式these are my _____(parent)she____(be)at the library.they are ________(factory worker)lily___(not can)speak chinese.they are _______(man teacher) I like traveling while my best friend prefers __(be)at home2.It is best to go out of our way ___(make) some western food for our visitors 初一快捷英语完型 亡口月贝凡(打一个字)谜语``` 怎样培养空间想象能力 逻辑思维 观察能力 《弟子规》主要讲的是什么啊 英语翻译这篇作文我要拿去演讲的,可能有些长……多麻烦各位,还是有要求,必须要看要求!1.文章内容要完整,一定要简洁,越短越好,勿有噱头2.翻译后读起来朗朗上口3.语法要正确,语法要正确, 为什么思维不敢去想象 英语完型,Stress is the feeling you get when you’re really worried about something .this is the kind of worry that troubles you for hours,or 21 days.It makes you feel blue,scared or angry.You may find it 22 to eat and sleep,or you might eat and 英语翻译做自己 用英语说是:Be myself 如果没有想象 思维就像什么失去了什么 弟子规主要讲的是感恩吗 Be your presonal best.这句是啥意思? 英语完成对话.(一)A:What time do you ___up?B:On _____?A:Oh,yes.From Monday to friday.B:About 6:00.Then i do some ____.I have___at 6:50 and I___home at 7:20.A:What time do classes____in your school?B:At 7:50.A:But you leave home very____.You 英语初一完型的一空They eat their bread with butter,( )cheese or jam.A.maybe B.beC.mayD.may be Be your persnal best! 仿写句子:没有想象,思维之树就不会开花;没有想象,( );没有想象,( ) 弟子规,主要讲些什么内容? 谁能提供一份卖火柴的小女孩英文版剧本啊.....14个人的..谢叻 没有理想,思维之树就不会开花;没有理想 ,后面怎办?没有理想————————没有理想————————2条急!1分钟急要!1 写雪作文的开头怎么写? 求 卖火柴的小女孩 英语剧本 要搞笑版的 没有想象思维之树就不会开花,后面怎么写? 弟子规是讲什么的我没读过,谁能告诉我这本书是讲什么内容的?大概的主题是什么? 卖火柴的小女孩的剧本,(搞笑版)元旦的时候需要表演节目,大家都想表演卖火柴的小女孩,还是比较搞笑的剧本,需要6个人表演 为什么有些树会开花? 作文,关于雪的开头和结尾给几个范例,再说说怎么能写好. 卖火柴的小女孩英文剧本新编要关于金字塔的,要新奇的 多谢! 初一(下)英语题(一道) 选择Please _______and _________ me about yourself.A、write ,give B、writing,tellC、write,tell D、write,ask 摩肩接踵怎么解释?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘