delphi xe10 麦克风、摄像头操作

本文整理自网络，侵删。

 delphi xe10 麦克风、摄像头操作TakePhotoFromCameraAction1: TTakePhotoFromCameraAction; // 通过手机摄像头获取图片TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //获取手机已存在图片ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享图片（Bitmap.Assign();）
获取麦克风设置 FMX.MediaFMicrophone: TAudioCaptureDevice;FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;FMicrophone.FileName 设置路径FMicrophone.State = TCaptureDeviceState.Capturing 设备状态FMicrophone.StartCapture; //开始录音FMicrophone.StopCapture; // 结束录音MediaPlayer: TMediaPlayer; 媒体播放器MediaPlayer.FileName 设置路径MediaPlayer.Play; // 开始播放MediaPlayer.Stop; // 结束播放
获取手机摄像头Camera: TCameraComponent;Camera.Active := True; //打开Camera.Active := False; //停止Camera.SampleBufferToBitmap(imgCameraView.Bitmap, True); //保存图片TThread.Synchronize(TThread.CurrentThread, GetImage); //线程保存图片Camera.Quality 图像质量Camera.HasFlash 是否有闪光灯Camera.TorchMode := TTorchMode.ModeOn; //打开闪光灯 Camera.FlashMode := FMX.Media.TFlashMode.fmFlashOff;Camera.TorchMode := TTorchMode.ModeOff;//关闭闪光灯 Camera.FlashMode := FMX.Media.TFlashMode.fmFlashOn;Camera.Kind := FMX.Media.TCameraKind.ckFrontCamera;//前置摄像头Camera.Kind := FMX.Media.TCameraKind.ckBackCamera;//后置摄像头
博客园 滔Roy https://www.cnblogs.com/guorongtao 

相关阅读 >>

Delphi 部分操作文件函数

Delphi 公历转农历函数

Delphi下cpu getcpuid实现（x86和x64）

Delphi 复制文件到剪贴板

Delphi exe执行程序dos参数的运用

Delphi xe4 for ios 谨慎处理字符串

Delphi edit只允许输入数字和小数点

Delphi webservices传base64字串

Delphi 简单的软件注册demo

Delphi 窗体form的formstyle属性设置为fsstayontop时属性设置不起作用问题探讨。

更多相关阅读请进入《Delphi》频道 >>