Waveファイルを作成する(その2)

ここでは任意の秒の無音データをWaveファイル(PCM,44,100 kHz, 8 ビット, モノラル形式)で保存します。



■使用するAPI関数

■使用するコンポーネント

■その他

■ソースは下記のようになります。追加している部分は青色です。

■無音データのWaveファイルを作成する処理
procedure TForm1.Button1Click(Sender: TObject);
begin
 //デバイスオープン
 mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS WAVEFILE', nil, 0, Handle);
 //Waveフォーマットを記入
 mciSendString('SET WAVEFILE TIME FORMAT MS '+
         'BITSPERSAMPLE 8 '+
         'CHANNELS 1 '+
         'SAMPLESPERSEC 44100 '+ 
         'BYTESPERSEC 44100',
           nil, 0, Handle);
 //録音開始  
 mciSendString('RECORD WAVEFILE', nil, 0, Handle);
end;

procedure
TForm1.Button2Click(Sender: TObject);
begin
 //録音停止
 mciSendString('STOP WAVEFILE', nil, 0, Handle)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 //保存
 mciSendString(PChar('SAVE WAVEFILE ' +'C:\Windows\デスクトップ\花ちゃん.wav'), nil, 0, Handle);
 //デバイスを閉じる 
 mciSendString('CLOSE WAVEFILE', nil, 0, Handle)
end;





Win32 APIのページへ



ホーム PV ランキング