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