拍照演示
DevExpressVCL 组件之一
TdxCameraControl Object
Hierarchy Properties Methods Events
一个摄像头控件
Unit dxCameraControl
Syntax
TdxCameraControl = class(TdxCustomCameraControl)
Descrition
该控件允许您捕捉视频或图像从内置/连接的网络摄像头或设备、前后摄像头。也可以访问指定的摄像头，并可以预览；
该控件实现与摄像机相关联的基本功能。它使用允许您执行以下操作:
可以指定图像/视频捕获的摄像机，并获取其名称：(DeviceIndex和DeviceName)。
可以控制摄像机的视频：活动、暂停、播放和停止 (Active, Pause, Play, Stop).
会列出来支持的摄像机分辨率，用户可以选择一个分辨率或者分辨率索引用于输出：(Resolutions 和ResolutionIndex).
可以缩放渲染图像(FitMode)。
捕获截屏当前渲染的图像并访问它:(Capture 和 CapturedBitmap).
获取控件的当前状态，以及状态更改事件(state和OnStateChanged)。
启用设置按钮，提供用户对弹出菜单的访问，您也可以以编程方式调用该菜单(ShowSettingsButton和ShowSettingsToolbar)。
TdxCameraControl Properties（属性）
TdxCameraControl Legend
Derived from TdxCustomCameraControl
Active 激活控件
BorderStyle 控件的边框风格
CapturedBitmap 捕捉的图像
DeviceIndex 摄像头设备索引
DeviceName 当前摄像头的名字
FitMode 填充模式
ResolutionCount 返回当前访问的摄像机支持的分辨率数目
ResolutionIndex 返回当前分辨率的索引
Resolutions 分辨率
State 控件当前的状态
ShowSettingsButton 是否显示设置按钮
TdxCameraControl Methods（方法）
TdxCameraControl Legend
Derived from TdxCustomCameraControl
Capture 从当前摄像头捕获一张图片
Pause 使当前摄像头处于暂停状态
Play 使当前摄像头处于预览输出状态
ShowSettingsToolbar 调用设置弹出菜单。
Stop 停止渲染从摄像头获得的输出帧，使摄像头处于不激活的状态。
TdxCustomCameraControl Events（事件）
TdxCustomCameraControl Legend
In TdxCustomCameraControl
OnStateChanged 控件状态发生变化时
TdxCustomCameraControl.DeviceIndex
TdxCustomCameraControl
通过索引指定当前控件的摄像头处于激活；
Syntax
property DeviceIndex: Integer;
Description
控件是通过在设备管理器中注册的摄像机列表(也称为网络摄像机或成像设备)中的索引来识别的。默认情况下，控件被设置为访问列表中的第一个相机。如果注册了多个摄像机，可以使用DeviceIndex属性选择所需的摄像机。
终端用户可以使用控件的设置弹出菜单中的设备子菜单在相机之间切换。
TdxCustomCameraControl.State
TdxCustomCameraControl
Indicates the camera control's current state.Syntax
type TdxCameraControlState = (ccsInactive, ccsInitializing, ccsRunning, ccsPaused, ccsNoDevice, ccsDeviceIsBusy);property State: TdxCameraControlState;
Description
Values include:
ValueDescription
ccsInactive摄像机控制处于非活动状态。该状态对应sdxCameraInactive。除此之外，所有其他状态都与摄像机控制有关。
ccsInitializing摄像机控件正在初始化以捕获或呈现摄像机输出。此状态对应于sdxCameraInitializing。
ccsRunning控件在其表面呈现摄像机的输出。（预览）
ccsPaused摄像头处于暂停状态
ccsNoDevice相机控件无法找到所选相机或当前已关闭。此状态对应sdxcameranotdetection。
ccsDeviceIsBusy设备处于锁定状态。
这是个只读属性。
Active:True
DeviceIndex:设备号,默认为0
其他方法
procedure Capture; //捕获
procedure Pause; //暂停
procedure Play; //播放
procedure Stop; //停止
property State: TdxCameraControlState read FState; //设备状态
设计界面
代码
复制代码
//拍照并在cxImage中显示
procedure TForm1.Button1Click(Sender: TObject);
begin
dxCameraControl1.Capture;
cxImage1.Picture.Assign(dxCameraControl1.CapturedBitmap);
end;
//保存图片
procedure TForm1.Button3Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then
begin
cxImage1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
end;
复制代码
拍照演示
来源：https://www.cnblogs.com/win32pro/p/5267247.html