VLC Player mit Dateipfad ausführen.

  • VB.NET
  • .NET (FX) 4.0

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    VLC Player mit Dateipfad ausführen.

    Moin! :)
    Ich habe ein seltsames Problem festgestellt.
    Mein Ziel ist es per Button einen VLC-Player mit Pfad zu einer MP3 Datei auszuführen.
    Diesen Code verwende ich!
    Leider kann ich nicht jede Datei aufrufen.
    Es kommt folgende Fehlermeldung!
    BIG THX


    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. With Me.OpenFileDialog1
    6. .Title = "Suchen Sie sich eine Datei aus."
    7. .FileName = ""
    8. .Filter = "Alle Daten|*.*"
    9. .InitialDirectory = Application.StartupPath
    10. End With
    12. If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
    13. Dim vlcProcess As New Process
    15. vlcProcess.StartInfo.FileName = "C:\Anwendungen\VLC\vlc.exe"
    16. vlcProcess.StartInfo.Arguments = Me.OpenFileDialog1.FileName
    17. vlcProcess.StartInfo.WorkingDirectory = Application.StartupPath
    18. vlcProcess.Start()
    19. End If
    20. End Sub
    21. End Class


    ' C:\Users\derBenutzer\Documents\Visual Studio 2017\Projects\WindowsApp15\WindowsApp15\bin\Debug\1.mp3
    Visual Basic.NET 8o
    MS-SQL     8o

    @Cheffboss In Deinem Pfad sind Leerzeichen.
    Mach da mal Apostrophen drum herum.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hmm statt einer Festen Vlc.exe Verbindung sollte man vielleicht ne Registry Suche machen, damit wird die vlc Player Wiedergabe gestartet.
    Da sich der Pfad bei jedem auf dem PC ändern kann, nicht jeder hat ihn auf C ;)

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports System.IO
    3. Imports System.Diagnostics
    5. Public Class Form1
    6. Private Function IsVLCInstalled() As Boolean
    7. Dim keyPath As String = "Software\VideoLAN\VLC"
    8. Dim registryKeysToCheck As RegistryKey() = {Registry.LocalMachine, Registry.CurrentUser}
    10. For Each baseKey In registryKeysToCheck
    11. Using key As RegistryKey = baseKey.OpenSubKey(keyPath)
    12. If key IsNot Nothing Then
    13. Return True ' Der Schlüssel existiert, VLC ist installiert
    14. End If
    15. End Using
    16. Next
    18. Return False ' Der Schlüssel existiert nicht, VLC ist nicht installiert
    19. End Function
    21. Private Function GetVLCPath() As String
    22. Dim keyPath As String = "Software\VideoLAN\VLC"
    23. Dim registryKeysToCheck As RegistryKey() = {Registry.LocalMachine, Registry.CurrentUser}
    25. For Each baseKey In registryKeysToCheck
    26. Using key As RegistryKey = baseKey.OpenSubKey(keyPath)
    27. If key IsNot Nothing Then
    28. Dim vlcPath As Object = key.GetValue("InstallDir")
    29. If vlcPath IsNot Nothing Then
    30. Return Path.Combine(vlcPath.ToString(), "vlc.exe")
    31. End If
    32. End If
    33. End Using
    34. Next
    36. Return Nothing ' VLC ist nicht installiert oder der Pfad wurde nicht gefunden
    37. End Function
    39. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    40. If IsVLCInstalled() Then
    41. With Me.OpenFileDialog1
    42. .Title = "Suchen Sie sich eine Datei aus."
    43. .FileName = ""
    44. .Filter = "Alle Daten|*.*"
    45. .InitialDirectory = Application.StartupPath
    46. End With
    48. If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
    49. Dim selectedFile As String = Me.OpenFileDialog1.FileName
    51. If File.Exists(selectedFile) Then
    52. Dim vlcPath As String = GetVLCPath()
    54. If Not String.IsNullOrEmpty(vlcPath) Then
    55. Try
    56. Dim vlcProcess As New Process
    57. vlcProcess.StartInfo.FileName = vlcPath
    58. vlcProcess.StartInfo.Arguments = selectedFile
    59. vlcProcess.StartInfo.WorkingDirectory = Path.GetDirectoryName(selectedFile)
    60. vlcProcess.Start()
    61. Catch ex As Exception
    62. MessageBox.Show("Fehler beim Starten von VLC: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    63. End Try
    64. Else
    65. MessageBox.Show("Der Pfad zum VLC Player wurde nicht gefunden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    66. End If
    67. Else
    68. MessageBox.Show("Die ausgewählte Datei existiert nicht.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    69. End If
    70. End If
    71. Else
    72. MessageBox.Show("Der VLC Player ist nicht auf Ihrem Computer installiert.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    73. End If
    74. End Sub
    75. End Class

    Edit: Pfad Fehler behoben, jetzt läuft das :D

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Andy2002“ ()

    Andy2002 schrieb:

    Ich denke das war nicht das ziel von Cheffboss.

    Das stimmt wohl. Dennoch sollte man sich überlegen ob es sinnvoll ist externe Programme zu verwenden wenn man es selbst programmieren kann. Was ist wenn ein User kein VLC installiert hat? Muss dieser dann VLC zwangsweise installieren obwohl man das evtl. gar nicht möchte? Darüber hinaus bietet VLC auch ein AX an -> wiki.videolan.org/ActiveX/ Nix Pfad suchen usw. Einfach das AX verwenden und gut ist obwohl hier auch der VLC installiert sein muss.
    Mfg -Franky-

    -Franky- schrieb:

    Was ist wenn ein User kein VLC installiert hat? Muss dieser dann VLC zwangsweise installieren obwohl man das evtl. gar nicht möchte?
    Dann muss er natürlich programmieren lernen, wenn er es nicht kann. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende