Hallo,
hat jemand schonmal einen "WinTV USB2-Receiver" mit PB
betrieben und hierbei 25 Bilder/sek Live-Video erhalten ?
Ich habe das mit der "AVICAP" probiert, doch erhaelt man
hier nur 15 frames/sec........
Jetzt liegt dem "WinTV" ein OCX (hcwWinTV.ocx) bei,
aus dem ich mit der "COMLIB - von aXent" ein OBJECT
erstelle und das Teil registriere.
Mit DEBUG bringt das OBJECT selbst, wie auch einige
der Funktionen einen Wert rueber.
Doch das, laut -Betriebsanleitung- nach dem Aktivieren
des OCX mit "put_Enabled" automatisch
erscheinende Video, ist nicht vorhanden.
Der unten stehende SOURCE meldet, wie auch bei den
original-Programmen von "WinTV" nach abziehen des WinTV-Geraetes
-- can not locate Capture filter --
Der Kontakt zum Object selbst muesste somit Ok sein,
nur der Source ist falsch.?!?!.......
Bevor ich mich mit Direct-Show rumplagen muss oder
mir VisualBasic anschaffe frage ich doch zuerst mal die hier
im PB-Forum lebenden faehigen Progger ob sich damit jemand
auskennt,
bzw besitzt irgendwer dieses WinTV-Teil und kennt eine Loesung.
Bin Euch zum Dank verpflichtet.
Sam Asbach
PB 3.92 - COMLIB
PS: Es existieren ja genuegend "Videorecorder"-Programme,
doch alle mit winzigen Schaltern, Tastern
und noch kleineren Slidern...............
; ----- SOURCE -------------
; ( einen Auszug aus dem Interface )
;
; Interface generated by Interface Generator 1.0, Date 02/02/2005
; hcwWinTVControl, Hauppauge WinTV OCX
; Enumerations
Enumeration ; hcwVideoSource
#hcwVideoSource_Tuner = 0
#hcwVideoSource_Composite1 = 1
#hcwVideoSource_Composite2 = 2
#hcwVideoSource_Composite3 = 3
#hcwVideoSource_Svideo = 4
#hcwVideoSource_FM = 5
EndEnumeration
Enumeration ; hcwTVAspectRatio
#hcwTVAspectRatio_On = 0
#hcwTVAspectRatio_Off = 1
EndEnumeration
; DispInterfaces
Interface _hcwWinTVocx Extends IDispatch
put_Enabled(a)
get_Height(a)
put_Height(a)
get_Width(a)
put_ClosedCaption(a)
get_VideoFormat(a)
put_VideoFormat(a)
get_VideoMode(a)
put_VideoMode(a)
get_VideoSource(a)
put_VideoSource(a)
get_VideoSourceByType(a)
put_VideoSourceByType(a)
get_Volume(a)
put_Volume(a)
get_BoardType(a)
EndInterface
;-------------------- Create Object ------------------------
;-------Name--------------------------------X-Control--ProgID-----
WIN._hcwWinTVocx = CreateObject("hcwWinTVControl.hcwWinTVocx")
;------------------------------------------------------
OpenWindow(0, 0, 0, 720, 568, #PB_Window_SystemMenu | #PB_Window_ScreenCentered ,"")
;---------- OCX aktivieren ----------------------
Debug Win\put_Enabled(true) ; kein Wert
Win\put_Enabled(true)
Debug Win\put_VideoSourceByType(#hcwVideoSource_Composite1) ; Wert vorhanden
Win\put_VideoSourceByType(#hcwVideoSource_Composite1)
;--------------------------------------------------
Repeat
Event = WindowEvent()
Until Event = #PB_EventCloseWindow
;--------------------------------------------------
ReleaseObject(WIN) ; freigeben
End
; ExecutableFormat=
; CursorPosition=21
; FirstLine=1
; EOF