Consol uygulaması ses kaydı

[greenegitim]

Merhaba arkadaşlar

Kod: Tümünü seç

program seskayit;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.MMSystem,
  Winapi.Media,
  FMX.Media;
var
AudioCapture : TAudioCaptureDevice;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

      AudioCapture:= TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
      if AudioCapture <> nil then
      begin
      AudioCapture.FileName:='test.wav';
      AudioCapture.StartCapture;
     end;
   Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Bu kodla mikrofondan ses kaydı alıyorum şöyle bir sorun var dosya çok büyük oluyor kaydetiği ses kaydına göre, daha önce all sound record diye bir programda şöyle bir şey görmüştüm sesi kaydederken ses beli bir seviyenin üstünde ise kayıt alıyordu sesiz olan anlarda kayıt yapmıyordu ne zaman ortamda bir ses yükselse kayda devam ediyordu böyle bir şeyi nasıl yapabilirim ve kayıt boyutunu nasıl küçük tutabilirim.