Gravar Wav

Delphi

25/08/2003

Será que alguem sabe como fazer para criar
um prog no Delphi que seja capaz de gravar
sons no formato WAV ou em MP3 ??
T+


Eniorm

Eniorm

Curtidas 0

Respostas

Fabricio

Fabricio

25/08/2003

Como assim gravar, de um cd?

Fabricio


GOSTEI 0
Eniorm

Eniorm

25/08/2003

naum em cd.
o que eu estou precisando é...,
criar tipo de um grampo telefônico
que é acionado qdo se recebe um telefonema ou
qdo se disca para algum telefone.
o programa seria acionado e gravaria toda a
conversa em arquivos .WAV ou .MP3


GOSTEI 0
Cebikyn

Cebikyn

25/08/2003

naum em cd. o que eu estou precisando é..., criar tipo de um grampo telefônico que é acionado qdo se recebe um telefonema ou qdo se disca para algum telefone. o programa seria acionado e gravaria toda a conversa em arquivos .WAV ou .MP3


A parte do grampo telefônico eu não sei, mas para gravar WAV, é assim:

uses mmSystem; 

{....} 

procedure TForm1.Button1Click(Sender: TObject);
begin 
  // inicia a graavação
  mciSendString(´OPEN NEW TYPE WAVEAUDIO ALIAS mysound´, nil, 0, Handle); 
  mciSendString(´SET mysound TIME FORMAT MS ´ +     // set time 
    ´BITSPERSAMPLE 8 ´ +                // 8 Bit 
    ´CHANNELS 1 ´ +                     // MONO 
    ´SAMPLESPERSEC 8000 ´ +             // 8 KHz 
    ´BYTESPERSEC 8000´,                // 8000 Bytes/s 
    nil, 0, Handle); 
  mciSendString(´RECORD mysound´, nil, 0, Handle) 
end; 


procedure TForm1.Button2Click(Sender: TObject);
begin 
  // pára a gravação
  mciSendString(´STOP mysound´, nil, 0, Handle) 
end; 


procedure TForm1.Button3Click(Sender: TObject);
var  
  verz: String; 
begin 
  // Salva o arquivo
  GetDir(0, verz); 
  mciSendString(PChar(´SAVE mysound ´ + verz + ´/test.wav´), nil, 0, Handle); 
  mciSendString(´CLOSE mysound´, nil, 0, Handle) 
end;



GOSTEI 0
POSTAR