Jeeps,
ik heb deze code:
Public Function testWebcam() As String
Dim mijnFoto As cPicture24
On Error GoTo E_Handle
'Foto nemen
If ocxWebcam.CapSingleFrame Then
picFoto.Cls
ocxWebcam.SaveDIB ocxWebcam.CaptureFile
Set picFoto.Picture = LoadPicture(ocxWebcam.CaptureFile)
'Kill ocxWebcam.CaptureFile
End If
ocxWebcam.Preview = True
testWebcam = "ok"
Exit Function
E_Handle:
testWebcam = "fout"
Resume Next
Exit Function
End Function
dit kijkt of ik een foto kan trekken met een aangesloten webcam. indien deze dus niet is aangesloten lukt dit niet en zou hij "fout" moeten retourneren.
spijtig genoeg lukt dit niet. hij geeft telkens een "ok" terug. ik zie echt de fout niet.
kan iemand helpen?
greets B
Voor de actie dien je te zetten:
On Error Resume Next
Na de actie dien je te zetten
On Error Goto E_Handle
Groetjes Mike
hmmm ben ni gjeel mee...
zo bedoel je dan:
Public Function testWebcam() As String
Dim mijnFoto As cPicture24
On Error Resume Next
'Foto nemen
If ocxWebcam.CapSingleFrame Then
picFoto.Cls
ocxWebcam.SaveDIB ocxWebcam.CaptureFile
Set picFoto.Picture = LoadPicture(ocxWebcam.CaptureFile)
'Kill ocxWebcam.CaptureFile
End If
ocxWebcam.Preview = True
testWebcam = "ok"
On Error GoTo E_Handle
E_Handle:
testWebcam = "fout"
Exit Function
End Function
Probeer dit es:
Public Function testWebcam() As String
Dim mijnFoto As cPicture24
If ocxWebcam.CapSingleFrame Then
On Error Resume Next
picFoto.Cls
ocxWebcam.SaveDIB ocxWebcam.CaptureFile
Set picFoto.Picture = LoadPicture(ocxWebcam.CaptureFile)
'Kill ocxWebcam.CaptureFile
On Error GoTo E_Handle
End If
ocxWebcam.Preview = True
testWebcam = "ok"
E_Handle:
testWebcam = "fout"
End Function
ik heb dit dus getest, werkt niet echt...
bij dit krijg ik altijd "fout" ook al is de webcam ingeplugged.
wat misschien nog een interessant gegeven is, ik maak van dit een OCX die ik dan als object embed in html.
en via Javascript roep ik de functie testWebcam() aan.
greetz
Public Function testWebcam() As String
Dim mijnFoto As cPicture24
On Error GoTo E_Handle
'Foto nemen
If ocxWebcam.CapSingleFrame Then
picFoto.Cls
ocxWebcam.SaveDIB ocxWebcam.CaptureFile
Set picFoto.Picture = LoadPicture(ocxWebcam.CaptureFile)
'Kill ocxWebcam.CaptureFile
ocxWebcam.Preview = True
testWebcam = "ok"
Else
ocxWebcam.Preview = False
testWebcam = "fout"
End If
Exit Function
E_Handle:
testWebcam = "fout"
Exit Function
In je code ga je er van uit dat ocxWebcam.CapSingleFrame een foutmelding opgooit als het mislukt, terwijl er waarschijnlijk False als functiewaarde teruggekeerd wordt.
thx it works!!
Fijn je uit de nood te kunnen helpen.
Ik krijg de indruk dat VB5/6-programmeurs dun gezaaid beginnen te worden.
Sinna
idd die zijn heel dun gezaaid...
kprogrammeer er ook maar mini dingskes in zoals een ocx voor webcam of een EID-kaartlezer.
omdak geen ander programma ken da ocx'en kan maken. en omda VS2003 en hoger teveel kost (vb6 had ik liggen van tijdens mijn studententijd)
Microsoft geeft speciale studentenversies van Visual Studio uit, die gratis en ongelimiteerd te gebruiken zijn.
