Блог

Главная - Вопросы по программированию - VB.net Видеофайл, воспроизводящий музыку только в проигрывателе Windows media

VB.net Видеофайл, воспроизводящий музыку только в проигрывателе Windows media

#vb.net #axwindowsmediaplayer

Вопрос:

 If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Temp amp; "vid.mp4") Then
            AxWindowsMediaPlayer1.Visible = True
            AxWindowsMediaPlayer1.URL = My.Computer.FileSystem.SpecialDirectories.Temp amp; "vid.mp4"

        Else
            My.Computer.Network.DownloadFile("mywebsite.tk/vid.mp4", My.Computer.FileSystem.SpecialDirectories.Temp amp; "vid.mp4")
            Dim sizeInBytes As String = FileLen(My.Computer.FileSystem.SpecialDirectories.Temp amp; "vid.mp4")
checksize:
            Threading.Thread.Sleep(500)
            If sizeInBytes.StartsWith("1455") Then
                MsgBox("Succesfully downloaded. Click ok to install.")
                AxWindowsMediaPlayer1.Visible = True
                AxWindowsMediaPlayer1.URL = My.Computer.FileSystem.SpecialDirectories.Temp amp; "vid.mp4"
            Else
                GoTo checksize
            End If
        End If

    End Sub
End Class

Видео не воспроизводится, оно просто воспроизводит некоторые визуализаторы и музыку.

Это показывает это:

Комментарии:

1. После загрузки видео вы убедились, что оно действительно правильно сохраняется? Я бы также предложил, возможно, взглянуть на модернизацию вашего управления потоком. GoTo на самом деле является 20-летним удержанием от старого vb и в настоящее время его не следует использовать

2. @Hursey да, проверил, и видео загрузилось правильно, и его можно воспроизвести с помощью внешнего проигрывателя. Не используйте GoTo, но не могли бы вы порекомендовать что-нибудь вместо этого? Также это работает нормально, просто видео воспроизводится не так, как должно

Метки: ,