当前位置： 首页 > news >正文

Delphi 10.2 Android摄像头实时预览+拍照源码工程（含FMX界面与权限配置）

news 2026/6/11 11:43:13

本文还有配套的精品资源，点击获取

简介：一套开箱即用的Delphi 10.2 Tokyo安卓摄像头开发示例，支持Android 5.0及以上系统。工程包含两个FMX界面文件（Unit1.fmx、Unit2.fmx）和对应Pascal逻辑代码（Unit2.pas为核心），实现摄像头实时画面预览、手动对焦、闪光灯开关控制、拍照触发及JPEG图片本地保存功能。已预配置Android部署项（Project1.deployproj）、AndroidManifest.template.xml权限声明（CAMERA、WRITE_EXTERNAL_STORAGE）、SDK路径适配及图标资源（HeaderFooter.ICO）。项目结构完整，含主程序入口（Project1.dpr）、框架模板（HeaderFooterApplication.dpr）、IDE缓存文件（.identcache）、历史备份文件（如.pas.~55~）便于版本回溯，还附带调试用Debug目录和压缩包camera.zip。适合快速上手Delphi FMX移动端相机集成，理解Android原生Camera API在FireMonkey中的封装调用方式，也适用于教学演示或二次开发参考。

1. 项目概述：这不是一个“能跑就行”的Demo，而是一份可落地的Android相机集成手册

Delphi 10.2 Tokyo 是FireMonkey跨平台框架走向成熟的关键版本，尤其在Android端多媒体能力上，它首次提供了相对稳定、可控的原生Camera API封装层。但问题在于——官方文档里那几行TVideoCaptureDevice的调用示例，离真正做出一个能放进App Store的拍照功能，中间隔着至少三道墙：权限动态申请的时机与失败兜底、预览画面在不同屏幕密度下的拉伸变形、闪光灯在低端设备上的兼容性黑洞、以及最要命的——拍出来的照片方向永远是错的。这套“Delphi安卓相机”源码工程，就是我当年在给一家本地医疗设备厂商做移动巡检App时，从零踩坑、反复重构、最终沉淀下来的完整解决方案。它不是教科书式的Hello World，而是一个已经过真实产线设备（华为P8 Lite、三星J5、小米红米Note 4X）连续72小时压力测试的工程快照。核心关键词“Delphi安卓相机”“FMX摄像头示例”“Android拍照源码”，背后对应的是三个硬需求：第一，必须能立刻编译通过，不报任何SDK或NDK路径错误；第二，预览画面必须满屏无黑边、无镜像翻转、无撕裂抖动；第三，拍出的照片必须自动旋转到正确朝向，且EXIF信息完整可读。工程里那些看似冗余的备份文件（.pas.~55~）、IDE缓存（.identcache）、甚至Debug目录，都不是垃圾，而是调试过程中每一次关键决策的“时间戳”。比如.fmx.~24~这个备份，就记录了我如何把原本用TImage承载预览流的方式，彻底替换成TCameraComponent+TMediaPlayer组合方案——前者在Android 6.0上会随机崩溃，后者虽然多写37行代码，但稳定性提升了一个数量级。如果你正卡在“为什么预览是黑的”“为什么拍出来是横着的”“为什么点闪光灯没反应”这类问题上，这份源码不是参考答案，而是你调试日志里缺失的那一段上下文。

2. 整体设计思路拆解：为什么放弃TVideoCaptureDevice，而选择TCameraComponent+TMediaPlayer组合？

2.1 核心架构选型的底层逻辑：绕开FireMonkey的“预览渲染陷阱”

在Delphi 10.2中，官方推荐的摄像头接入方式是TVideoCaptureDevice配合TMediaCodec。听起来很美：一个组件拖上去，设置Active := True，画面就出来了。但实际部署到真机后，你会立刻撞上三堵墙：

  • 第一堵墙：SurfaceTexture生命周期错位
    TVideoCaptureDevice在Android端底层依赖SurfaceTexture对象绑定到SurfaceView。但FireMonkey的TImage控件并非原生SurfaceView，它本质是一个OpenGL纹理容器。当应用切到后台再切回前台时，TVideoCaptureDevice的SurfaceTexture可能已被系统回收，而TImage的OpenGL上下文却未重建，结果就是预览画面永久黑屏。这个问题在Android 5.1（Lollipop MR1）及之后的系统中尤为突出，因为系统加强了后台资源回收策略。

  • 第二堵墙：帧率与分辨率硬编码陷阱
    TVideoCaptureDevice的SupportedVideoSizes属性返回的尺寸列表，在不同厂商设备上差异极大。比如华为Mate 8返回的最高支持分辨率为1920×1080，但实际预览时若强行设置该尺寸，会导致GPU渲染管线过载，画面卡顿到1帧/秒。更致命的是，它不提供帧率动态协商机制——你无法告诉它“我只要30fps，哪怕分辨率降到1280×720”。

  • 第三堵墙：闪光灯控制的“伪开关”
    TVideoCaptureDevice的FlashMode属性在部分设备（尤其是联发科MT6735平台）上只是个摆设。调用SetFlashMode(tfmOn)后，FlashMode属性值确实变了，但硬件闪光灯毫无反应。这是因为FireMonkey没有透传android.hardware.Camera.Parameters.setFlashMode()的底层调用，而是走了Camera.Parameters的兼容层，而该兼容层在旧版Android SDK中存在严重Bug。

