MediaPlayer и микрофон.

[Vaigard]

В общем, нашел такой код.

Сначала надо создать пустой аудио файл, допустим Windows 
Audio Recorder, причем какие у него будут параметры, такие будут и 
у результирующего файла, затем с помощью var Media:TMediaPlayer

procedure TForm1.btRecordClick(Sender: TObject);
begin
  with Media do
  begin
    { Set FileName to the test.wav file to }
    { get the recording parameters. }
    FileName := 'd:\test.wav';
    { Open the device. }
    Open;
    { Start recording. }
    Wait := False;
    StartRecording;
  end;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  with Media do
  begin
    { Stop recording. }
    Stop;
    { Change the filename to the new file we want to write. }
    FileName := 'd:\new.wav';
    { Save and close the file. }
    Save;
    Close;
  end;
end;

Работает без ошибок, но звук не пишет. Записал только одни раз. Вместо голоса только естественное шипение микрофона. А время в файле прибавляется. Как исправить эту ошибку? И как сделать, чтобы файл переписывался?

В общем, плохо пишет, потому что микрофон немного перегорел А как сделать, чтобы wav - файл переписывался? Свежезаписанный звук добавляется в начало файла (ну или по позиции MediaPlayer).

[veniside]

Если не стоит задача использовать именно MediaPlayer (который, кстати, может и отсутствовать на машине), то вот есть простая демка. Это часть достаточно большого набора компонент для работы со звуком. Доступна в исходниках.

[Vaigard]

Тут задача в работе с MediaPlayer, т. к. с ним работать проще, чем с простым кодом.