拍照演示 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; 复制代码 拍照演示
标签:控件,DeviceIndex,delphi,dxCameraControl,TdxCameraControl,摄像机,TdxCustomCameraContro From: https://www.cnblogs.com/xionda/p/18379016