1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| try
mciSendString('close all', nil, 0, 0);
mciSendString('open new type waveaudio alias capture', nil, 0, 0);
mciSendString('seek capture to start', nil, 0, 0);
mciSendString('set capture samplespersec 22050', nil, 0, 0);
mciSendString(PChar('set capture bitspersample 16') , nil, 0, 0);
mciSendString('set capture channels 1', nil, 0, 0);
mciSendString('record capture', nil, 0, 0);
Pause((durer_start_recordaudio*1000));
Application.ProcessMessages;
finally
audiorecord_en_cour := 0;
mciSendString(PChar('save capture "' + lien_wav + '"'), nil, 0, 0);
mciSendString('stop capture', nil, 0, 0);
mciSendString('close capture', nil, 0, 0);
end; |
