Записываем звук в wav

Приветсвую читателей блога!

Сегодня мы будем записывать звук и сохранять его в wav файл.
Делать это с помощью компонентов слишком банально и скучно, поэтому я решил писать всё на WinApi.



В этот раз нам понадобится 3 компонента Button и подключение файла mmSystem:

uses mmSystem;

После всех приготовлений начнем описывать процедуру на событие OnClick для каждой кнопки.

Первая кнопка будет служить кнопкой Play:

procedure TForm1.Button1Click(Sender: TObject);     // Record 
begin 
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle); 
  mciSendString('SET mysound TIME FORMAT MS ' +     // set time 
    'BITSPERSAMPLE 8 ' +                // 8 Bit 
    'CHANNELS 1 ' +                     // MONO 
    'SAMPLESPERSEC 8000 ' +             // 8 KHz 
    'BYTESPERSEC 8000',                // 8000 Bytes/s 
    nil, 0, Handle); 
  mciSendString('RECORD mysound', nil, 0, Handle) 
end;

Вторая кнопка - Stop:

procedure TForm1.Button2Click(Sender: TObject);     // Stop 

begin 

  mciSendString('STOP mysound', nil, 0, Handle) 

end;

Третья кнопка - Save:

procedure TForm1.Button3Click(Sender: TObject);      // Save 
var  
  verz: String; 
begin 
  GetDir(0, verz); 
  mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle); 
  mciSendString('CLOSE mysound', nil, 0, Handle) 
end;

Вот и все, на этом запись окончена:) Можно компилировать....

В следующем уроке мы заставим программу заговорить, поэтому подписывайтесь на обновления:)


Удачи! SourceExpert.Blogspot.com