В 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, чтобы найти наиболее подходящий уровень усиления звука для вашего приложения и устройства.