Поиск
Показаны результаты для тегов 'OnSampleBufferReady'.
Найдено: 2 результата
-
У меня следующая проблема, когда подключаюсь к камере телефона, то кадры отображаются с ужасной задержкой, нааамного медленнее чем в сторонних приложениях работающих с камерой. Для подключения к камере использую следующий код: 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, но он работает также или даже ещё медленнее.
- 30 ответов
-
- TVideoCaptureDevice
- OnSampleBufferReady
- (и ещё 7 )
-
Народ а как поменять разрешение получаемой картинки через CameraComponent? по умолчанию получаю очень маленькую картинку... хотелось бы сделать её на весь экран =( добавляю сюда CameraComponent1SampleBufferReady CameraComponent1.Quality := TVideoCaptureQuality.highQuality; image.Width := image.Bitmap.Width; image.Height := image.Bitmap.Height; но ничего не меняется =( походу это можно делать только в XE8 а у меня XE7 и использовать нужно CaptureSetting