Grabar audio del microfono en mp3

[tarco35]

Hola.
Hay algun componente para delphi 6 que me permita grabar desde el microfono conectado a la tarjeta de sonido en formato MP3??

Lo he intentado con TMediaPlayer, pero no lo consigo...

Gracias.

[ecfisa]

Hola tarco35.

No conozco, pero no es difícil de implementar, un ejemplo:

Código Delphi [-]
uses mmSystem;

var
  CountSec: Integer = 0;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled  := False;
  Timer1.Interval := 1000;
  SaveDialog1.Filter := 'MP3|*.mp3';
  SaveDialog1.DefaultExt := 'MP3';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(CountSec);
  Label1.Caption := Format('Segundos: %d', [CountSec]);
end;

procedure TForm1.btStartClick(Sender: TObject);
begin
  mciSendString('open new type waveaudio alias MP3Mic', nil, 0, 0);
  mciSendString('record MP3Mic', nil, 0, 0);
  CountSec := 0;
  Label1.Caption := Format('Segundos: %d', [CountSec]);
  Timer1.Enabled := True;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  Timer1.Enabled := False;
  mciSendString('pause MP3Mic', nil, 0, 0);

  if SaveDialog1.Execute then
  begin
    mciSendString(PChar('save MP3Mic ' + SaveDialog1.FileName), nil, 0, 0);
    mciSendString('close MP3Mic', nil, 0, 0);
  end
end;

Saludos

[tarco35]

gracias, lo pruebo y comento.
un saludo.