TCaptureDeviceManager [TVideoCaptureDevice] Как оптимизировать скорость считывания данных с камеры?TVideoCaptureDevice

[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, но он работает также или даже ещё медленнее.

[Pax Beach]

2 часа назад, Rusland сказал:

Нет смысла спрашивать у человека, который задал единственный вопрос на форме и больше не появлялся )

Хотя меня тоже интересует тема записи видео в Android

А что именно интересует?

Я сделал тестовое приложение Android — пишет голос и видео, двумя вариантами камерой телефона и нативным MediaRecorder, без торможения и с хорошим FPS.

Пробую сейчас в сервис это запихать )

 

[Равиль Зарипов (ZuBy)]

3 минуты назад, Pax Beach сказал:

А что именно интересует?

Я сделал тестовое приложение Android — пишет голос и видео, двумя вариантами камерой телефона и нативным MediaRecorder, без торможения и с хорошим FPS.

Пробую сейчас в сервис это запихать )

Поделитесь на форуме, тема очень интересная

[Pax Beach]

42 минуты назад, ZuBy сказал:

Поделитесь на форуме, тема очень интересная

Я знал, что вы спросите )

Еще разбираюсь с некоторыми параметрами.

Пусть побудет интрига, часа через 4 закончу с делами, создам отдельный топик по этому поводу, все расскажу.

 

UPD:

Собственно, если не терпится узнать, все написано здесь.

Изменено 20 октября, 2016 пользователем Pax Beach

[Rusland]

19 часов назад, Pax Beach сказал:

Пусть побудет интрига, часа через 4 закончу с делами, создам отдельный топик по этому поводу, все расскажу.

 

Ждем рассказ

[Pax Beach]

4 часа назад, Rusland сказал:

Ждем рассказ

Забирайте )