FMX.MEDIA中的录音功能实现

最新推荐文章于 2024-02-25 14:19:06 发布

diaowojian9497

最新推荐文章于 2024-02-25 14:19:06 发布

阅读量108

点赞数

原文链接：http://www.cnblogs.com/HuiLove/p/3909974.html

版权

FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
   if Assigned(FMicrophone) then
   begin
     FMicrophone.FileName := udpclients.tempsavepath + '\RecordTest.wav';
     try
       FMicrophone.StartCapture;

     except

       ShowMessage('设备不识别或不支持。');
     end;
   end
   else
     ShowMessage('没有可用的麦克风。');

if Assigned(FMicrophone) then try

if FMicrophone.State = TCaptureDeviceState.Capturing then

begin FMicrophone.StopCapture;

end; except

ShowMessage('设备不识别或不支持'); end;

转载于:https://www.cnblogs.com/HuiLove/p/3909974.html