德尔福视频冻结

Question

在firemonkey中为Android编写应用程序。 我在显示图像时遇到问题。 非常口吃的形象

procedure TForm1.CameraComponent1SampleBufferReady(Sender: TObject;
  const ATime: Int64);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create(0, 0);
  CameraComponent1.SampleBufferToBitmap(bmp, True);
  TThread.Synchronize(nil,
    procedure
    begin
      Image1.Bitmap.Assign(bmp);
    end
  );
  bmp.Free;
end;

你为什么要挂画？ 在设备Xperia m2上进行测试 编制葡萄酒时效果很好