Текущий архив: 2008.08.24;
Скачать: CL | DM;

Вниз

передача видео   Найти похожие ветки 

← →
Hero ©   (2007-10-15 03:02) [0]

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

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

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 кб

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

---

← →
Сергей М. ©   (2007-10-15 10:19) [1]

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

---

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

спасибо

---

← →
Hero ©   (2007-10-16 01:19) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.08.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c