I'm making program to show Live Video in Picture Box directly from small camera plugged in 'S-Video In' port on Graphic Card.
I know how to open and play AVI files by using mciSendString API(code example):
Sub PlayVideo()
Dim returnstring As String
Dim erg
returnstring = Space(127)
erg = mciSendString("open " & Chr$(34) & FileName & Chr$(34) & " type AviVideo alias myvideo", returnstring, 127, 0)
erg = mciSendString("window myvideo handle " & Picture1.hWnd, returnstring, 127, 0)
erg = mciSendString("play myvideo", returnstring, 127, 0)
End Sub
That's it... But how to initialize and play, Video which is not saved ? I need help to show that Live Video in Picture Box. When I say Live Video I mean that small camera(WebCam) directly and constanly shows video. With my graphic card (NVidiaRiva TNT 2 Ultra) comes software 'Asus Live' which can directly plays video in window (from WebCam trough S-Video In port on the card). That is what I need, but I have to make easier program with some options what 'Asus Live' can't do. I only want to know how 'Asus Live' display Live video in Picture Box or Form (I think with few calls of mciSendString API, but my work wasn't successfull). :( :confused:
------------------
Any help is greatly appreciated.
Kameni
