AviCap verursacht Fehler
Verfasst: 11.09.2005 11:05
So, ich wollte die AviCap-Lib benutzen aber ich verstehe leider nicht warum da ein Fehler in Zeile 16 ein Fehler auftritt. 
Code: Alles auswählen
OpenWindow(0, 10, 10, 400, 580, #PB_Window_MinimizeGadget, "Stopmotion Camera")
CreateGadgetList(WindowID(0))
ButtonGadget( 1, 10, 255, 70, 20, "Anzeige")
ButtonGadget( 2, 85, 255, 70, 20, "Format")
ButtonGadget( 3, 160, 255, 80, 20, "Kompression")
CHandle = CreateCapwindow(WindowID(0), 10, 10, 320, 240, 0)
If CHandle = 0
CapFree()
End
EndIf
Drivers.s = Space(1024)
DriverAnz = CapGetDrivers(Drivers)
DrivereNr = -1
Treiber.s = "Nur mal ein Beispiel!" ; Was soll das für ein Fehler sein?
For i=1 To DriverAnz
TreiberName.s = "Möchten sie mit '" + Trim(StringField(Drivers, i, ",")) + "' verbunden werden?"
If MessageRequester("Verbingung ?", TreiberName, #PB_MessageRequester_YesNo) = 6
DriverNr = i - 1
EndIf
Next
If DriverNr = -1
CapFree()
End
EndIf
CapConnect(DriverNr)
CapSetPreview(8, 1)
Repeat
Event = WindowEvent()
If Event = #PB_Event_Gadget
Select EventGadgetID()
Case 1 : CapDisplayDlg()
Case 2 : CapFormatDlg()
Case 3 : CapCompressDlg()
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
CapFree() ; Kameratreiber freigeben