提示：本工程彻底弃用TVideoCaptureDevice，改用TCameraComponent（FireMonkey封装的原生Camera API桥接器）配合TMediaPlayer（用于视频流解码与渲染）。TCameraComponent直接操作android.hardware.Camera实例，生命周期与Activity完全同步；TMediaPlayer则接管YUV帧解码与OpenGL ES纹理上传，规避了SurfaceTexture绑定问题。实测在Android 5.0至8.1所有机型上，预览启动延迟稳定在320ms±40ms，帧率锁定30fps无丢帧。

2.2 权限配置策略：为什么AndroidManifest.template.xml里只声明WRITE_EXTERNAL_STORAGE，却不声明READ_EXTERNAL_STORAGE？

这是一个极易被忽略的“合规性雷区”。在Android 6.0（Marshmallow）及以上系统中，WRITE_EXTERNAL_STORAGE属于危险权限组，必须在运行时动态申请。但很多开发者会下意识地同时声明READ_EXTERNAL_STORAGE，认为“既然要写，肯定也要读”。然而，从Android 10（API 29）开始，Google强制启用了Scoped Storage（分区存储）机制。此时，即使你声明了READ_EXTERNAL_STORAGE，应用也无法直接访问其他应用创建的文件（包括自己之前保存的照片），除非用户手动授予“所有文件访问权限”（这需要额外弹窗引导，且被Google Play严格限制）。

本工程的权限设计逻辑是：
-Manifest中仅声明<uses-permission android:name="android.permission.CAMERA" />和<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="28" />
这里android:maxSdkVersion="28"是关键：它告诉系统，此权限仅在Android 9（API 28）及以下版本生效。在Android 10+上，应用默认获得对自身应用专属目录（getExternalFilesDir()）的读写权限，无需额外声明。
-拍照保存路径强制指向TPath.GetDocumentsPath
TPath.GetDocumentsPath返回的是应用专属目录（如/sdcard/Android/data/com.yourcompany.project1/files/Documents/），该路径在Android 10+无需任何权限即可读写，且卸载应用时自动清理，避免垃圾文件堆积。

注意：如果你在AndroidManifest.template.xml中错误地添加了READ_EXTERNAL_STORAGE，会导致应用在Android 10+设备上启动时被系统拦截，报错SecurityException: getDataDirectory()。这是本工程刻意规避的设计，而非遗漏。

2.3 FMX界面分层设计：Unit1.fmx与Unit2.fmx的职责分离哲学

工程包含两个FMX界面文件，这不是为了炫技，而是为了解耦“状态管理”与“交互呈现”：

  • Unit1.fmx：纯容器层（Container Layer）
    它只包含一个TLayout作为根容器，内部嵌套TCameraComponent（隐藏）和TMediaPlayer（隐藏）。它的唯一职责是：提供摄像头硬件资源的生命周期管理。当Unit1被创建时，TCameraComponent.Active := True触发摄像头初始化；当Unit1被销毁时，TCameraComponent.Active := False确保摄像头释放。所有与硬件相关的操作（对焦、闪光灯、拍照触发）都通过Unit1暴露的公共方法（如TakePhoto,SetFlashMode）调用，Unit2绝不直接操作TCameraComponent。

  • Unit2.fmx：交互层（Interaction Layer）
    它负责所有UI元素：预览画面显示区域（TImage）、对焦框（TRectangle）、闪光灯按钮（TSpeedButton）、拍照按钮（TSpeedButton）、状态提示（TLabel）。它的核心逻辑是：将用户操作翻译为对Unit1的指令，并接收Unit1的状态回调进行UI更新。例如，点击闪光灯按钮时，Unit2不直接调用TCameraComponent.SetFlashMode，而是执行Unit1.SetFlashMode(FlashMode)，然后根据Unit1.FlashMode的返回值更新按钮图标。

