Dozent

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

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

  • Посещение

  • Победитель дней

    2

Dozent стал победителем дня 24 декабря 2014

Dozent имел наиболее популярный контент!

Информация о Dozent

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

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

540 просмотров профиля
  1. Я пока не пробовал, появились другие задачи...
  2. Покапавшись в инете нашёл несколько компонентов. Всё более менее рабочие платное. в MJPEG качество картинки не очень в RTSP вообще ни чего не заденьги нет. http://www.datastead.com/ http://www.trichview.ru/ это для VCL
  3. Доброго всем дня. Появилась сильная потребность работать с IP камерой. Необходим захват,, запись, воспроизведение и покрутка. Подскажите у кого есть похожий опыт работы. Какие компоненты, дайте статьи почитать... Камера как я понял пише тв mjpeg
  4. Простите) О каких 2 строках кода Вы говорите?)
  5. у меня динамически они строятся, чото не привлекает вся эта котовасия )
  6. Добрый день. Мне нужно чтобы закладки TabControl распологались слева. Как это можно сделать?
  7. Кажется я разобрался) Проблем была в том что я веду разработку на ноуте) Есть свои особености резрешения и экрана))
  8. Как-то можно научить этот плеер работать с FullHD????
  9. всеее кажысь понял. Плеер не поддерживает разрешения экрана больше HD ?
  10. Вы меня если что сразу извините) Но у меня такое бредовое предположение, что ширину и длину видео компонент берёт относительно контрола а не то сколько он занимает на форме...
  11. В Продолжение этой темы! Я скопировал 3 файла который указаны в последнем собщении. Нашёл ту самую процедуру и внес туда изменения, со своими корективами и удалось подогнать видео под начало контрола, но как его растянуть на весь контрол???? procedure TWindowsMedia.UpdateMediaFromControl; var P: TPointF; R: TRect; Bounds: TRectF; Form: TCommonCustomForm; begin FVMRWindowlessControl9.SetAspectRatioMode(VMR9ARMode_LetterBox); // <-- Добавил if FWnd <> 0 then begin if (Control <> nil) and not (csDesigning in Control.ComponentState) and (Control.ParentedVisible) and (Control.Root <> nil) and (Control.Root.GetObject is TCommonCustomForm) then begin Form := TCommonCustomForm(Control.Root.GetObject); P := GetVideoSize; // Bounds := TRectF.Create(0, 0, P.X, P.Y); ЗАкомитил Bounds := TRectF.Create(Control.Position.X, Control.Position.Y, Control.AbsoluteWidth, Control.AbsoluteHeight);// <-- Изменил, но высота и шрина не поддаются Bounds.Fit(RectF(0, 0, Control.AbsoluteWidth, Control.AbsoluteHeight)); Bounds.Offset(Control.AbsoluteRect.Left, Control.AbsoluteRect.Top); SetParent(FWnd, WindowHandleToPlatform(Form.Handle).Wnd); SetWindowPos(FWnd, 0, Bounds.Round.Left, Bounds.Round.Top, Bounds.Round.Width, Bounds.Round.Height, 0); R := TRect.Create(0, 0, Bounds.Round.Width, Bounds.Round.Height); if FVMRWindowlessControl9 <> nil then FVMRWindowlessControl9.SetVideoPosition(nil, @R); if FVMRWindowlessControl7 <> nil then FVMRWindowlessControl7.SetVideoPosition(nil, @R); ShowWindow(FWnd, SW_SHOW) end else ShowWindow(FWnd, SW_HIDE) end; end; Прошу помощи...
  12. Dozent

    TSelectionPoint

    Это всё понятно) Я могу так же взять круги и с ними прекрастно работать, суть проблемы не в то что я не могу перемещать компоненты...
  13. Dozent

    TSelectionPoint

    Интересно сейчас можно у кого-нибудь запросить код из того вебинара? Очень хочу увидеть как оно работает...
  14. Dozent

    TSelectionPoint

    Ну у меня ХE8. А на видео XE10. В этом причина?
  15. Dozent

    TSelectionPoint

    Пробовал) Не в этом дело