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

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

提升网站转化率的四步优化方案 开发者应该了解的API技术清单! 【讲师】腾讯刘永峰:Docker时代,公有云面临的挑战和机遇 移动开发工具服务商Mob推出免费短信验证码SDK 遇见他们,MDCC 2014移动开发者大会嘉宾揭秘 winsock能实现ftp连接吗? 怎样让窗体贴到桌面上? RenameFile有时不能更改文件名和目录名,急!!! 求教!ftp服务器 装了AD之后,看不到局域网中的工作组电脑`~~ 如何让一个页面自动执行一个url?? 有关视图的问题,在线等。 请教前辈! 请问怎么连接两个BSTR。 我认为自己承受的压力到了极限怎么办我是一个单身女人 心里压力到了极限该怎么办?被强迫做自己不还不想做的 赛尔号该隐的能力极限我28个体的该隐.胆小性格,特 赛尔号的提姆提姆该刷什么呢?它的极限数据是多少? limx趋于0 ((1+x)^(1/x)-e)/x 求该函数的极限 设abc为三角形ABC三边,对任意实数x,f(x) 一个人可以承受的有极限吗?如果有,到了极限会怎么样 我是不是已经到了贫民的极限了?远古异界外任何图无压 各省区市通报违反八项规定典型 多涉违“中国西藏文化周”在德国柏林开幕 俞冷空气今晚降临杭城 早出晚归的人出门柳岩顶寒风爆乳露背装性感出席优雅盛典众女星冒零度严寒抛胸露背出席优雅盛典寒风阵阵\"小雪\"来临 \"温暖清申城计划建最高寿老人照片墙 免费为老冬虫夏草协会专家支招:如何辨别虫草\11岁出走女孩牵动\"申城心\" 百向明中学校长到郊区学校当\"顾问\"阴阳修仙动漫乱入者变星圣魔永生图孤影映岳风缠雾报国寺旅游灵岩塔旅游灵岩山寺旅游可园旅游苏州公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