这种分层让代码具备极强的可测试性：你可以单独为Unit1编写单元测试，模拟不同设备的Camera.Parameters返回值，验证对焦逻辑是否正确；也可以为Unit2编写UI自动化脚本，测试按钮点击后的状态流转。更重要的是，当未来需要替换摄像头实现（比如升级到Camera2 API），只需重写Unit1，Unit2的UI逻辑完全不用动。

3. 核心细节解析与实操要点：从预览黑屏到照片自动旋转的全链路拆解

3.1 预览画面满屏无黑边的关键：TMediaPlayer的SurfaceTexture绑定时机与尺寸计算

预览画面变形的根本原因，在于TMediaPlayer的SurfaceTexture与TImage的OpenGL纹理尺寸不匹配。TImage的Bitmap尺寸由其Width/Height属性决定，而TMediaPlayer输出的YUV帧尺寸由摄像头硬件决定（如1280×720）。若直接将TMediaPlayer的输出纹理映射到TImage.Bitmap，必然出现拉伸或裁剪。

本工程的解决方案是：动态计算并设置TMediaPlayer的OutputSize，使其与TImage的物理像素尺寸严格一致。具体步骤如下：

  1. 获取TImage的实际像素尺寸
    TImage的Width/Height是逻辑DIP单位，需转换为物理像素：
    pascal function GetPhysicalSize(AControl: TControl): TSize; var Scale: Single; begin Scale := TPlatformServices.Current.Platform.GetScale; Result.cx := Round(AControl.Width * Scale); Result.cy := Round(AControl.Height * Scale); end;

  2. 监听TImage尺寸变更事件
    在Unit2的FormCreate中，为TImage添加OnResize事件处理器：
    ```pascal
    procedure TUnit2.FormCreate(Sender: TObject);
    begin
    // … 其他初始化
    FPreviewImage.OnResize := ImageResizeHandler;
    end;

procedure TUnit2.ImageResizeHandler(Sender: TObject);
var
PhysSize: TSize;
begin
PhysSize := GetPhysicalSize(FPreviewImage);
// 将物理尺寸传递给Unit1进行OutputSize设置
Unit1.SetOutputSize(PhysSize.cx, PhysSize.cy);
end;
```

  1. 在Unit1中动态调整TCameraComponent的预览尺寸
    TCameraComponent的PreviewSize属性必须与TMediaPlayer.OutputSize匹配，否则会出现绿屏或花屏：
    pascal procedure TUnit1.SetOutputSize(AWidth, AHeight: Integer); var BestSize: TSize; begin // 从SupportedPreviewSizes中找到最接近AWidth×AHeight的尺寸 BestSize := FindBestPreviewSize(AWidth, AHeight); if (BestSize.cx > 0) and (BestSize.cy > 0) then begin FCameraComponent.PreviewSize := BestSize; FMediaPlayer.OutputSize := BestSize; // 关键！必须同步 end; end;

实操心得：FindBestPreviewSize函数不能简单取“最接近”，而应遵循宽高比优先、分辨率次之原则。例如，当TImage物理尺寸为1080×1920（竖屏），而摄像头支持的尺寸有1280×720（16:9）和1440×1080（4:3），应选择1440×1080，因为其宽高比（1.33）更接近1920/1080（1.78）的倒数（0.56），能最大限度减少黑边。我在Unit1.pas的FindBestPreviewSize方法中实现了该算法，内含详细的注释说明计算过程。

3.2 手动对焦实现：从“点击对焦”到“对焦框动画”的完整闭环

Android原生Camera API的手动对焦（Touch Focus）并非简单的“点击即对焦”，而是一个包含触摸坐标映射、对焦区域计算、AF模式切换、对焦完成回调的完整流程。本工程的实现细节如下：

  1. 触摸坐标到预览坐标系的转换
    用户点击TImage的位置是屏幕坐标（X,Y），但Camera.Parameters.setMeteringAreas()需要的是归一化坐标（-1000到1000）。转换公式为：
    normalized_x = ((touch_x / image_width) - 0.5) * 2000 normalized_y = ((touch_y / image_height) - 0.5) * 2000
    注意：由于预览画面可能存在镜像（前置摄像头），还需根据Camera.Parameters.getCameraInfo().facing判断是否需要水平翻转normalized_x。

  2. 构建MeteringArea对象
    Android要求对焦区域为矩形，且坐标范围为[-1000, 1000]。本工程定义标准对焦框尺寸为200×200（归一化单位），即：
    pascal Area := TCropRect.Create( Round(normalized_x - 100), Round(normalized_y - 100), Round(normalized_x + 100), Round(normalized_y + 100) );

  3. AF模式切换与回调处理
    调用setFocusMode(Camera.Parameters.FOCUS_MODE_AUTO)后，必须注册AutoFocusCallback。本工程在Unit1中实现了OnAutoFocus事件：
    pascal procedure TUnit1.OnAutoFocus(Success: Boolean; Camera: JCamera); begin if Success then begin // 对焦成功：播放音效、缩放对焦框、更新UI状态 PlayFocusSound; AnimateFocusBox(True); FFocusStatus := fsSuccess; end else begin // 对焦失败：重置对焦框、提示用户重试 AnimateFocusBox(False); FFocusStatus := fsFailed; end; // 触发事件，通知Unit2更新UI if Assigned(FOnFocusComplete) then FOnFocusComplete(Self, Success); end;

注意事项：在低端设备（如联发科MT6580）上，AutoFocusCallback可能永远不会被调用。因此，本工程设置了3秒超时机制：若3秒内未收到回调，则强制触发OnAutoFocus(False, nil)，避免UI卡死。该超时逻辑在Unit1.pas的StartAutoFocus方法中有完整实现。

3.3 闪光灯控制的兼容性方案：为什么需要区分torch模式与flash模式？

TCameraComponent的FlashMode属性仅支持tfmOff/tfmOn/tfmAuto三种模式，但这在硬件层面是严重不足的。真实场景中，用户需要两种截然不同的闪光行为：

  • Torch模式（手电筒）：闪光灯常亮，用于弱光环境照明，不参与拍照曝光。
  • Flash模式（闪光摄影）：闪光灯仅在拍照瞬间触发，用于补光。

Android原生API通过Camera.Parameters.FLASH_MODE_TORCH和Camera.Parameters.FLASH_MODE_ON区分二者。本工程在Unit1.pas中扩展了FlashModeEx枚举：

type TFlashModeEx = (fmOff, fmTorch, fmOn, fmAuto);

并在SetFlashModeEx方法中做硬件适配：

procedure TUnit1.SetFlashModeEx(AValue: TFlashModeEx); var Params: JCameraParameters; begin Params := FCameraComponent.Parameters; case AValue of fmOff: Params.setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_OFF); fmTorch: begin // Torch模式需先设置为ON，再切换为TORCH（部分设备要求） Params.setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_ON); FCameraComponent.Parameters := Params; Sleep(50); // 等待参数生效 Params.setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_TORCH); end; fmOn: Params.setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_ON); fmAuto: Params.setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_AUTO); end; FCameraComponent.Parameters := Params; end;

实操心得：fmTorch模式的双步切换（ON→TORCH）是华为、小米等厂商设备的硬性要求。若直接设置FLASH_MODE_TORCH，部分设备会报RuntimeException: setParameters failed。我在camera.zip压缩包中附带了FlashModeTest.apk，可用于快速验证目标设备的闪光灯兼容性。

3.4 拍照与照片旋转：EXIF方向修正的底层原理与Delphi实现

DelphiTBitmap保存JPEG时，默认不写入EXIF方向标签，导致照片在相册中显示为横屏（实际是竖屏拍摄）。根本原因是：Android摄像头传感器物理朝向固定（通常为横向），而预览画面通过setDisplayOrientation()进行了90度旋转。takePicture()捕获的原始数据仍是横向的，必须根据设备当前朝向（getOrientation()）和摄像头朝向（CameraInfo.orientation）计算出正确的旋转角度，并写入EXIF。

本工程的EXIF修正流程如下：

  1. 计算目标旋转角度
    pascal function CalculateRotationAngle(CameraId: Integer; DisplayOrientation: Integer): Integer; var Info: TCameraInfo; begin TJCamera.JavaClass.getCameraInfo(CameraId, Info); if Info.facing = TJCameraInfo.JavaClass.CAMERA_FACING_FRONT then Result := (Info.orientation + DisplayOrientation) mod 360 else Result := (Info.orientation - DisplayOrientation + 360) mod 360; end;

  2. 使用libexif库写入EXIF Orientation标签
    Delphi 10.2自带System.IOUtils.TFile，但不支持EXIF写入。本工程在Unit1.pas中集成了轻量级EXIF写入器（基于libexif的Delphi封装），核心代码：
    pascal procedure WriteExifOrientation(const AFileName: string; AOrientation: Integer); var ExifData: PExifData; Entry: PExifEntry; begin ExifData := exif_data_new_from_file(PAnsiChar(UTF8Encode(AFileName))); if ExifData <> nil then begin Entry := exif_content_get_entry(ExifData.contents, EXIF_TAG_ORIENTATION); if Entry = nil then Entry := exif_entry_new(); exif_entry_set_value(Entry, PAnsiChar(UTF8Encode(IntToStr(AOrientation)))); exif_data_save_file(ExifData, PAnsiChar(UTF8Encode(AFileName))); exif_data_unref(ExifData); end; end;

  3. 在拍照回调中自动修正
    TCameraComponent.OnPictureTaken事件中，先保存原始JPEG，再调用WriteExifOrientation：
    pascal procedure TUnit1.OnPictureTaken(const Data: TBytes); var FileName: string; Rotation: Integer; begin FileName := TPath.Combine(TPath.GetDocumentsPath, 'IMG_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.jpg'); TFile.WriteAllBytes(FileName, Data); // 计算并写入EXIF方向 Rotation := CalculateRotationAngle(FCameraComponent.CameraID, FDisplayOrientation); WriteExifOrientation(FileName, Rotation); // 通知UI拍照完成 if Assigned(FOnPhotoTaken) then FOnPhotoTaken(Self, FileName); end;

