网页功能: 加入收藏 设为首页 网站搜索  
取得 WAV 文件信息
发表日期:2003-07-21作者:[] 出处:  

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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 取得 WAV 文件信息
本类热点文章
  颜色转换函数(RGB、HSB、CMYK、Lab)
  MCI命令详解
  不装RealPlayer播放RM文件
  在VB中显示动画鼠标图标
  在VB6.0中播放GIF动画
  用VB实现队列播放MP3
  怎样检查声卡的存在
  怎样在VB中播放Flash动画
  制作自己的MP3播放器
  在我们的程序中让电脑说英语
  在VB中用API实现多媒体
  基于VB算法+Picture+Timer控件制作的39..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00429