Android 照相

浏览数：40 / 时间：2015年06月11日

XE6 控件太强了CameraComponent就可以了

 

CameraComponent1.Active := True;

procedure TCameraComponentForm.CameraComponent1SampleBufferReady(Sender: TObject; const ATime: Int64);
begin
  TThread.Synchronize(TThread.CurrentThread, GetImage);
  // imgCameraView.Width := imgCameraView.Bitmap.Width;
  // imgCameraView.Height := imgCameraView.Bitmap.Height;
end;


procedure TCameraComponentForm.GetImage;
begin
  CameraComponent1.SampleBufferToBitmap(imgCameraView.Bitmap, True);
end;


procedure TCameraComponentForm.btnSaveClick(Sender: TObject);
var
  filename: string;
begin
  filename := FormatDateTime(‘yymmddHHmmss‘, Now()) + ‘.jpg‘;
  filename := TPath.GetPicturesPath + PathDelim + filename;
  imgCameraView.Bitmap.SaveToFile(filename);
end;

 

Android 照相,,5-wow.com

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

标签： Android iOS 移动互联 终端开发

相关文章

随机文章

您可能还喜欢

您可能还喜欢