提示：CalculateRotationAngle中的DisplayOrientation需在Activity.OnConfigurationChanged中实时更新，本工程已在Project1.dpr的TAndroidHelper.Activity中实现了该监听，确保横竖屏切换时旋转角度计算准确。

4. 实操过程与核心环节实现：从新建工程到真机运行的逐行指南

4.1 开发环境准备：Android SDK/NDK/BPL路径的精确配置

Delphi 10.2 Tokyo对Android开发环境的要求极为苛刻，稍有偏差就会编译失败。以下是经过千次验证的配置清单：

组件推荐版本安装路径（必须无空格/中文）Delphi中配置位置
JDKJDK 1.8.0_202C:\Java\jdk1.8.0_202Tools → Options → Deployment → SDK Manager → Java SDK
Android SDKr25.2.5（含build-tools 25.0.3）C:\Android\sdkTools → Options → Deployment → SDK Manager → Android SDK
Android NDKr14bC:\Android\ndk-r14bTools → Options → Deployment → SDK Manager → Android NDK
Android Platformandroid-25（Android 7.1.1）C:\Android\sdk\platforms\android-25Project → Options → Deployment → Target Platforms → Android → SDK Platform

关键配置步骤：
1. 在Tools → Options → Deployment → SDK Manager中，确保所有SDK组件状态为“Installed”；
2. 在Project → Options → Deployment中，点击右上角“Add Files”按钮，添加Project1.deployproj文件（工程已预配置好）；
3. 在Project → Options → Application中，将Version Name设为1.0.0，Version Code设为1；
4. 在Project → Options → Entitlements List中，勾选Use Custom Entitlements，并指定AndroidManifest.template.xml（工程已预配置）。

常见错误排查：若编译时报错Error: Could not find or load main class com.android.sdklib.tool.SdkManager，说明JDK路径配置错误。请确认Tools → Options → Deployment → SDK Manager → Java SDK中指向的是jdk1.8.0_202\bin\java.exe，而非jre\bin\java.exe。

4.2 工程结构解读：每个文件的真实作用与修改风险等级

工程目录中看似杂乱的文件，实则各司其职。以下是关键文件的作用与修改建议：

文件名类型作用修改风险建议
Project1.dpr主程序入口初始化Application、加载主窗体Unit1⚠️高仅修改Application.Initialize后的Application.CreateForm行，添加自定义初始化逻辑
Unit1.pas核心逻辑封装TCameraComponent、TMediaPlayer、权限申请、拍照回调⚠️中可安全修改SetOutputSize、TakePhoto等方法，但勿改动OnPictureTaken事件绑定逻辑
Unit2.pasUI逻辑处理按钮点击、对焦框动画、状态提示✅低可自由修改UI样式、添加新按钮、调整动画参数
AndroidManifest.template.xml权限配置声明CAMERA、WRITE_EXTERNAL_STORAGE等权限⚠️高若需添加新权限（如ACCESS_FINE_LOCATION），必须在此文件中声明，并在Unit1.pas中补充运行时申请逻辑
Project1.deployproj部署配置定义Android APK打包时包含的资源、库、图标✅低可安全添加新资源文件（如res/drawable/ic_flash_on.png）
.pas.~55~备份文件Unit2.pas的第55次保存快照❌禁止修改用于对比代码变更，如需回滚，复制覆盖原文件即可

注意事项：HeaderFooterApplication.dpr是FireMonkey模板工程的入口，本工程未使用它，可安全忽略。camera.zip是独立的闪光灯兼容性测试工具，解压后直接安装到手机即可运行，无需Delphi环境。

4.3 真机调试全流程：从USB连接到拍照成功的7个关键检查点

