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 := 0;
  if Height > Width then //如果是竖屏
  if CameraComponent1.Kind = FMX.Media.TCameraKind.ckFrontCamera then//如果是前置摄像头
    Image1.RotationAngle := -90
  else
    Image1.RotationAngle := 90;
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 := 90;
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 := -90;
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.