Android实例-操作摄像头(XE8+小米2)

结果：

1.同样是照相，自己的程序设置为高质量时刷新慢，而小米手机的相机那真心反映快呀。

2.就算我设置为最高质量，可相片也没有小米手机的相片大。我最大是2000*1000，而小米可以做到3000*2000，如果有人问我为什么都是整数，我会K你的。

实例代码：

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.Media,
   FMX.Platform,//需要引入
   system.IOUtils,//需要引入
   FMX.Layouts;

 type
   TForm1 = class(TForm)
     Label1: TLabel;
     Image1: TImage;
     GroupBox1: TGroupBox;
     RadioButton1: TRadioButton;
     RadioButton2: TRadioButton;
     GroupBox2: TGroupBox;
     RadioButton3: TRadioButton;
     RadioButton4: TRadioButton;
     RadioButton5: TRadioButton;
     GroupBox3: TGroupBox;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     CameraComponent1: TCameraComponent;
     Timer1: TTimer;
     Layout1: TLayout;
     RadioButton6: TRadioButton;
     RadioButton7: TRadioButton;
     RadioButton8: TRadioButton;
     RadioButton9: TRadioButton;
     GroupBox4: TGroupBox;
     RadioButton10: TRadioButton;
     procedure FormCreate(Sender: TObject);
     procedure FormResize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure RadioButton5Change(Sender: TObject);
     procedure RadioButton1Change(Sender: TObject);
     procedure RadioButton2Change(Sender: TObject);
     procedure RadioButton4Change(Sender: TObject);
     procedure RadioButton3Change(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure CameraComponent1SampleBufferReady(Sender: TObject;
       const ATime: TMediaTime);
     procedure RadioButton6Change(Sender: TObject);
     procedure RadioButton7Change(Sender: TObject);
     procedure RadioButton9Change(Sender: TObject);
     procedure RadioButton8Change(Sender: TObject);
     procedure RadioButton10Change(Sender: TObject);
   private
     //需要定义
     function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
     procedure GetImage;
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 //程序事件处理
 function TForm1.AppEvent(AAppEvent: TApplicationEvent;
   AContext: TObject): Boolean;
 begin
   case AAppEvent of
     TApplicationEvent.aeWillBecomeInactive: // 当程序将要变为不活动时
       CameraComponent1.Active := False;
     TApplicationEvent.aeEnteredBackground: // 当程序进入后台时
       CameraComponent1.Active := False;
     TApplicationEvent.aeWillTerminate: // 当程序将要关闭时
       CameraComponent1.Active := False;
   end;
 end;

 //打开摄像头
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   CameraComponent1.Active := True;
 end;

 //关闭摄像头
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   CameraComponent1.Active := False;
 end;

 //保存照片
 procedure TForm1.Button3Click(Sender: TObject);
 begin
   Image1.Bitmap.SaveToFile(TPath.GetSharedCameraPath+'/temp.jpg');
   showmessage('保存成功！');
 end;

 //从摄像头那里取相片
 procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject;
   const ATime: TMediaTime);
 begin
   GetImage;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 var
   AppEventSvc: IFMXApplicationEventService;
 begin
   //启动一个服务，用来监控摄像头的状态
   if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(AppEventSvc)) then
     AppEventSvc.SetApplicationEventHandler(AppEvent); //AppEvent 为具做事的一个函数
   CameraComponent1.Quality := TVideoCaptureQuality.vcPhotoQuality;//设置图像质量
   //设置对焦方式
   CameraComponent1.FocusMode := TFocusMode.fmContinuousAutoFocus;
 end;

 procedure TForm1.FormResize(Sender: TObject);
 begin
   if Height < Width then //如果是横屏
     Image1.RotationAngle := ;
   if Height > Width then //如果是竖屏
   if CameraComponent1.Kind = FMX.Media.TCameraKind.ckFrontCamera then//如果是前置摄像头
     Image1.RotationAngle := -
   else
     Image1.RotationAngle := ;
 end;

 //取相片
 procedure TForm1.GetImage;
 begin
   CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, true);
 end;

 //选择摄像头
 procedure TForm1.RadioButton1Change(Sender: TObject);
 begin
   //选择后置摄像头
   CameraComponent1.Active := False;
   CameraComponent1.Kind := FMX.Media.TCameraKind.ckBackCamera;
   CameraComponent1.Active := True;
   // 后置时，图像要旋转 90 度，如果是竖屏的话
   if Height > Width then
   Image1.RotationAngle := ;
 end;

 procedure TForm1.RadioButton2Change(Sender: TObject);
 begin
   //选择前置摄像头
   CameraComponent1.Active := False;
   CameraComponent1.Kind := FMX.Media.TCameraKind.ckFrontCamera;
   CameraComponent1.Active := True;
   //前置时，图像要旋转-90 度，如果是竖屏的话
   if Height > Width then
   Image1.RotationAngle := -;
 end;

 //如果有闪光灯，打开， ，但在程序运行过程中，看不出什么效果
 procedure TForm1.RadioButton3Change(Sender: TObject);
 begin
   if CameraComponent1.HasFlash then
     CameraComponent1.FlashMode := FMX.Media.TFlashMode.fmFlashOn;
 end;

 //如果有闪光灯，关闭，但在程序运行过程中，看不出什么效果
 procedure TForm1.RadioButton4Change(Sender: TObject);
 begin
   if CameraComponent1.HasFlash then
     CameraComponent1.FlashMode := FMX.Media.TFlashMode.fmFlashOff;
 end;

 //将闪光灯设置为自动模式
 procedure TForm1.RadioButton5Change(Sender: TObject);
 begin
   if CameraComponent1.HasFlash then
     CameraComponent1.FlashMode := FMX.Media.TFlashMode.fmAutoFlash;
 end;

 //相片质量
 procedure TForm1.RadioButton6Change(Sender: TObject);
 begin
   CameraComponent1.Quality := TVideoCaptureQuality.PhotoQuality;
 end;

 //高质量
 procedure TForm1.RadioButton7Change(Sender: TObject);
 begin
   CameraComponent1.Quality := TVideoCaptureQuality.HighQuality;
 end;

 //中等质量
 procedure TForm1.RadioButton10Change(Sender: TObject);
 begin
   CameraComponent1.Quality := TVideoCaptureQuality.CaptureSettings;
 end;

 //低质量
 procedure TForm1.RadioButton8Change(Sender: TObject);
 begin
   CameraComponent1.Quality := TVideoCaptureQuality.MediumQuality;
 end;

 //捕捉设置
 procedure TForm1.RadioButton9Change(Sender: TObject);
 begin
   CameraComponent1.Quality := TVideoCaptureQuality.LowQuality;
 end;

 //刷新得到的摄像头的照片的显示
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   Image1.Repaint;
 end;

 end.