国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

取得WAV文件信息

2019-11-18 17:37:20
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
WAV文件基本信息包括如是否立體聲，采樣頻率等。
聲明：
PublicConstRIFF_ID=1179011410
PublicConstRIFF_WAVE=1163280727
PublicConstRIFF_FMT=544501094
'TypicalheaderofasimpleRIFFWAVEfile
PublicTypeWAVInfo
Riff_FormatAsLong
chunk_sizeAsLong
ChunkIDAsLongfmtAsLong
Wave_FormatAsInteger
ChannelsAsInteger'0=單聲道,1=立體聲
SamplesPerSecondAsLong
AverageBytesPerSecondAsLong'11.025kHz,22.05kHz,等
BlockAlignAsInteger'Sizeofblocksforlowlevelplayback
EndType
函數(shù)：
PublicFunctionGetWaveInfo(ByvalfilenameAsString,ByrefwAsWAVInfo)_
AsBoolean

DimffAsInteger
ff=FreeFile

OnErrorGoToehandler
OpenfilenameForBinaryaccessReadAs#ff

OnErrorGoToehandler_fo
Get#ff,,w
Close#ff

OnErrorGoToehandler

Ifw.Riff_Format=RIFF_IDAndw.ChunkID=_
RIFF_WAVEAndw.fmt=RIFF_FMTThen

GetWaveInfo=True
Else
GetWaveInfo=False
EndIf

ExitFunction

ehandler_fo:
Close#ff
ehandler:
GetWaveInfo=False
EndFunction->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 竹溪县| 壶关县| 田林县| 周至县| 丹东市| 长丰县| 丰城市| 祁门县| 长汀县| 永泰县| 志丹县| 湘西| 大田县| 西充县| 综艺| 澄城县| 万宁市| 望谟县| 册亨县| 海阳市| 宜丰县| 萨嘎县| 安西县| 锡林郭勒盟| 彭州市| 葫芦岛市| 乌拉特中旗| 广元市| 满城县| 景东| 长汀县| 来安县| 阳城县| 寿阳县| 济南市| 海阳市| 嘉黎县| 凤凰县| 兴城市| 清水县| 交口县|