Social Icons

^^

segunda-feira, 6 de maio de 2013

Capturar áudio da placa de som com Delphi



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.


Nenhum comentário:

Postar um comentário

Popular Posts

 

Seguidores

Hora exata:

Total de visualizações de página