Recording audio (what you can ear, not what you speak).

[AtcBrambo]

I think every one, at least once, had the problem to record sound.

I did it this say ....

Procedure Start_Recording;
begin
bIsRecording:=False;
try
Log.AddLine('Opening multimedia ....');
mciSendString( 'OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Main_Form.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, Main_Form.Handle);
mciSendString( 'RECORD mysound', nil, 0, Main_Form.Handle);
bIsRecording:=True;
Log.AddLine('Start recording ....');
except
Log.AddLine('Can not start recording ....', 1);
MessageDlgPos('Can not open Recording Device.'+#13#13+'Your voice will not be recorded ....',mtError,[mbOk],0,10,10);
end;
end;

-------------------------------------

Does anyone know how to record everything the user can ear ?

After days of searches, I didn't find the MCISendString option to make it working.

Thnaks for any help and best regards.

Giovanni.