POV

Пользователи
  • Публикации

    171
  • Зарегистрирован

  • Посещение

1 подписчик

О POV

  • Звание
    Продвинутый пользователь

Посетители профиля

488 просмотров профиля
  1. Ну, видимо там ничего хитрого, просто надо потыркаться, варианты поискать. Если камеру остановлю заранее, то закрывается приложение норм. А вот в onClose остановка не работает не работает.
  2. Перепробовал кучу всего. В основном для VCL. Заработал лишь платный TVideoGrabber. Затем смог таки установить логитековский драйвер, а не виндовый по умолчанию - заработало всё, что было из вариантов. В том числе и вышеприведённый. Но проблема - не могу закрыть приложение. Лишь из среды убить удаётся. Что я делаю не так?
  3. То же самое
  4. на сайте эмбаркадеры явно написано VideoCaptureDevice extends the TCaptureDevice implementation to add specific behavior for video capturing devices (like web cameras). Т.е. вебка должна бы работать. Однако не выходит каменный цветок: if (m.Current.GetDevicesByName('HD Pro Webcam C920') is TVideoCaptureDevice) then begin VideoCamera := m.Current.GetDevicesByName('HD Pro Webcam C920') as TVideoCaptureDevice; if VideoCamera <> nil then begin VideoCamera.OnSampleBufferReady := VideoBufferReady; VideoCamera.StartCapture; end; end; По StartCapture приложение задумывается на несколько секунд, а затем вылетает с аксесс виолэйшн. Всю вики облазил, не нашел в скудных примерах чего бы такого надо сделать чтобы оно заработало. Так как быть и стоит ли вообще этим заморачиваться в том смысле что темы 2х летней давности говорят о крайней медленности подхода. Оно всё также обстоит?
  5. А чем вынь32 вариант не нравится FMX? Я таким образом раскрывам майнменю в нужном месте. А под FMX хоть скомпилилось, но не заработало как я того хочу. keybd_event(VK_MENU, 0, 0 ,0); keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP,0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_RIGHT, 0, 0, 0); keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
  6. Я оттуда инфу беру по детализации COM-портов
  7. SetupAPI в uses не подключается. И SetupAPI.pas нет. При этом С++ проект нормально работает. Как быть?
  8. всем привет.. 1) Задумался как получить список сетей (винда). Рекомендаций нашёл море, но всё с использованием API. Не страшно что API. Но чего-то не всё апишное видится. Так и должно быть? 2) Богатый внутренний мир INDY не позволит это мне сделать? Компонентов тьма, может кто скан сетей выполняет?
  9. Взял грид от TMS и на нем сделал редакторишко.
  10. Норм компонент, никаких нареканий.. ибо на безрыбье и это замечательно. А что контекстное меню оказывается за таскбаром - так СтэйОнТоп решает вопрос.
  11. Угу, ясно.. а по своим заботам - нашёл файл "FMX.Platform.Win.pas" в Берлине Токио, подключил, получил доступ к хендлу окна и убрал с панели задач. В берлине Токио файло уже дописанное, ручками не потребовало ничего делать.
  12. Я верно понял, что с панели задач должно убраться название приложения? А то неясно нужно ли оно, при том что не компиляется )) [dcc32 Error] FMX.Platform.Win.pas(240): E2291 Missing implementation of interface method IFMXWindowService.CanShowModal [dcc32 Error] FMX.Platform.Win.pas(240): E2291 Missing implementation of interface method IFMXApplicationService.Running
  13. Ручками упомянутое свойство из fmx убери.
  14. Вот некую убогость накидал. Может кому пригодится. Используется просто. Сначала создаём объект EdChange:= TChangeEditForAngle.Create; который натравливаем на нужные едиты уже расположенные на форме: EdChange.AddEdit(Edit2); Углы считать и задать можно функциями этого объекта function GetAngle(Sender: TEdit): Extended; procedure SetAngle(Sender: TEdit; angle: Extended); Использует модуль три обработчика едита, но сохраняет при этом обработчики назначенные ранее. USetEditAngle.zip