Einzelnen Beitrag anzeigen

Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.262 Beiträge
 
Delphi 2010 Architect
 
#1

Video läuft aber nur Ton.. Windows 10

  Alt 6. Jan 2019, 09:22
Ich finde die Lösung nicht warum mein Player kein Video rendert und was in\unter Windows 10 das verhindert.
Vorweg es hat bisher immer funktioniert unter Win7 daher möchte ich bezweifeln das es an meinem Code liegt!
Es wird die QuartzTypeLib verwendet.

Code:
Public MediaControl             As IMediaControl
Public MediaPosition            As IMediaPosition
Public BasicAudio               As IBasicAudio
Public VideoWindow              As IVideoWindow
Public BasicVideo               As IBasicVideo
Code:
Private Sub sndPlayMediaControl(ByVal Filename As String)

Dim mLeft  As Integer
Dim mTop   As Integer
Dim uWidth As Integer
Dim uHeight As Integer

    On Error GoTo sndPlayMediaControlErr

    ChangeRenderEvents 0

    Set MediaControl = New FilgraphManager
    If MediaControl Is Nothing Then
        MsgBox "Kann die Ojektlib Mediacontrol nicht erstellen"
        Exit Sub
    End If

    Set MediaPosition = MediaControl
    Set BasicAudio = MediaControl
    Set BasicVideo = MediaControl
    Set VideoWindow = MediaControl
   
    MediaControl.RenderFile Filename
    MediaPosition.CurrentPosition = 0

    uWidth = (UserControl.ScaleWidth - 20) / 15
    uHeight = UserControl.ScaleHeight / 15

    With VideoWindow
        .WindowStyle = CLng(&H6000000)
        .SetWindowPosition mLeft, mTop, uWidth, uHeight
        .Owner = UserControl.hwnd
        .MessageDrain = UserControl.hwnd
    End With 'VideoWindow

    MediaControl.Run
    strStatus = "Playing"
    Songlist.Visible = False

Exit Sub

sndPlayMediaControlErr:
    txtBlood.Caption = "Falsches Format 'Codec nicht installiert?'"
    txtBlood.Visible = True

End Sub
Also was könnte unter Windows 10 verhindern das mein Video abgespielt wird.
Ich kann es mir nicht erklären.

Es stürzt nichts ab es gibt keine Fehler aber es wird trotzdem nichts gerendert. Schwarzes Bild halt.

gruss

Geändert von EWeiss ( 6. Jan 2019 um 09:26 Uhr)
  Mit Zitat antworten Zitat