ActiveDelphi

[iDnl]

Olá novamente, eu gostaria de gravar audio do microfone e salvando em tempo real em uma stream que vai estar sendo enviada via sockets :/

Estava usando isso para gravar:

mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
mciSendString('SET mysound TIME FORMAT MS ' +
'BITSPERSAMPLE 8 ' +
'CHANNELS 1 ' +
'SAMPLESPERSEC 8000 ' +
'BYTESPERSEC 8000',
nil, 0, Handle);
mciSendString('RECORD mysound', nil, 0, Handle)

Parar

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

Salvar

var
arquivo: String;
begin
GetDir(0, arquivo);
mciSendString(PChar('SAVE mysound ' + arquivo + '/test.wav'), nil, 0, Handle);
mciSendString('CLOSE mysound', nil, 0, Handle);

###################################

ai dava um loadfromfile numa stream e a enviava e reproduzia :/