ЗАХВАТ ИЗОБРАЖЕНИЯ С ТВ-ТЮНЕРА ИЛИ ВИДЕО-ГЛАЗА

[PATRIOT_kz]

Здравствуйте.
Мы здесь собрались по очень важному вопросу,
стоящему в наши дни. Вопрос выглядет так :::)
---
"Как сделать захвать изображения с тв-тюнера или видео-глазка?".
Я узнал следующее что нужно, Flash player 6.0 у меня ловил изображение с тв-тюнера, в функции где он должен ловить изображение с видео-глаза. Это навернео многие уже знают.
Так вот но наверное не все знают как можно capture'ровать
WDM драйверные входы.

Поэтому просьба от всего народа, помочь не только мне.

[Aleksej]

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

Private Declare Function SendMessage Lib "user32" Alias _
                         "SendMessageA" ( _
                         ByVal hwnd As Long, _
                         ByVal wMsg As Long, _
                         ByVal wParam As Long, _
                         lParam As Any) As Long

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias _
                         "capCreateCaptureWindowA" ( _
                         ByVal lpszWindowName As String, _
                         ByVal dwStyle As Long, _
                         ByVal x As Integer, ByVal y As Integer, _
                         ByVal nWidth As Integer, _
                         ByVal nHeight As Integer, _
                         ByVal hwndParent As Long, _
                         ByVal nId As Integer) As Long

Private Type CAPDRIVERCAPS
    wDeviceIndex As Long
    fHasOverlay As Boolean
    fHasDlgVideoSource As Boolean
    fHasDlgVideoFormat As Boolean
    fHasDlgVideoDisplay As Boolean
    fCaptureInitialized As Boolean
    fDriverSuppliesPalettes As Boolean
    hVideoIn As Long
    hVideoOut As Long
    hVideoExtIn As Long
    hVideoExtOut As Long
End Type

Private Const WM_USER = &H400
Private Const WM_CAP_DRIVER_CONNECT = WM_USER + 10
Private Const WM_CAP_DRIVER_DISCONNECT = WM_USER + 11
Private Const WM_CAP_DRIVER_GET_CAPS = WM_USER + 14
Private Const WM_CAP_DLG_VIDEOSOURCE = WM_USER + 42
Private Const WM_CAP_SET_OVERLAY = WM_USER + 51
Private Const WM_CAP_SEQUENCE = WM_USER + 62

Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
'*******************************************************
Public Function CreateVideoCapture(Form As Form) As Long
Dim hWndVideoWindow As Long
Dim CapInfo As CAPDRIVERCAPS


hWndVideoWindow = capCreateCaptureWindow("", _
    WS_CHILD Or WS_VISIBLE, 10, 10, 768, 576, Form.hwnd, 0)

if hWndVideoWindow= 0 Then
   CreateVideoCapture=0
   Exit Function
endIf

    Call SendMessage(hWndVideoWindow, WM_CAP_DRIVER_CONNECT, 0, 0)
    Call SendMessage(hWndVideoWindow, WM_CAP_DRIVER_GET_CAPS, _
                     Len(CapInfo), VarPtr(CapInfo))
    Call SendMessage(hWndVideoWindow, WM_CAP_SET_OVERLAY, True, 0)
CreateVideoCapture = hWndVideoWindow
End Function
'***********************************************************
Public Function DestroyVideoCapture()
Call SendMessage(hWndVideoWindow, WM_CAP_DRIVER_DISCONNECT, 0, 0)
End Function


[PATRIOT_kz]

Спасибки те большое!

Вот где гении живут, в Латвии!
Только вопросик есть, у меня VIDEO_API нету,
Если знаешь подскажи или если знаешь ссылку на
подобную видео библиотечку где взял, то напиши её!


---
С большим уважением,
к Латвии и всему народу,
VB-Net'a.

[Aleksej]

Лови Help по Multimedia

[PATRIOT_kz]

Спасибки щас буду качать . . .
Просто недавно купил тв-тюнер "RoverMedia TV-Link Pro"