FileWriter_OggVorbis オブジェクト

オブジェクトの作成メソッド: Application.CreateFileWriter

Ogg Vorbis ファイルを作成するオブジェクト。

---

■プロパティ

CodecFormat (object)

使用する圧縮フォーマット。これにオブジェクトを代入することでフォーマットを設定。

CodecInfo (object)

圧縮フォーマット情報を持つオブジェクト。

MaxBitrate (int)

上限ビットレート (bps)。0 なら指定なしの意。

MinBitrate (int)

下限ビットレート (bps)。0 なら指定なしの意。

---

■メソッド

Process

圧縮ファイルを作成します。

---

■ファイル作成の手順

ファイル作成の手順はおよそこのようになります:

1. 入力 SoundClip オブジェクトを作成する。
2. 必要なら SoundClip.Labels, SoundClip.Text を変更する。
3. FileWriter_OggVorbis オブジェクトを作成する。
4. 圧縮フォーマット (CodecFormat) のリストを取得する。
5. FileWriter_OggVorbis.CodecFormat プロパティに選んだフォーマットをセットする。
6. FileWriter_OggVorbis.Process メソッドを実行する。

例 (JScript)

// 入力音声 (選択範囲)
var clip = Application.ActiveDocument.CreateSoundClip();
// FileWriter_OggVorbis オブジェクトを作成する.
var writer = Application.CreateFileWriter("oggvorbis");
// 適当な圧縮フォーマットを選ぶ.
var fmts, i;
writer.CodecInfo.IsVBR = true;
fmts = writer.CodecInfo.GetCodecFormats(44100, 2);
fmts = fmts.toArray();
for (i in fmts) {
    if (fmts[i].Quality == 40) {
        // フォーマットをセットする.
        writer.CodecFormat = fmts[i];
        break;
    }
}
// ファイル作成
writer.Process(clip, "D:\\Sound Output\\test1.ogg");

例 (VBScript)

Dim clip, writer, fmts, f
' 入力音声 (選択範囲)
Set clip = Application.ActiveDocument.CreateSoundClip
' FileWriter_OggVorbis オブジェクトを作成する.
Set writer = Application.CreateFileWriter("oggvorbis")
' 適当な圧縮フォーマットを選ぶ.
writer.CodecInfo.IsVBR = True
fmts = writer.CodecInfo.GetCodecFormats(44100, 2)
For Each f In fmts
    If f.Quality = 40 Then
        ' フォーマットをセットする.
        writer.CodecFormat = f
        Exit For
    End If
Next
' ファイル作成
writer.Process clip, "D:\Sound Output\test1.ogg"