将工程部署到真机并非一键编译即可，需按顺序完成以下检查：

  1. 开启开发者选项与USB调试
    连接手机到电脑 → 设置 → 关于手机 → 连续点击“版本号”7次 → 返回设置 → 系统 → 开发者选项 → 启用“USB调试”。

  2. 安装ADB驱动
    下载Universal ADB Driver，运行后选择“Let me pick from a list…” → “Android ADB Interface” → 安装驱动。若设备管理器中显示“Android”，则成功。

  3. 在Delphi中选择目标设备
    编译前，点击工具栏“Target Platform”下拉框 → 选择“Android Device” → 点击右侧“…”按钮 → 在弹出窗口中勾选你的设备（如HUAWEI MLA-AL10）。

  4. 首次运行时的权限授权
    应用首次启动会弹出权限请求对话框（CAMERA和WRITE_EXTERNAL_STORAGE）。必须点击“允许”，否则预览黑屏。若误点“拒绝”，需进入手机设置 → 应用 → Project1 → 权限 → 手动开启。

  5. 检查预览画面方向
    启动后，观察TImage区域是否显示实时画面。若画面旋转90度，说明DisplayOrientation未正确获取。此时需在Unit1.pas中临时添加日志：
    pascal TLogger.Log('DisplayOrientation: ' + IntToStr(FDisplayOrientation)); TLogger.Log('CameraInfo.orientation: ' + IntToStr(Info.orientation));
    查看IDE的“Event Log”窗口输出。

  6. 测试对焦功能
    点击预览画面任意位置，观察对焦框是否出现并缩放。若无反应，检查Unit2.pas中FPreviewImage.OnMouseDown事件是否绑定，以及Unit1.SetFocusArea方法是否被调用。

  7. 拍照并验证EXIF
    点击拍照按钮 → 查看手机文件管理器中Android/data/com.yourcompany.project1/files/Documents/目录 → 找到最新生成的IMG_*.jpg→ 用支持EXIF查看的App（如Exif Viewer）打开 → 检查Orientation字段是否为6（表示顺时针旋转90度，即竖屏拍摄）。

实操心得：在华为EMUI 8.0设备上，首次运行时可能出现“应用未响应”提示。这是因为TCameraComponent初始化耗时较长（约1.2秒），而EMUI的ANR检测阈值为1秒。解决方案是在Unit1.pas的Create方法中添加异步初始化：
pascal TThread.CreateAnonymousThread( procedure begin TThread.Synchronize(nil, procedure begin FCameraComponent.Active := True; end); end).Start;

5. 常见问题与排查技巧实录：来自23台真机的故障数据库

5.1 预览黑屏问题速查表

现象可能原因排查步骤解决方案
启动即黑屏，无任何错误提示TCameraComponent未激活或TMediaPlayer未启动1. 在Unit1.Create中添加TLogger.Log('Camera Active: ' + BoolToStr(FCameraComponent.Active, True));
2. 检查TMediaPlayer.State是否为msStopped		确保FCameraComponent.Active := True在TMediaPlayer.Start之前执行；若TMediaPlayer.State非msPlaying，调用TMediaPlayer.Play
预览几秒后变黑SurfaceTexture被系统回收1. 监听TApplication.OnSuspend事件
2. 在OnSuspend中执行FCameraComponent.Active := False
3. 在OnActivate中执行FCameraComponent.Active := True		工程已预置该逻辑，在Project1.dpr的TAndroidHelper.Application中实现
横屏预览正常，竖屏预览黑屏setDisplayOrientation未适配竖屏1. 在Unit1.pas中搜索setDisplayOrientation
2. 检查GetDisplayOrientation方法是否返回正确角度（竖屏应为90或270）		在Unit1.pas的UpdateDisplayOrientation方法中，强制设置setDisplayOrientation(90)进行测试

5.2 拍照失败问题排查指南

错误日志根本原因修复代码位置关键修复点
java.lang.RuntimeException: takePicture failed拍照时摄像头正忙（如正在对焦）Unit1.pas→TakePhoto方法在TakePhoto开头添加if FCameraState <> csIdle then Exit;，并在OnAutoFocus回调中重置FCameraState
EAccessViolationat address0x00000000TBytes数据为空或损坏Unit1.pas→OnPictureTaken事件在OnPictureTaken开头添加if Length(Data) = 0 then Exit;，避免空数据写入文件
Permission denied for thread: mainWRITE_EXTERNAL_STORAGE权限未授予Unit1.pas→RequestPermissions方法确保RequestPermissions中调用TJActivity.JavaClass.checkSelfPermission检查权限状态，失败时调用requestPermissions

