オーディオサンプルレートの変更
皆様のお力をお貸しください。
【環境】
OS:Windows XP
開発環境:VB6.0
現在WAVファイル(16bit,22KHz)のファイルを
16bit 8KHzに変換するものを上記環境にて作成使用としていますが
ネット上を検索しても該当するような情報を検索できませんでしたので質問させていただきます。
以下のような手順にてWAVファイルを再生させることはできましたが
サンプルレートの変更を行うことはできませんでした。
Call mciSendString("open " + 変換元ファイル名称 + " alias f", "", 0, 0)
Call mciSendString("play f", "", 0, 0)
Call mciSendString("set f bitspersample 16", "", 0, 0)
Call mciSendString("set f samplespersec 8000", "", 0, 0)
Call mciSendString("save f " & 変換後ファイル名称, "", 0, 0)
Call mciSendString("close f", "", 0, 0)
このような単純なことではなく、もっと複雑な処理を検討しないと
ならないものでしょうか。
別な方法にてできるものがありましたら、教えてください。
よろしくお願いいたします。
お礼
回答ありがとうございます。さっそく試して、成功でした。改めてありがとうございます。