Discussion and support for VLC media player and friends
http://forum.videolan.org/
Code: Select all
Dim argv() As String = {"-I", "--dummy-quiet", "--ignore-config", "--vout=direct3d", "--no-video-title-show"}
If RtspCaching > 0 And Filename.ToUpper.StartsWith("RTSP") Then
Dim intL As Int32 = argv.Length
ReDim Preserve argv(intL)
argv(intL) = "--rtsp-caching=" & CStr(RtspCaching)
End If
If Orientation > 0 Then
Dim intL As Int32 = argv.Length
ReDim Preserve argv(intL + 1)
argv(intL) = "--vout-filter=transform"
argv(intL + 1) = "--transform-type=" & CStr(Orientation)
Else
Dim intL As Int32 = argv.Length
ReDim Preserve argv(intL + 1)
argv(intL) = "--vout-filter="
argv(intL + 1) = "--transform-type=" & CStr(Orientation)
End If
If _ShowLogo Then
Dim intL As Int32 = argv.Length
ReDim Preserve argv(intL + 3)
Dim strA As String = System.AppDomain.CurrentDomain.BaseDirectory
argv(intL) = "--logo-file=" & strA & "player_logo.png"
argv(intL + 1) = "--logo-position=10"
argv(intL + 2) = "--logo-transparency=128"
argv(intL + 3) = "--sub-filter=logo"
Else
Dim intL As Int32 = argv.Length
ReDim Preserve argv(intL)
argv(intL) = "--sub-filter="
End If