Перейти к содержанию
Fire Monkey от А до Я
  • 0

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

Ссылка на комментарий

Рекомендуемые сообщения

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

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

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

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

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

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

 

Ссылка на комментарий
  • 0
  • Модераторы
3 минуты назад, Pax Beach сказал:

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

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

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

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

Ссылка на комментарий
  • 0
42 минуты назад, ZuBy сказал:

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

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

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

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

 

UPD:

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

Изменено пользователем Pax Beach
Ссылка на комментарий
  • 0
19 часов назад, Pax Beach сказал:

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

 

Ждем рассказ :)

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...