Запись звука как на диктофоне

[Letter]

Подскажите, как включить запись звука?

[krapotkin]

https://docwiki.embarcadero.com/CodeExamples/Sydney/en/FMX.AudioRecPlay_Sample

 

[Letter]

3 часа назад, krapotkin сказал:

https://docwiki.embarcadero.com/CodeExamples/Sydney/en/FMX.AudioRecPlay_Sample

 

Вот спасибо, помню что эта тема есть, но не помню где видел

[Letter]

А не подскажите еще, как усилить звук записи? Если писать на диктофон встроенный, то запись громче

[krapotkin]

не думаю, что это сделано путем установки некоей "громкости"

когда у нас есть оцифрованный сигнал, то дальше уже идет цифровая обработка этого сигнала

например, нормализация, или компрессия https://habr.com/ru/articles/379395/

операция не очень сложная, но нужно поискать описания хороших алгоритмов и поэкспериментировать с их настройками 

 

[Martifan]

В Delphi для усиления звука записи можно воспользоваться классом TAudioCaptureDevice и его свойством Volume. Это свойство позволяет установить уровень громкости для записи звука. Чем выше значение Volume, тем громче будет записанный звук.

Вот пример, как можно использовать свойство Volume:
 

uses
  FMX.AudioCapture, System.SysUtils;

procedure RecordAudio(const AFileName: string; const AVolume: Single);
var
  AudioCapture: TAudioCaptureDevice;
begin
  AudioCapture := TAudioCaptureDevice.Create(nil);
  try
    AudioCapture.FileName := AFileName;
    AudioCapture.PauseLength := 0;
    AudioCapture.Volume := AVolume; // Установка уровня громкости
    AudioCapture.Active := True;
    Sleep(5000); // Запись в течение 5 секунд
    AudioCapture.Active := False;
  finally
    AudioCapture.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Задайте путь и имя файла, в который будет сохранен звук
  // Укажите значение громкости от 0 до 1 (например, 0.5 для половины максимальной громкости)
  RecordAudio('/sdcard/MyRecording.wav', 0.8);
  ShowMessage('Запись завершена.');
end;

В этом примере в процедуре RecordAudio добавлен дополнительный параметр AVolume, который позволяет задать уровень громкости записи. Значение AVolume должно быть в диапазоне от 0 до 1, где 0 соответствует минимальной громкости, а 1 - максимальной.

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