Dozent

Я пока не пробовал, появились другие задачи...

Покапавшись в инете нашёл несколько компонентов. Всё более менее рабочие платное. в 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. В этом причина?

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