| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

передача видео [D7, WinXP]

Hero ©   (2007-10-15 03:02:00) 

Передать звук мне удалось
а вот с видео никак

картинку получаю так:

function capCreateCaptureWindowA(lpszWindowName : PCHAR;
                                dwStyle : longint;
                                x : integer;
                                y : integer;
                                nWidth : integer;
                                nHeight : integer;
                                ParentWin  : HWND;
                                nId : integer): HWND;
                                STDCALL EXTERNAL 'AVICAP32.DLL';
- - -
procedure onOpen
 hWndC := capCreateCaptureWindowA('CapWnd',
                                  WS_CHILD or WS_VISIBLE ,
                                  Panel1.Left,
                                  Panel1.Top,
                                  Panel1.Width,
                                  Panel1.Height,
                                  Form1.Handle,
                                  0);
if hWndC <> 0 then
   SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);

procedure GetFrame
 if hWndC <> 0 then
   SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);


представленный код (в схематичном виде)
но примерно так.
а вот дальше как? "закатать" в битмам и передавать?
даже при размере 320Х240 битмам весит 225 кб

а может уже готовые компоненты есть?
подскажите пожалуйста

---

Hero   (2007-10-16 01:19:00) [1]

ух и далеко же от меня этот mitov маршрут в 29 прижков и каждый прижок все медленне и медленне , эти 90 мб качаются уже час. Ладно буду ждать

---

Hero   (2007-10-16 00:51:00) [2]

спасибо

---

Сергей М.   (2007-10-15 10:19:00) [3]

http://www.mitov.com/html/videolab.html

---

Наверх