
Dozent
Пользователи-
Активность
115 -
Зарегистрирован
-
Посещение
-
Победитель дней
2
Dozent стал победителем дня 24 декабря 2014
Dozent имел наиболее популярный контент!
Информация о Dozent
-
Звание
Продвинутый пользователь
Посетители профиля
870 просмотров профиля
-
-
Я пока не пробовал, появились другие задачи...
-
Покапавшись в инете нашёл несколько компонентов. Всё более менее рабочие платное. в MJPEG качество картинки не очень в RTSP вообще ни чего не заденьги нет. http://www.datastead.com/ http://www.trichview.ru/ это для VCL
-
Доброго всем дня. Появилась сильная потребность работать с IP камерой. Необходим захват,, запись, воспроизведение и покрутка. Подскажите у кого есть похожий опыт работы. Какие компоненты, дайте статьи почитать... Камера как я понял пише тв mjpeg
-
Простите) О каких 2 строках кода Вы говорите?)
-
у меня динамически они строятся, чото не привлекает вся эта котовасия )
-
Добрый день. Мне нужно чтобы закладки TabControl распологались слева. Как это можно сделать?
-
-
Кажется я разобрался) Проблем была в том что я веду разработку на ноуте) Есть свои особености резрешения и экрана))
-
Как-то можно научить этот плеер работать с FullHD????
-
всеее кажысь понял. Плеер не поддерживает разрешения экрана больше HD ?
-
Вы меня если что сразу извините) Но у меня такое бредовое предположение, что ширину и длину видео компонент берёт относительно контрола а не то сколько он занимает на форме...
-
В Продолжение этой темы! Я скопировал 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; Прошу помощи...
-
Это всё понятно) Я могу так же взять круги и с ними прекрастно работать, суть проблемы не в то что я не могу перемещать компоненты...
-
Интересно сейчас можно у кого-нибудь запросить код из того вебинара? Очень хочу увидеть как оно работает...
-
Ну у меня ХE8. А на видео XE10. В этом причина?