FMX.MEDIA中的錄音功能實現

標籤：io   ar   art   ef   file   on   sp   dp   

  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;