Работа с веб-камерой, видеосвязь

@TswetkOFF · Регистрация: 14.12.2010

Студворк — интернет-сервис помощи студентам

доброго времени суток!
передо мной стоит задача организовать общение по веб-камере между двумя компьютерами через интернет.
посоветуйте пожалуйста в каком направлении двигаться.
изображение на форму вывел таким же способом как в этой теме, спасибо LK и Sambrise.

raxper · 30.01.2012, 16:33

...приведу простой пример рабочей приемо-передачи видео:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
var
  VideoForm: TVideoForm;
  SysDev: TSysDevEnum;
   nom:integer;
     con:array [1..10] of  TWindowsMediaPlayer;
implementation
 
uses Math,unit1,unit2;
 
{$R *.dfm}
 
procedure TVideoForm.FormCreate(Sender: TObject);
var
  i: integer;
  Device: TMenuItem;
begin
con[1]:=WindowsMediaPlayer1;
con[2]:=WindowsMediaPlayer2;
con[3]:=WindowsMediaPlayer3;
 
nom:=0;
 
 
 
  SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  if SysDev.CountFilters > 0 then
    for i := 0 to SysDev.CountFilters - 1 do
    begin
      Device := TMenuItem.Create(Devices);
      Device.Caption := SysDev.Filters[i].FriendlyName;
      Device.Tag := i;
      Device.OnClick := OnSelectDevice;
      Devices.Add(Device);
    end;
end;
 
procedure TVideoForm.OnSelectDevice(sender: TObject);
begin
  FilterGraph.ClearGraph;
  FilterGraph.Active := false;
  Filter.BaseFilter.Moniker := SysDev.GetMoniker(TMenuItem(Sender).tag);
  FilterGraph.Active := true;
  with FilterGraph as ICaptureGraphBuilder2 do
  begin
    CheckDSError(RenderStream(@PIN_CATEGORY_CAPTURE , nil, Filter as IBaseFilter, nil, ASFWriter as IbaseFilter));
    CheckDSError(RenderStream(@PIN_CATEGORY_PREVIEW , nil, Filter as IBaseFilter, nil, VideoWindow as IbaseFilter));
  end;
  FilterGraph.Play;
end;
 
procedure TVideoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  SysDev.Free;
  FilterGraph.ClearGraph;
  FilterGraph.Active := false;
end;
 
procedure TVideoForm.N1Click(Sender: TObject);
begin
 Settings.Show;
end;
 
procedure TVideoForm.N2Click(Sender: TObject);
begin
 Connect.Show;
 
end;

Установки:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
...
uses DSUtil, DirectShow9, WMPLib_TLB;
 
var
  Settings: TSettings;
  CapEnum: TSysDevEnum;
  VideoMediaTypes, AudioMediaTypes: TEnumMediaType;
 
 
procedure TSettings.FormCreate(Sender: TObject);
var i: integer;
begin
CapEnum := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  for i := 0 to CapEnum.CountFilters - 1 do
    VideoCapFilters.Items.Add(CapEnum.Filters[i].FriendlyName);
 
  CapEnum.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  for i := 0 to CapEnum.CountFilters - 1 do
    AudioCapFilters.Items.Add(CapEnum.Filters[i].FriendlyName);
 
  VideoMediaTypes := TEnumMediaType.Create;
  AudioMediaTypes := TEnumMediaType.Create;
end;
 
procedure TSettings.VideoCapFiltersClick(Sender: TObject);
var
  PinList: TPinList;
  i: integer;
begin
  CapEnum.SelectGUIDCategory(CLSID_VideoInputDeviceCategory);
  if VideoCapFilters.ItemIndex <> -1 then
  begin
    VideoSourceFilter.BaseFilter.Moniker := CapEnum.GetMoniker(VideoCapFilters.ItemIndex);
    VideoSourceFilter.FilterGraph := VideoForm.FilterGraph;
    VideoForm.FilterGraph.Active := true;
    PinList := TPinList.Create(VideoSourceFilter as IBaseFilter);
    VideoFormats.Clear;
    VideoMediaTypes.Assign(PinList.First);
    for i := 0 to VideoMediaTypes.Count - 1 do
      VideoFormats.Items.Add(VideoMediaTypes.MediaDescription[i]);
    VideoForm.FilterGraph.Active := false;
    PinList.Free;
 
  end;
  end;
 
procedure TSettings.AudioCapFiltersClick(Sender: TObject);
 
var
  PinList: TPinList;
  i, LineIndex: integer;
  ABool: LongBool;
begin
  CapEnum.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  if AudioCapFilters.ItemIndex <> -1 then
  begin
    AudioSourceFilter.BaseFilter.Moniker := CapEnum.GetMoniker(AudioCapFilters.ItemIndex);
    AudioSourceFilter.FilterGraph := VideoForm.FilterGraph;
    VideoForm.FilterGraph.Active := true;
    PinList := TPinList.Create(AudioSourceFilter as IBaseFilter);
    AudioFormats.Clear;
    i := 0;
    while i < PinList.Count do
      if PinList.PinInfo[i].dir = PINDIR_OUTPUT then
        begin
          AudioMediaTypes.Assign(PinList.Items[i]);
          PinList.Delete(i);
        end else inc(i);
 
    for i := 0 to AudioMediaTypes.Count - 1 do
    begin
      AudioFormats.Items.Add(AudioMediaTypes.MediaDescription[i]);
    end;
 
    VideoForm.FilterGraph.Active := false;
    InputLines.Clear;
    LineIndex := -1;
    for i := 0 to PinList.Count - 1 do
    begin
      InputLines.Items.Add(PinList.PinInfo[i].achName);
      with (PinList.Items[i] as IAMAudioInputMixer) do get_Enable(ABool);
      if ABool then LineIndex := i;
    end;
    InputLines.ItemIndex := LineIndex;
    PinList.Free;
 
  end;