5.3 闪光灯失效的设备特异性解决方案

设备品牌失效表现适配方案实现位置
华为（EMUI 5.0+）setFlashMode调用后无反应必须在setFlashMode后立即调用setParameters并sleep(100)Unit1.pas→SetFlashModeEx方法中fmOn分支
小米（MIUI 9.5+）闪光灯常亮后无法关闭需在setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_OFF)后，再次调用setFlashMode(TJCameraParameters.JavaClass.FLASH_MODE_TORCH)再setFlashMode(OFF)Unit1.pas→SetFlashModeEx方法中fmOff分支
三星（One UI 2.0+）FLASH_MODE_TORCH导致应用崩溃禁用TORCH模式，仅支持ON/AUTOUnit1.pas→SetFlashModeEx方法中移除fmTorch分支，改为fmOn

独家避坑技巧：在Unit1.pas的Create方法末尾，添加设备型号检测逻辑：
pascal FDeviceModel := TJBuild.JavaClass.MODEL; if Pos('HUAWEI', FDeviceModel) > 0 then FFlashCompatibility := fcHuawei else if Pos('MI', FDeviceModel) > 0 then FFlashCompatibility := fcXiaomi else if Pos('SM-', FDeviceModel) > 0 then FFlashCompatibility := fcSamsung;
后续所有闪光灯操作均根据FFlashCompatibility变量分支处理，确保万无一失。

6. 后续扩展建议：从单摄像头到多摄协同的演进路径

这套源码的终极价值，不在于它能做什么，而在于它为你铺平了通往更复杂场景的道路。基于当前架构，你可以无缝扩展以下能力：

6.1 前后双摄无缝切换

当前工程仅支持默认摄像头（TCameraComponent.CameraID := 0）。扩展双摄只需三步：
1. 在Unit2.fmx中添加“切换摄像头”按钮；
2. 在Unit1.pas中实现SwitchCamera方法：
pascal procedure TUnit1.SwitchCamera; begin FCameraComponent.Active := False; if FCameraComponent.CameraID = 0 then FCameraComponent.CameraID := 1 // 切换到前置 else FCameraComponent.CameraID := 0; // 切换到后置 FCameraComponent.Active := True; UpdateDisplayOrientation; // 前置摄像头需镜像预览 end;
3. 在UpdateDisplayOrientation中，为前置摄像头添加镜像逻辑：
pascal if FCameraComponent.CameraID = 1 then FMediaPlayer.Mirror := True else FMediaPlayer.Mirror := False;

6.2 视频录制功能集成

TCameraComponent支持视频录制，但需额外配置TMediaRecorder。关键步骤：
- 在Unit1.pas中声明FMediaRecorder: JMediaRecorder;
- 在StartRecording方法中：
pascal FMediaRecorder := TJMediaRecorder.Create; FMediaRecorder.setCamera(FCameraComponent.Camera); FMediaRecorder.setAudioSource(TJMediaRecorder.JavaClass.AUDIO_SOURCE_MIC); FMediaRecorder.setVideoSource(TJMediaRecorder.JavaClass.VIDEO_SOURCE_CAMERA); FMediaRecorder.setOutputFormat(TJMediaRecorder.JavaClass.OUTPUT_FORMAT_MPEG_4); FMediaRecorder.setVideoEncoder(TJMediaRecorder.JavaClass.VIDEO_ENCODER_H264); FMediaRecorder.setOutputFile(TPath.Combine(TPath.GetDocumentsPath, 'VID_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.mp4')); FMediaRecorder.prepare; FMediaRecorder.start;

6.3 AI图像增强集成（如夜景模式）

利用TBitmap的像素级操作，可在OnPictureTaken回调中插入图像处理：

procedure TUnit1.OnPictureTaken(const Data: TBytes); var Bitmap: TBitmap; Processor: TImageProcessor; begin // ... 保存原始JPEG Bitmap := TBitmap.Create; try Bitmap.LoadFromStream(TBytesStream.Create(Data)); Processor := TImageProcessor.Create; try // 应用夜景增强算法（需自行实现） Processor.ApplyNightMode(Bitmap); Bitmap.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'ENHANCED_' + FileName)); finally Processor.Free; end; finally Bitmap.Free; end; end;

最后分享一个小技巧：在Unit2.pas的FormDestroy事件中，添加强制释放内存代码：
pascal procedure TUnit2.FormDestroy(Sender: TObject); begin // 清理TImage的Bitmap引用，防止内存泄漏 if Assigned(FPreviewImage.Bitmap) then begin FPreviewImage.Bitmap.Assign(nil); FPreviewImage.Bitmap := nil; end; end;
这行代码能避免在频繁切换摄像头时，TImage因持有旧Bitmap导致的OOM（Out of Memory）错误。这是我在线上版本中发现并修复的最后一个Bug，也是整套源码真正“开箱即用”的最后一块拼图。

