Hi,
versuche eine WAV-Datei abzuspielen:
Public IPSMediaPlayer As New IIPSMediaPlayer.IIPSMediaPlayerservice
Public Function Play_Music() As Boolean
Try
Dim Pfad As String = "C:\Windows\media\ding.wav"
Dim TID_Header As New IIPSMediaPlayer.TIDHeader
TID_Header.ID = 17099
IPSMediaPlayer.TIDHeaderValue = TID_Header
IPSMediaPlayer.SetVolume(100)
IPSMediaPlayer.PlayFile(Pfad)
TID_Header = Nothing
Return True
Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
End Try
End Function
Bei der Zeile …PlayFile(Pfad) erscheint dann die Fehlermeldung: „Media Player Fehler (4): Abspielen fehlgeschlagen“.
Kann mir jemand sagen, was ich falsch mache?
Gruß
Kim