Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Мультимедия / Как можно получить звук с микрофона?

Как можно получить звук с микрофона?

»»» Hieroglyph (27.11.00 11:49)
Сначала надо создать пустой аудио файл, допустим 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;

Ну вот и все, правда у меня качество такой записи было просто ужасным, удачи! :)

»»» Jammy - jammy@okclub.org (27.11.00 16:52)
Читай Multimedia API в MSDNe. Инициализируешь устройство ввода на нужный формат (то есть на нужное качество), запускаешь в отдельном потоке и читаешь из Stream'а.
Можно и через TMediaPlayer, однако тогда надо выставить желаемый формат в настройках multimedia.

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru