.wavファイルぶんかつさん

Delphi 6 Personal の練習で、wavファイルの無音部分を検出して、ファイルを分割するものを作ってみたです。

スターデジオなんかのラジオ放送から録音した、１時間とか２時間とかの.wavファイルを、曲ごとに分割するのに便利です。

使い方

“開く”ボタンを押すと、ファイルオープンダイアログが出てくるので、元になる.wavファイルを選択します。

その後、“start”ボタンを押すと処理が始まります。終わるまで待っててください。

以上ですのです。

memo

出力ファイル名は、入力ファイル名に16進で数字を付加したものになります。（wave_0001.wav,wave_0002.wav .. wave_000F.wav,wave_0010.wav）
出力ファイル名を変更したい場合は、出力って書いてあるエディトボックスで変更できます。
うまく分割できない場合は、無音レベルと無音長を変更して分割する条件を調整できます。
無音レベルは、どのくらいの大きさの音以下を無音と判断するかを、0.1%単位で指定します。（1～1000）
無音長は、無音がどれくらい続いたらファイルを分割するのかを、0.1秒単位で指定しますです。（１～100）

04/14 プロジェクト一式にソースが入っていなかったので修正

04/21 注意書きの対応フォーマットの記述が間違っていたので修正

('A`)