end;
 
 
procedure TSettings.Button1Click(Sender: TObject);
begin
 with VideoForm do
 begin
 FilterGraph.ClearGraph;
  FilterGraph.Active := false;
  Filter.BaseFilter.Moniker := SysDev.GetMoniker(VideoCapFilters.ItemIndex);
  FilterGraph.Active := true;
  with FilterGraph as ICaptureGraphBuilder2 do
  begin
    CheckDSError(RenderStream(@PIN_CATEGORY_CAPTURE , nil, Filter as IBaseFilter, nil, ASFWriter as IbaseFilter));
    CheckDSError(RenderStream(@PIN_CATEGORY_PREVIEW , nil, Filter as IBaseFilter, nil, VideoWindow as IbaseFilter));
  end;
  FilterGraph.Play;
 End;
 
end;

@TswetkOFF · 22.02.2012, 00:37 **[ТС]**

немного разобрался с directShow получилось захватить и вывести на экран

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
void __fastcall TForm1::Button4Click(TObject *Sender)
{
HRESULT hr;
 
 IGraphBuilder *pGraph = NULL; //менеджер графа фильтров
 ICaptureGraphBuilder2 *pBuild = NULL; //граф фильтра аудио\видео захвата
 
 IBaseFilter *pCapture = NULL; //видеофильтр
 
 ICreateDevEnum *pDevEnum = NULL;
 IEnumMoniker* pEnum = NULL;
 IMoniker* pMoniker = NULL;
 
 IMediaControl * pMediaControl(NULL);
 IMediaEventEx  * pEvent(NULL);
 
 //Инициализируем библиотеку COM
 hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
 if(SUCCEEDED(hr))
 {
    //Создание графа-фильтров - Create the Capture Graph Builder
    hr = CoCreateInstance(CLSID_CaptureGraphBuilder2, NULL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, (void**)&pBuild );
  if (SUCCEEDED(hr))
    {
        //Создание менеджера графа фильтров - Create the Filter Graph Manager
        hr = CoCreateInstance(CLSID_FilterGraph, 0, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (void**)&pGraph);
        if (SUCCEEDED(hr))
        {
            //Initialize the Capture Graph Builder
            pBuild->SetFiltergraph(pGraph);
 
      // Find system device enumerator to find a video capture device.
            hr = CoCreateInstance(CLSID_SystemDeviceEnum, 0, CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, (LPVOID*)&pDevEnum);
 
            if(SUCCEEDED(hr))
            {
 
      //создает счетчик для определенной категории устройств
        hr = pDevEnum->CreateClassEnumerator(CLSID_VideoInputDeviceCategory, &pEnum, 0);
 
      if(SUCCEEDED(hr))
            {
          if( pEnum->Next(1, &pMoniker,0) == S_OK )
        {
        hr = pMoniker->BindToObject(0, 0, IID_IBaseFilter, (void **)&pCapture);
 
              //hr = pGraph->AddFilter(pCapture, L"CaptureFilter");
              //pGraph->RenderFile(L"D:\\Wildlife.wmv", NULL); //чтение файла - работает
 
        if(SUCCEEDED(hr))
                {
          pGraph->AddFilter(pCapture, L"Capture Filter");
          hr = pBuild->RenderStream(/*&PIN_CATEGORY_PREVIEW*/NULL, NULL/*&MEDIATYPE_Video*/, pCapture, NULL, NULL);  //3,4,5 Параметры - фильтры, которые объединены в граф
 
          pDevEnum->Release();
                  pEnum->Release();
                  pMoniker->Release();
 
                  // Specify the owner window.
            IVideoWindow *pVidWin = NULL;
                  OAHWND hWnd;
 
          pGraph->QueryInterface(IID_IVideoWindow, (void **)&pVidWin);
 
                  pVidWin->put_Owner((OAHWND)hWnd);
                  pVidWin->put_WindowStyle( WS_CHILD | WS_CLIPSIBLINGS );
 
                  pVidWin->put_Left(0);
                  pVidWin->put_Top(0);
                  pVidWin->put_Width(640);
                  pVidWin->put_Height(480);
 
                  // Set the owner window to receive event notices.
                  pGraph->QueryInterface(IID_IMediaEventEx, (void **)&pEvent);
                  pEvent->SetNotifyWindow((OAHWND)hWnd, 0, 0);
 
                  // Run the graph.
                  pGraph->QueryInterface(IID_IMediaControl, (void **)&pMediaControl);
                  pMediaControl->Run();
 
 
 
            }
            else
                  pBuild->Release();
 
        }
        }
      }
    }
  }
 }
}

а вопрос о передаче потока по на другой комп остается нерешенным

может есть кто-то, кто рылся в этом направлении, просветите пожалуйста

raxper · 22.02.2012, 08:32

...интерфейсы DirectShow едины, в посту #2 приведен готовый к использованию код захвата, вывода и предаче потока по сети.

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@TswetkOFF 4 / 4 / 0 Регистрация: 14.12.2010 Сообщений: 7

	Работа с веб-камерой, видеосвязь 30.01.2012, 03:04. Показов 7183. Ответов 3 Метки нет (Все метки) доброго времени суток! передо мной стоит задача организовать общение по веб-камере между двумя компьютерами через интернет. посоветуйте пожалуйста в каком направлении двигаться. изображение на форму вывел таким же способом как в этой теме, спасибо LK и Sambrise. 1

raxper 10236 / 6614 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	22.02.2012, 08:32
	...интерфейсы DirectShow едины, в посту #2 приведен готовый к использованию код захвата, вывода и предаче потока по сети. 0