delphi - 在应用程序中为相机制作预览窗口

Question

应用程序中是否可以提供移动摄像头所看到内容的预览功能？或者这个选项只能在 Eclipse 或类似程序中编码？

在XE5中使用相机组件只会打开内置相机应用程序，不会显示应用程序内的 View ..

主要是Android..

谢谢

Answer 1

这非常简单 - 您必须定义将相机缓冲区分配给 TImage.Bitmap 的过程。 OnSampleBufferToBitmap 事件处理程序可能如下所示:

procedure TForm240.SampleBufferReady(Sender: TObject; const ATime: TMediaTime);
begin
  VideoCamera.SampleBufferToBitmap(Image1.Bitmap, True);
end;

取自视频采集官方示例:http://sourceforge.net/p/radstudiodemos/code/HEAD/tree/branches/RadStudio_XE5_Update/FireMonkey/Delphi/VideoCaptureHD/

经我测试，可在少数设备上运行。