Delphi XE6 试用Android视频采集

FMX支持视频采集，具体见FMX.Media，提供了很类支持音频、视频的处理。

按帮助文档，用Note3做了测试，结果，效率太低，不可用。

具体可查询帮助Video Capturing一节，我就是按这个把代码复制过来做的测试.

一点进展：

对于这么低的效率，经与朋友讨论，应该是FMX完全自己处理的结果，如此说来，如果我们能调用Android内置的相机进行录像，然后取得录像文件，该问题就解决了。这样想来，Delphi XE6支持的拍照功能，就是按这个原理实现的，非常适用了！为此，XE6带做一个Standard Action,叫TTakePhotoFromCameraAction，非常快捷的支持拍照的开发，如果再提供一个TTakeVideoFromCameraAction该有多好！可惜了，现在还没有。

为了调用内置相机，朋友提醒我说，就是调用Android的Intent，怎么调用，还不会，那有没有人基于Android开发这样的控件呢？还真查到一组控件：DPF component suite for Android, 只可惜，目前还没有提供录像功能。

附测试的FMX代码：

unit Unit2;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
FMX.StdCtrls, FMX.Objects, FMX.ListBox,FMX.Media;
type
TForm2 = class(TForm)
Layout1: TLayout;
StartButton: TButton;
ComboBox1: TComboBox;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure StartButtonClick(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
VideoCamera: TVideoCaptureDevice;
procedure SampleBufferSync;
procedure SampleBufferReady(Sender: TObject; const ATime: TMediaTime);
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
{ TForm2 }
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
VideoCamera := TVideoCaptureDevice
//(TCaptureDeviceManager.Current.GetDevicesByName(ComboBox1.Selected.Text));
(TCaptureDeviceManager.Current.Devices[1]);
if (VideoCamera <> nil) then
begin
StartButton.Enabled := true;
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
var
DeviceList: TCaptureDeviceList;
i: integer;
begin
DeviceList := TCaptureDeviceManager.Current.GetDevicesByMediaType
(TMediaType.Video);
for i := 0 to DeviceList.Count - 1 do
begin
ComboBox1.Items.Add(DeviceList[i].Name);//这里在note3上取不到Name.
end;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
if VideoCamera <> nil then
VideoCamera.StopCapture;
end;
procedure TForm2.SampleBufferReady(Sender: TObject; const ATime: TMediaTime);
begin
TThread.Synchronize(TThread.CurrentThread, SampleBufferSync);
//Resize the image so that the video is buffered in its original size
//  Image1.Width:=Image1.Bitmap.Width;
//  Image1.Height:=Image1.Bitmap.Height;
end;
procedure TForm2.SampleBufferSync;
begin
VideoCamera.SampleBufferToBitmap(Image1.Bitmap, true);
end;
procedure TForm2.StartButtonClick(Sender: TObject);
begin
if (VideoCamera <> nil) then
begin
if (VideoCamera.State = TCaptureDeviceState.Stopped) then
begin
VideoCamera.OnSampleBufferReady := SampleBufferReady;
VideoCamera.StartCapture;
StartButton.Text := 'Stop';
end
else
begin
VideoCamera.StopCapture;
StartButton.Text := 'Start';
end;
end
else
begin
Caption := 'Video capture devices not available.';
end;
end;
end.

http://blog.sina.com.cn/s/blog_44fa172f0101rg7p.html