By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,289 Members | 1,457 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,289 IT Pros & Developers. It's quick & easy.

??? How to display IEEE 1394 video in a GUI ???

P: n/a
Hello all,

I found the following visual basic 6.0 source code on the web for
displaying web cam video in a GUI. However, I want to display video
from a camera which is hooked up through firewire (IEEE 1394), not
USB. What portion of the code would I need to change in order to
achieve this?

Thanks in advance,
-Bill

---------------------------------------------------------

Option Explicit

Const ws_visible = &H10000000
Const ws_child = &H40000000
Const WM_USER = 1024
Const WM_CAP_EDIT_COPY = WM_USER + 30
Const wm_cap_driver_connect = WM_USER + 10
Const wm_cap_set_preview = WM_USER + 50
Const wm_cap_set_overlay = WM_USER + 51
Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Const WM_CAP_SEQUENCE = WM_USER + 62
Const WM_CAP_SINGLE_FRAME_OPEN = WM_USER + 70
Const WM_CAP_SINGLE_FRAME_CLOSE = WM_USER + 71
Const WM_CAP_SINGLE_FRAME = WM_USER + 72
Const DRV_USER = &H4000
Const DVM_DIALOG = DRV_USER + 100
Const PREVIEWRATE = 30

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam As Long) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll"
Alias "capCreateCaptureWindowA" (ByVal a As String, ByVal b As Long,
ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As
Integer, ByVal g As Long, ByVal h As Integer) As Long

Dim hwndc As Long
Dim saveflag As Integer
Dim pictureindex As Integer
Dim filter1(-1 To 1, -1 To 1) As Single
Dim filter2(-1 To 1, -1 To 1) As Single
Dim temp As String

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error GoTo handler:
hwndc = capCreateCaptureWindow("CaptureWindow", ws_child Or
ws_visible, 0, 0, PichWnd.Width, PichWnd.Height, PichWnd.hWnd, 0)
If (hwndc <> 0) Then
temp = SendMessage(hwndc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwndc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwndc, WM_CAP_SET_PREVIEWRATE, PREVIEWRATE,
0)

temp = SendMessage(Me.hWnd, WM_CAP_EDIT_COPY, 1, 0)
Picture1.Picture = Clipboard.GetData
Else
MsgBox "Unable to capture video.", vbCritical
End If
Exit Sub
handler:
End
End Sub
Jul 17 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a

"Bill" <we***@drexel.edu> wrote in message
news:6b**************************@posting.google.c om...
Hello all,

I found the following visual basic 6.0 source code on the web for
displaying web cam video in a GUI. However, I want to display video
from a camera which is hooked up through firewire (IEEE 1394), not
USB. What portion of the code would I need to change in order to
achieve this?

Thanks in advance,
-Bill


<code snipped>

The code uses avicap32 win api. If that code works witha USB camera, should
work with any camera that's installed properly on the system. If not, e-mail
me your e-mail address and I'd look for the code I have.
Jul 17 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.