Consol uygulaması ses kaydı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 671
Kayıt: 28 Nis 2011 09:33
Konum: İstanbul

Consol uygulaması ses kaydı

Mesaj gönderen greenegitim » 19 Eki 2016 02:26

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.
Mücadele güzelleştirir!

Cevapla