Вывод в форму изображения с IP камеры

[Mart]

Доброй ночи.

Передо мной стоит следующая задача: имеются 2 веб-камеры, необходимо выводить изображения в форму.

Собственно вопрос: средствами какой библиотеки это можно осуществить?

Пробовал lcvlclib, описание использования представлено по ссылке

manual

Вывод изображения не идет.

Код: Выделить всё

procedure TForm1.BplayClick(Sender: TObject);
var M: TVLCMediaItem;
begin
  M:=TVLCMediaItem.Create(Nil);
  try
  M.Path:='http://192.168.0.108/video.mjpg?mute';
  Fplayer.Play(M);

  finally
  M.Free;
  end;
end;             

Все компиллирутеся, ошибок не выдает.

Операционная система win7x64.
Lazarus 1.2.6 FPC 2.6.4

[alexs]

А если MPlayer?
У него есть параметр -wid
В параметре указываешь ID окна
А параметр -slave - заставит его читать управляющие команды из стандартного потока ввода.

Добавлено спустя 2 минуты 51 секунду:
Кстати, на форуме эта тема уже поднималась.

[LeonidDV]

У вас в коде обвертка над VLC отсюда два вопроса, VLC стоит, в нем по ссылке нормально все отображается, так как не понятно какой поток камера отдает h.264 или mjpeg или еще что.
Как с авторизацией на камере обстоят?
Как путь решения запустити видео файл с компа сначала в окне, а потом видео с камеры на vlc. Как и тот и другой пункт выполнишь останется вопрос техники

[Mart]

У вас в коде обвертка над VLC отсюда два вопроса, VLC стоит, в нем по ссылке нормально все отображается, так как не понятно какой поток камера отдает h.264 или mjpeg или еще что.
Как с авторизацией на камере обстоят?
Как путь решения запустити видео файл с компа сначала в окне, а потом видео с камеры на vlc. Как и тот и другой пункт выполнишь останется вопрос техники

В vlc плеере все работает, там надо ввести rtsp://admin:admin@192.168.1.34/video.mjpg

С помощью данной библиотеки также написана программа MozaIC. В ней в плейлисте прописываю указанный выше адрес и все работает.

В моем коде по этому адресу ничего не показывается. Убирал запрос авторизации камеры, не помогло.

[LeonidDV]

Первое что заметил... Надеюсь это просто ошибка

Код: Выделить всё

M.Path:='http://192.168.0.108/video.mjpg?mute';


Была похожая задача, компонент брал отсюда
http://prog.olsztyn.pl/paslibvlc/
попробуйте
Пересобрал демку, попробовал... Работает. Хоть и в лазаре и лежит libvlc НО возможно более старая версия и поэтому не работает с новой версией плеера

[GAMER]

А как убрать логотип и надписи внизу?

Добавлено спустя 13 часов 38 минут 52 секунды:
Судя по коду, логотипы можно убрать. Но у меня проблема: ехе-ка с примера работает нормально, а скомпилированный мною файл уходит в "синий экран" при подключении вебки. Где бока могут быть? У кого работает, на какой версии лазаруса и фпц?

Добавлено спустя 9 часов 51 минуту 35 секунд:
Проверил. Скомпилированный на транковых версиях проект работает на вин7, а на ХР - синий экрвн.