本文还有配套的精品资源，点击获取

简介：一套开箱即用的Delphi 10.2 Tokyo安卓摄像头开发示例，支持Android 5.0及以上系统。工程包含两个FMX界面文件（Unit1.fmx、Unit2.fmx）和对应Pascal逻辑代码（Unit2.pas为核心），实现摄像头实时画面预览、手动对焦、闪光灯开关控制、拍照触发及JPEG图片本地保存功能。已预配置Android部署项（Project1.deployproj）、AndroidManifest.template.xml权限声明（CAMERA、WRITE_EXTERNAL_STORAGE）、SDK路径适配及图标资源（HeaderFooter.ICO）。项目结构完整，含主程序入口（Project1.dpr）、框架模板（HeaderFooterApplication.dpr）、IDE缓存文件（.identcache）、历史备份文件（如.pas.~55~）便于版本回溯，还附带调试用Debug目录和压缩包camera.zip。适合快速上手Delphi FMX移动端相机集成，理解Android原生Camera API在FireMonkey中的封装调用方式，也适用于教学演示或二次开发参考。


本文还有配套的精品资源，点击获取

http://www.gsyq.cn/news/1503654.html

相关文章：

  • STM32F407HAL库模拟SPI驱动1.8寸TFT（ST7735）屏幕：从零移植到性能优化实战
  • 5分钟免费解锁学术论文：Unpaywall浏览器扩展终极指南
  • GitHub Trending 今日 Top 5 解读：AI Agent、RAG、计算机视觉与 Markdown 知识库正在同时升温
  • 【大模型面经】大模型面试全攻略：月薪30K+AI岗必备
  • 数据库启动报错：42501: 无法打开共享内存段 “/PostgreSQL.******“: 权限不够
  • ECharts饼图数据项太多？试试用渐变色区分系列，提升可读性（附避坑指南）
  • MATLAB实操包：LMS和RLS自适应滤波算法收敛过程动态对比（含多步长/变步长/噪声场景）
  • Springboot 3.5 源码分析-构建与部署全指南：从 Gradle/Maven 插件到 Docker 容器化与云原生部署
  • 【实战指南】3大PaddleOCR识别异常问题与终极解决方案
  • 网盘下载提速终极方案：三分钟掌握八大网盘直链解析神器
  • 四川人力资源外包公司排行：合规与服务能力实测对比 - 奔跑123
  • 5分钟掌握：如何永久免费使用Cursor AI编程助手的完整破解方案
  • 从报表到合同：5个真实业务场景，手把手教你用JS（html2canvas+jspdf）生成高质量PDF
  • CFD多孔介质建模：从理论公式到工程实践的关键步骤解析
  • 阿克苏欧米茄+宇航手表专业回收，26年精选回收店铺排行榜推荐 - 谊识预商贸
  • 终极指南：如何用DeepMosaics轻松处理图像马赛克，保护隐私与恢复细节
  • 重新定义文献管理：Zotero Style的可视化革新体验
  • 手把手复现：用Python从零实现PRESENT-80分组加密算法（附完整代码）
  • 视频字幕提取技术深度解析：如何用本地化AI方案实现95%去重准确率
  • Behdad字体：如何用开源方案解决波斯语和阿拉伯语数字排版难题？
  • 【实践指南】利用MSPA与景观连通性分析，精准识别生态安全网络核心源地
  • VS2010下可直接编译的EasyHook双组件工程：Inject.exe注入器 + Hook.dll钩子库
  • 多尺度ICP点云配准
  • Penn-Fudan数据集上可直接运行的行人实例分割FCN训练工程（PyTorch版，含100轮/500轮预训练模型）
  • GD32单片机ADC实战：从传感器到上位机，手把手教你搭建50kg压力采集系统
  • Supershell实战：如何用它把MSF木马“藏”进内存，绕过杀软实现文件不落地攻击？
  • 3步掌握Pixelle-Video：零基础快速制作AI短视频完全指南
  • 2026-06-11：前缀连接组的数目。用go语言，给你一个字符串数组 words 和一个整数 k。 如果两个来自不同位置的单词 a、b 满足：它们从开头开始的前 k 个字符完全相同（即 a 的前 k
  • QKeyMapper终极指南：Windows免费开源按键映射工具，手柄玩转PC游戏的完美解决方案
  • 别再死记硬背公式了！用Python+SymPy手把手推导方波傅里叶级数（附完整代码）