Waveファイルを作成する（その２）

ここでは任意の秒の無音データを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 ランキング