1 Gravando sons do microfone com o delphi Sex Fev 15, 2013 8:57 am
Moedas : 278
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
Mensagens : 1177
Idade : 26
Humor : Forever Alone T.T
Reputação : 28
RodrigoNunes
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.
Na propriedade Text do Edit1 coloque o arquivo wave que você salvou - C:SOM.WAV
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.
Credits: 3° página
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.
Na propriedade Text do Edit1 coloque o arquivo wave que você salvou - C:SOM.WAV
- Código:
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.
Credits: 3° página