kolyalyan

У меня следующая проблема, когда подключаюсь к камере телефона, то кадры отображаются с ужасной задержкой, нааамного медленнее чем в сторонних приложениях работающих с камерой.

Для подключения к камере использую следующий код:
 

procedure TForm1.FormShow(Sender: TObject);
var 
   CDM : TCaptureDeviceManager;
   VC : TVideoCaptureDevice;

begin
   CDM := TCaptureDeviceManager.Current;
   VC := CDM.DefaultVideoCaptureDevice; 
   if (VC <> nil) then VC.OnSampleBufferReady := VideoBufferReady;

   VC.StartCapture;
end;

Для загрузки кадров в TImage этот:
 

procedure TForml.VideoBufferReady(Sender: TObject; const ATime: int64); 
var 
   VCD : TVideoCaptureDevice; 

begin
   VCD := Sender as TVideoCaptureDevice;
   VCD.SampleBufferToBitmap(Image1.Bitmap, True);
end;

Ещё раз повторюсь, что всё работает, но чрезвычайно медленно. Пробовал стандартный компонент TCameraComponent, но он работает также или даже ещё медленнее.