[VB 6.0]meerde webcams.

[!kke]

hallo..

ik maak voor school een beveiligings/controll systeem..
daarbij wil ik een programma maken waar ook de 4 webcams/camara's te zien zijn.

maar nu heb ik een probleem. ik heb een script gevonden om bij 1 webcam te kijken.. maar ik heb geen keuze tussen webcams. en als ik een vakje waarbij ik mn webcam kan kiezen krijg kan ik alleen:

Microsoft WDM Image Capture (Win32) [Version: 5.1.2600.2180]

kiezen.


dit is het script wat ik nu heb:


Dim hwdc As Long
Dim startcap As Boolean
Private Sub cmdCapture_Click()
Dim temp As Long

hwdc = capCreateCaptureWindow("Dixanta Vision System", ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
startcap = True
Else
MsgBox ("No Webcam found")
End If
End Sub

Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub

Private Sub cmdVideoFormat_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub


kan iemand mij helpen??

/edit
oeps.. spelfout in de topictitel
/edit

[ Voor 2% gewijzigd door !kke op 20-03-2007 20:56 . Reden: spelfout in de topictitel ]

[TweakBoy]

nee, script request.. daat lijkt het op.

het feit dat je pc maar 1 camera kan vinden is misschien omdat het maar 1 kan vinden? / 1 driver?

[Noork]

Tja ik weet 't niet hoor, ik kom dit scriptje letterlijk tegen via Google. Misschien kun je even een mailtje sturen naar [e-mail] . Wat heb je zelf zoal geprobeerd?

Oh, je code kun je het beste tussen [code] tags plaatsen.

[ Voor 32% gewijzigd door Noork op 20-03-2007 21:02 ]

[Verwijderd]

1. Het is code, geen script.

2. Je hoeft enkel een classe te schrijven, en 1 waarde aan te passen...

3. Maar ik help je niet met een 'script' request

[!kke]

sorry voor alle fouten in mn topicstart. maar ik ben een nogal een beginner in VB..

[RobIII]

Beste !kke,

Zoals je in ons beleid kunt lezen doen we hier niet aan 'quick-fix' oplossingen of 'scriptrequests'; dit soort topics gaan regelrecht op slot. Bekijk voor de zekerheid ook even onze quickstart voordat je een nieuw topic opent, om te zien wat we verwachten van een topicstart. Voor support op 'scripts' (of code) die je gevonden hebt op het web verwijzen we je overigens zowieso naar de maker(s).

Tot slot: als je code post, gebruik dan [code] tags om het geheel leesbaarder te maken

[ Voor 23% gewijzigd door RobIII op 20-03-2007 21:11 ]