Buscar por:

Gravando sons do microfone com o delphi

Código

Primeiro você deve ter uma placa de som e microfone, ambos devidamente instalados no seu PC. Se não tiver um mic, vai lá na SantaIfigênia que você encontra um bom com 5 reais.

Agora coloque um componente TMediaPlayer que se encontra na pasta System, depois coloque três botões e um edit no Form.

Abra o Gravador de som do Windows e sem gravar nada salve o arquivo vazio como C:SOM.WAV, normalmente este arquivo é temporário até salvar o arquivo pricipal. (somente arquivos WAV são salvos, alias, se alguém souber qual função de uma das DLL do Windows Media Player 8.0 que converte WAV para MP3, ME MANDA UM EMAIL!!!) 

Agora coloque os seguintes comandos:

Na propriedade Text do Edit1 coloque o arquivo wave que você salvou - C:SOM.WAV

procedure TForm1.Button1Click(Sender: TObject);

begin

  MediaPlayer1.Open;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  MediaPlayer1.Save;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  MediaPlayer1.FileName := Edit1.Text;

end;

Agora compile o programa e abra-o, clique no Button3 para associar o arquivo que você criou ao MCI, feche todos os aplicativos de midía que estiverem abertos (eles impedem de que abra o MCI) e clique no Button1 para abrir o dispositivo MCI, se algo estiver errado ele não vai abrir, depois de abrir, 4 botões vão ser liberados no TMediaPlayer1, com o microfone ligado clique na bola vermelha para começar à gravar, para pausar a gravação clique no segundo botão o amarelo, e para ouvir o som gravado clique no primeiro botão verde o Play, agora para salvar o arquivo clique no Button2, vá ver o arquivo C:SOM.WAV, antes ele estava vazio agora está com sua gravação.

Eu estava usando o Windows XP quando fiz este código, é bem provável que as configurações sejam diferentes no 98.