Implementation of the recording function in FMX. Media

Fmicrophone: = tcapturedevicemanager. Current. defaultaudiocapturedevice;
If assigned (fmicrophone) then
Begin
Fmicrophone. filename: = udpclients. tempsavepath + '\ recordtest.wav ';
Try
Fmicrophone. startcapture;

Except

Showmessage ('the device is not recognized or not supported. ');
End;
End
Else
Showmessage ('no microphone is available. ');

 

If assigned (fmicrophone) Then try

If fmicrophone. State = tcapturedevicestate. Capturing then

Begin fmicrophone. stopcapture;

End; else t

Showmessage ('device not recognized or unsupported '); end;