Postagens

Mostrando postagens de maio, 2013

Capturar áudio da placa de som com Delphi

Imagem
Adicione a sessão uses   MMSystem Código para iniciar gravação do áudio: mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);   mciSendString('SET mysound TIME FORMAT MS ' +     'BITSPERSAMPLE 32 ' +     'CHANNELS 20 ' +     'SAMPLESPERSEC 250 ' +     'BYTESPERSEC 180000',     nil, 0, Handle);   mciSendString('RECORD mysound', nil, 0, Handle); Código para parar gravação: mciSendString('STOP mysound', nil, 0, Handle); Código para salvar o som wav: var   arquivo: String; begin   GetDir(0, arquivo);   mciSendString(PChar('SAVE mysound ' + arquivo + '/test.wav'), nil, 0, Handle);   mciSendString('CLOSE mysound', nil, 0, Handle); // no exemplo acima o som é salvo no mesmo diretório do executável.