запись WAV файла

Друзья, срочно нужно научиться с микрофона писать WAV файлы, киньте пожалуйста, кто-нить пример исходника, как там работать этими хитрыми SDK-шными "звучными" функциями. Заранее благодарен.

 

На асме я не пробовал, но на делфях сделал так

Код (Text):

1. uses mmSystem;
2.  
3.  {....}
4.  
5.  procedure TForm1.Button1Click(Sender: TObject);     // Record
6. begin
7.    mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
8.    mciSendString('SET mysound TIME FORMAT MS ' +     // set time
9.     'BITSPERSAMPLE 8 ' +                // 8 Bit
10.     'CHANNELS 1 ' +                     // MONO
11.     'SAMPLESPERSEC 8000 ' +             // 8 KHz
12.     'BYTESPERSEC 8000',                // 8000 Bytes/s
13.     nil, 0, Handle);
14.    mciSendString('RECORD mysound', nil, 0, Handle)
15.  end;
16.  
17.  
18.  procedure TForm1.Button2Click(Sender: TObject);     // Stop
19. begin
20.    mciSendString('STOP mysound', nil, 0, Handle)
21.  end;
22.  
23.  
24.  procedure TForm1.Button3Click(Sender: TObject);      // Save
25. var
26.     verz: String;
27.  begin
28.    GetDir(0, verz);
29.    mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
30.    mciSendString('CLOSE mysound', nil, 0, Handle)
31.  end;

 

млин, а как тут аттач сделать?

 

StatusError
Зацените ссылку "Ответить" под сообщениями.

 

нифига себе %) спасибо

 

Заходим в раздел Исходники > Мультимедиа , ищем сорец RWave и смотрим как там и что делается на асме.
Проверял, реально все пишет с микрофона.