У меня следующая проблема, когда подключаюсь к камере телефона, то кадры отображаются с ужасной задержкой, нааамного медленнее чем в сторонних приложениях работающих с камерой.
Для подключения к камере использую следующий код:
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, но он работает также или даже ещё медленнее.