Форум: "Сети";
Текущий архив: 2008.08.24;
Скачать: [xml.tar.bz2];
Внизпередача видео Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.079 c