发表于 2009-1-5 19:48
| 
鍙栧緱WAV鏂囦欢淇℃伅
鍙戝竷: 2008-7-15 14:24 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 16娆
鍙栧緱 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
