delphi xe10 麦克风、摄像头操作

TakePhotoFromCameraAction1: TTakePhotoFromCameraAction; // 通过手机摄像头获取图片
TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction; //获取手机已存在图片
ShowShareSheetAction1: TShowShareSheetAction;//用其它程序分享图片（Bitmap.Assign();）

获取麦克风设置 FMX.Media
FMicrophone: 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;//后置摄像头

原文地址：https://www.cnblogs.com/guorongtao/p/11137284.html

时间： 2024-07-30 07:40:17

delphi xe10 麦克风、摄像头操作的相关文章

Delphi XE10 dxLayoutControl 控件应用指南

http://www.cnblogs.com/Bonny.Wong/p/7440288.html DevExpress VCL套件是一套非常强大的界面控件,可惜关于Delphi开发方面的说明太少,有些控件使用起来一头雾水,不知从何下手.本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局. 1.  首先从工具箱面板中将dxLayoutControl放在Form上,设置2个关键属性如下: 属性 属性值 说明 Align alClient 一

[原创]Delphi XE10 dxLayoutControl 控件应用指南

DevExpress VCL套件是一套非常强大的界面控件,可惜关于Delphi开发方面的说明太少,有些控件使用起来一头雾水,不知从何下手.本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局. 1.  首先从工具箱面板中将dxLayoutControl放在Form上,设置2个关键属性如下: 属性 属性值 说明 Align alClient 一般都要设置为alClient,因为需要它控制整个Form布局 LayoutLookAndFeel

Delphi文件夹的操作

/// <remarks>/// 重命名文件夹/// </remarks>function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;var  pDirOperate: TSHFileOpStruct;begin  Result := False;  if not DirectoryExists(SourceDirectort) then Exit;  FillChar(pDirO

Delphi XE10.1 引用计数

以往的Delphi版本,不支持接口的Weak,和UnSafe的引用,支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持. 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持. 1.Weak Weak引用,不影响引用计数器,但是如果对象被释放,Weak引用变量自动清0,来看例子: type TA=class(TInterfacedObject) end; procedure TForm1.Button1Click(Sender:

unigui组件中client javascript delphi组件之间的操作

UniLabel组件: function OnClick(sender, e){ MainForm.UniLabel1.setText('Click!');} function Onmousemove(sender, x, y){ MainForm.UniLabel1.setPosition(x, y);} unibutton组件: function OnMouseout(sender, e){ sender.setText('Out');} uniedit组件 function form.On

Delphi 之路 — 文件操作函数 （说明和使用说明）

Delphi 之路 - 文件操作函数 (说明和使用说明) //判断文件是否存在 FileExists //判断文件夹是否存在 DirectoryExists //删除文件 DeleteFile; Windows.DeleteFile //删除文件夹 RemoveDir; RemoveDirectory //获取当前文件夹 GetCurrentDir //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory //获取指定驱动器的当前路径名 GetDir

Delphi XE10，Json 生成和解析，再利用indyhttp控件Post

Delphi XE10,Json 生成和解析,再利用indyhttp控件Post 2017年09月20日 18:30:23 阅读数:1973 --不多说,直接上代码 procedure TFrmMain.Brand; var JSONObject, jsonparam: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数组变量 i: Integer; Flag_Do: Boolean; jsonToSend: TStringStream;

delphi xe10 FMX 启动参数

关于 Delphi Xe10 FMX 启动参数  需要在启动窗口前来调用 也就是在bar文件修改 如果参数多可以用json来 uses system.SysUtils; var param: string; begin if FindCmdLineSwitch('p') then FindCmdLineSwitch('p', param); Application.Initialize; Application.CreateForm(TdmLoginCore, dmLoginCore); App

Delphi XE10.1 引用计数（Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持）

以往的Delphi版本,不支持接口的Weak,和UnSafe的引用,支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持. 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持. 1.Weak Weak引用,不影响引用计数器,但是如果对象被释放,Weak引用变量自动清0,来看例子: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 type   TA=class(TInterfacedObject)