AviCap verursacht Fehler

[Batze]

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

[dige]

Da die Lib von Andreas Miethe ist, wende Dich am besten direkt an Ihn über
seine Homepage: http://www.ampsoft.de/

[Batze]

Ich befürchte leider, dass das an PB liegt.
Der Code funktionierte nämlich glaube ich früher mal.
Hat den mal jemand anderes ausprobiert?

[Delle]

Oh schon etwas älter...

Habe gestern damit auch mal rumgespielt, der Fehler liegt in dem Bereich:

Drivers.s = Space(1024)
DriverAnz = CapGetDrivers(Drivers)
DrivereNr = -1
Treiber.s = "Nur mal ein Beispiel!" ; Was soll das für ein Fehler sein?

In der AviCap ist anscheinend ein Bug. Man kann nach dem Aufruf via CapGetDrivers() keinen String mehr hinmachen, davor schon.

Solltest Du das nutzen wollen, muss also eine eigene Abfrage der verfügbaren Videoquellen her...