Получить звук с микрофона

Delphi , Мультимедиа , Микрофон

Сначала надо создать пустой аудио файл, допустим 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;

Для получения звукового сигнала из микрофона можно использовать компонент TMediaPlayer в Delphi. Вот пример, как это сделать:

Сначала создайте новый форм и добавьте кнопку для записи и другую кнопку для остановки записи.

Затем объявите два процедуры: одну для начала записи и другую для остановки записи.

Вот пример реализации этих процедур:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
  MMSystem, ComCtrls;

type
  TForm1 = class(TForm)
    btRecord: TButton;
    btStop: TButton;
    procedure btRecordClick(Sender: TObject);
    procedure btStopClick(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btRecordClick(Sender: TObject);
begin
  with Media do
  begin
    // Установите имя файла для получения параметров записи.
    FileName := 'd:\test.wav';
    // Откройте устройство.
    Open;
    // Начните запись.
    Wait := False;
    StartRecording;
  end;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  with Media do
  begin
    // Остановите запись.
    Stop;
    // Измените имя файла на новый файл, который вы хотите записать.
    FileName := 'd:\new.wav';
    // Сохраните и закройте файл.
    Save;
    Close;
  end;
end;

var
  Media: TMediaPlayer;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

В этом примере btRecord - это кнопка для записи звука из микрофона, а btStop - это кнопка для остановки записи. Когда вы нажимаете на btRecord, она начинает запись звука с default-устройства (в этом случае, микрофон) и сохраняет его как 'test.wav'. Когда вы нажимаете на btStop, она останавливает запись и сохраняет ее как 'new.wav'.

Помните, что вам нужно добавить unit MMSystem в ваш список использования в разделе implementation вашего форм:

uses ..., ComCtrls, MMSystem;

Также не забудьте добавить компонент TMediaPlayer на ваш форм и настроить его свойства. Вы можете сделать это, перетаскивая его из панели компонентов на ваш форм.

Наконец, убедитесь, что у вас есть необходимые разрешения для доступа к устройству микрофона на вашем компьютере.

В статье описывается способ получения звука с микрофона в Delphi, используя компонент TMediaPlayer и запись аудио файла с помощью Windows Audio Recorder.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Микрофон ::