delphi android 录像（调用Java的功能） _ANDROID

【delphi android 录像（调用Java的功能）】农村四月闲人少，勤学苦攻把名扬。这篇文章主要讲述delphi android 录像（调用Java的功能）相关的知识，希望能为你提供帮助。
delphi xe系列自带的控件都无法保存录像，经网友帮忙，昨天终于实现了录像功能（但有个问题是录像时无画面显示），程序主要使用了JMediaRecorder,MediaRecorder的使用方法可参考网上java的相关说明，下面代码是可以正常录像的：

文章图片

unit Unit8; interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, androidapi.Helpers, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,FMX.Media.Android,Androidapi.JNI.Media, FMX.Controls.Presentation, FMX.StdCtrls,System.IOUtils,Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Provider, Androidapi.JNI.App, Androidapi.JNI.Net, Androidapi.JNIBridge, FMX.Media, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os; type TForm8 = class(TForm) Button3: TButton; Button4: TButton; procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } texture : JSurfaceTexture; surface: JSurface; recorder: JMediaRecorder; public { Public declarations } end; var Form8: TForm8; implementation{$R *.fmx}procedure TForm8.Button3Click(Sender: TObject); VARFILENAME:STRING; begin texture := TJSurfaceTexture.JavaClass.init(1); surface := TJSurface.JavaClass.init(texture); recorder := TJMediaRecorder.Create(); recorder.setPreviewDisplay(surface); recorder.setAudiosource(TJMediaRecorder_AudioSource.JavaClass.MIC); recorder.setVideoSource(TJMediaRecorder_VideoSource.JavaClass.CAMERA); recorder.setOutputFormat(TJMediaRecorder_OutputFormat.JavaClass.MPEG_4); recorder.setAudioEncoder(TJMediaRecorder_AudioEncoder.JavaClass.DEFAULT); recorder.setVideoEncoder(TJMediaRecorder_VideoEncoder.JavaClass.H264); recorder.setMaxDuration(1800000); // 30 minutes recorder.setVideoSize(320, 240); recorder.setVideoFrameRate(15); filename:=TPath.GetSharedCameraPath+\'/abc0002.mp4\'; recorder.setOutputFile(StringToJString(FILENAME)); recorder.prepare(); recorder.start(); end; procedure TForm8.Button4Click(Sender: TObject); begin recorder.stop; end; end.

文章图片

http://www.cnblogs.com/qiufeng2014/p/4809144.html