-         

Ergebnis 1 bis 7 von 7

Thema: video capture

  1. #1
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    20.06.2004
    Beiträge
    1.941

    video capture

    Anzeige

    suche in visual-basic ein programm, womit man die wintv-dll auslesen kann und bilder auf dem bildschirm mit hilfe von visual-basic bringen kann, ohne das programm wintv zu starten. ich möchte die bilder direkt auswerten am pc, die vom robby zu mir gesendet werden.
    ähnliche ideen sind auch willkommen. ich arbeite mit "bcx-to c" freeware visual-programm, ist ein wunderbares programm. damit steuere ich visuell meinen küchenbrettroboter. man kann 3d bilder einlesen in verschiedenen 3d-formaten (md2,3ds,x usw.), sprites drehen in x-y-z-richtung, avi als hintergrund der sprite z.b. da das basic-programm nachher in c umgewandelt wird, kommt es ohne dll aus, man muss nur die objekte (bilder,musik,video) mitgeben. man kann ein visual-basic-programm gut als beispiel umsetzen. man kann mit bcx-to-c auch dlls erstellen.
    mfg pebisoft

  2. #2
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    02.08.2004
    Ort
    Stuttgart
    Alter
    42
    Beiträge
    849
    Hallo Pebisoft,

    ich habe da eine DLL bei meiner Videocard mitgeliefert bekommen von Hauppage. das ist aber eine komplette OCX. Die ersetzt praktisch die WinTV-Oberfläche und man kann die in eine eingene Applikation einbinden mit allen den üblichen Funktionalitäten. Bei Interesse einfach mal melden, dann geb ich dir den Link. Aber: Es liest in keine fremde PicBox ein! Man kann damit aber Screenshots machen lasen.

    Grüsse Wolfgang

  3. #3
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    20.06.2004
    Beiträge
    1.941
    das ist schon ein erster schritt zu meinem projekt. vielen dank.
    mail: pebisoft@web.de
    mfg pebisoft

  4. #4
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    02.08.2004
    Ort
    Stuttgart
    Alter
    42
    Beiträge
    849
    Hallo Pebisoft!

    Eine Information und die OCX habe ich dir mit der Bezugsquelle mal per eMAil gesendet. Auf dem Link kannst du auch die VB-Implamation als Beispiel herunterladen. Das hilft dir sicher die OCX in Betrieb zu bekommen.

    URL: http://213.221.87.83/sw_pci.htm

    Grüsse Wolfgang

  5. #5
    Benutzer Stammmitglied
    Registriert seit
    27.11.2004
    Ort
    Heilbronn
    Alter
    33
    Beiträge
    85
    ich habe das gleiche problem.
    Bei mir ist ein WDM Device verfügbar aber kein OCX.

    Wie gehe ich da weiter vor?

    almic

  6. #6
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    02.08.2004
    Ort
    Stuttgart
    Alter
    42
    Beiträge
    849
    Hallo,

    Ich habe mal das Beispielscript unter VB angefügt, ist aber auch in Delphi, C++, VC und HTML (Java) verfügbar. Kann man direkt auf der Seite bei Hauppage unter Treiber herunterladen passend zur eigenen Karte.

    Code:
    '/*******************************************************************************
    '*
    '*       HH  HH     CCCC  WW           WW
    '*       HH  HH   CCCCCC  WW           WW
    '*       HH  HH  CCC      WW           WW
    '*       HHHHHH  CCC       WW   WWW   WW
    '*       HH  HH  CCC       WW  WW WW  WW
    '*       HH  HH   CCCCCC    WWWW   WWWW
    '*       HH  HH     CCCC     WW     WW
    '*
    '*       Copyright (C) 1994-1998
    '*       Hauppauge Computer Works, Inc
    '*       91 Cabot Court
    '*       Hauppauge, NY  11788
    '*       516 / 434-1600
    '*
    '*******************************************************************************/
    '********************************************************************************
    '*
    '*           Hauppauge Computer Works WinTV OCX Sample Application
    '*                      for use with hcwWinTV.ocx
    '*
    '********************************************************************************
    
    ' This sample application is to show how to use the Hauppauge WinTV OCX in Visual
    ' Basic. Be sure hcwWinTV.ocx is installed and registered.
    
    ' This sample application is assuming the user's WinTV board has both a Tuner and
    ' a Composite video input, actual application should detect the hardware avalibility
    ' first, and deals with the inputs accordingly.
    
    ' This application is just a simple example, it may not be pratical, or complete.
    ' Compiled and tested in Visual Basic 6.0.
    
    Private Sub cmdChanExplorer_Click()
        ' bring up the channel explorer dialog
        hcwWinTVocx1.ShowChannelExplorer
    End Sub
    
    Private Sub cmdChannelDown_Click()
        ' tune down the channel
        hcwWinTVocx1.ChannelDown
    End Sub
    
    Private Sub cmdChannelUp_Click()
        ' tune up the channel
        hcwWinTVocx1.ChannelUp
    End Sub
    
    Private Sub cmdMotionCapFormat_Click()
        ' bring up the Motion Capture Format config dialog
        hcwWinTVocx1.MotionCapFormat
    End Sub
    
    Private Sub cmdMotionCapSetup_Click()
        'bring up the Motion Capture Setup Dialog
        hcwWinTVocx1.MotionCapSetup
    End Sub
    
    Private Sub cmdMotionCapture_Click()
        ' Start the Motion Capture, a mouse click or hit the Esc key will stop the capturing
        hcwWinTVocx1.MotionCapture
    End Sub
    
    Private Sub cmdMotionPalyback_Click()
        ' play back the AVI file captured by the program
        hcwWinTVocx1.MotionPlayback
    End Sub
    
    Private Sub cmdSaveToDisk_Click()
        ' this call display the "Print..." dialog, and
        ' save the image to a disk file
        Call hcwWinTVocx1.SaveToDisk
    End Sub
    
    Private Sub cmdFreeze_Click()
        ' freeze or unfreeze the video according to its
        ' previous status
        Call hcwWinTVocx1.ToggleFreezeVideo
    End Sub
    
    Private Sub cmdShowAudioControlBox_Click()
        ' show the audio config dialog box
        Call hcwWinTVocx1.ShowAudioControlBox
    End Sub
    
    Private Sub cmdShowColorControlBox_Click()
        ' show the color config dialog box
        Call hcwWinTVocx1.ShowColorControlBox
    End Sub
    
    Private Sub cmdSnapshot_Click()
        ' do a 800*600 snapshot
        hcwWinTVocx1.SnapShot (800)
    End Sub
    
    Private Sub cmdSurf_Click()
        ' do channel surfing, press the button again will stop the surfing.
        If hcwWinTVocx1.SurfMode = False Then
            hcwWinTVocx1.SurfStart
        Else
            hcwWinTVocx1.SurfEnd
        End If
    End Sub
    
    Private Sub Command1_Click()
    
    End Sub
    
    Private Sub Form_Load()
        ' during the form load, we need to get some information
        ' from the winTV control, and adjust the display accordingly.
        
        ' enable the WinTV control
        hcwWinTVocx1.Enabled = True
        
        ' determine the current video input source
        Select Case hcwWinTVocx1.VideoSourceByType
            Case hcwVideoSource_Tuner
                optionTuner.Value = True
            Case hcwVideoSource_Composite1, _
                    hcwVideoSource_Composite2, _
                    hcwVideoSource_Composite3
                optionComposite.Value = True
            Case Else
                optionTuner.Value = False
                optionComposite.Value = False
        End Select
        
        ' determin the current volume level
        SliderVolume.Value = hcwWinTVocx1.Volume
        
        ' determine the current Contrast and HSB level
        sliderContrast.Value = hcwWinTVocx1.Contrast
        sliderBrightness.Value = hcwWinTVocx1.Brightness
        
        ' determine the current Control Panel Position
        optionToolBarPosition(hcwWinTVocx1.ToolBarPosition).Value = True
    End Sub
    
    Private Sub Form_Resize()
        ' if form is minimized, don't do anything
        If frmAppSample.WindowState = 1 Then   '1 - minimized
            Exit Sub
        End If
        ' limit the form size, be sure all the contents can be seen
        If frmAppSample.ScaleWidth < Frame2.Width + 4000 Then
            frmAppSample.Width = Frame2.Width + 4000
        End If
        If frmAppSample.ScaleHeight < Frame2.Height + Frame3.Height + Frame4.Height + Frame5.Height + 200 Then
            frmAppSample.Height = Frame2.Height + Frame3.Height + Frame4.Height + Frame5.Height + 850
        End If
        ' resize the video frame and OCX to follow the size of form
        frameVideo.Left = Frame2.Width + 30
        frameVideo.Top = 90
        frameVideo.Width = frmAppSample.ScaleWidth - Frame2.Width - 30
        frameVideo.Height = frmAppSample.ScaleHeight - 120
        hcwWinTVocx1.Width = frameVideo.Width - 200
        hcwWinTVocx1.Height = frameVideo.Height - 320
    End Sub
    
    Private Sub hcwWinTVocx1_HSBChanged(Contrast As Long, _
                                        Hue As Long, _
                                        Saturation As Long, _
                                        Brightness As Long)
        ' adjust the sliders according to the new HSB levels
        sliderContrast.Value = Contrast
        sliderBrightness.Value = Brightness
    End Sub
    
    Private Sub hcwWinTVocx1_InputSourceChanged(InputSource As _
                                    hcwWinTVControl.hcwVideoSource)
        ' adjust the input source option buttons according to the new source
        If InputSource = hcwVideoSource_Tuner Then
            optionTuner.Value = True
        End If
        If InputSource = hcwVideoSource_Composite1 Or _
                InputSource = hcwVideoSource_Composite2 Or _
                InputSource = hcwVideoSource_Composite3 Then
            optionComposite.Value = True
        End If
    End Sub
    
    Private Sub hcwWinTVocx1_VolumeChanged(Volume As Long)
        ' adjust the volume slider according to the new volume
        SliderVolume.Value = Volume
    End Sub
    
    Private Sub menuAbout_Click()
        ' show the WinTV OCX about box
        Call hcwWinTVocx1.ShowAboutBox
    End Sub
    
    Private Sub menuCCon_Click()
        ' Turn CC on.
        If menuCCon.Checked Then
            menuCCon.Checked = False
        Else
            menuCCon.Checked = True
        End If
        
        If hcwWinTVocx1.GetCCState = True Then
            hcwWinTVocx1.ClosedCaption = menuCCon.Checked
        Else
            MyVar = MsgBox("Closed Caption Not Available!", 65, "WinTV Example")  ' MyVar contains either 1 or 2,
        End If
        
      
    End Sub
    
    Private Sub menuExit_Click()
        ' when exit the program, the OCX will terminate by itself,
        ' no need to take care of it
        Unload frmAppSample
    End Sub
    
    Private Sub optionComposite_Click()
        ' switch the video input source to the first Composite input
        hcwWinTVocx1.VideoSourceByType = hcwVideoSource_Composite1
    End Sub
    
    Private Sub optionToolBarPosition_Click(Index As Integer)
        ' set the ToolBarPostion
        hcwWinTVocx1.ToolBarPosition = Index
    End Sub
    
    Private Sub optionTuner_Click()
        ' switch the video input source to the Tuner
        hcwWinTVocx1.VideoSourceByType = hcwVideoSource_Tuner
    End Sub
    
    Private Sub SliderContrast_Scroll()
        ' adjust the picture Contrast by the slider value
        hcwWinTVocx1.Contrast = sliderContrast.Value
    End Sub
    
    Private Sub sliderBrightness_Scroll()
        ' adjust the picture Brightness level by the slider value
        hcwWinTVocx1.Brightness = sliderBrightness.Value
    End Sub
    
    Private Sub SliderVolume_Scroll()
        ' adjust the volume by the slider value
        hcwWinTVocx1.Volume = SliderVolume.Value
    End Sub
    Grüsse Wolfgang

  7. #7
    Benutzer Stammmitglied
    Registriert seit
    01.12.2004
    Ort
    Buxtehude
    Beiträge
    70
    Hallo Almic,
    Pepisoft,

    Ich hab vor Jahren mal ne Video for Windows Echtzeitanwendung in VB geschrieben. Ich hab dabei das Tutorial von E. J. Bantz benutzt.
    es ist toll gemacht. Du kannst jedes Device verwenden und es ist relativ einfach in eigenen Anwendungen zu einzubinden. Unterstützt wird VB ab version 5. Hier der Link: http://ej.bantz.com/video/
    Ich hoffe das hilft.
    Viele Grüße
    Werner

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •