国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 鄂托克旗| 衡山县| 安国市| 临沂市| 密云县| 柏乡县| 晋宁县| 治县。| 阿拉善左旗| 昌江| 山东省| 荃湾区| 土默特右旗| 丰顺县| 罗田县| 博兴县| 湾仔区| 罗定市| 侯马市| 白河县| 古蔺县| 南皮县| 鄢陵县| 连山| 恩平市| 二手房| 义马市| 临湘市| 中山市| 客服| 阜康市| 内丘县| 教育| 镇巴县| 邵东县| 四子王旗| 伊宁市| 郑州市| 桐柏县| 安陆市| 奇台县|