none
הצגת יוטיוב ב- vb.net RRS feed

תשובות

  • שלום,

    מצאתי עוד אפשרות של הצגת יוטיוב ללא הורדת היוטיוב.

    ההצגה היא באמצעות MediaPlayer:

    היתרון- חוסך את הזמן של ההורדה וכן זה חוסך לי משאבי זיכרון בתוכנה.

    גם כאן  יש להתקין נוגט: VideoLibrary 

    הקוד:

    Dim y As VideoLibrary.YouTube = New YouTube
     Dim yv As VideoLibrary.YouTubeVideo = y.GetVideo(txt_youtubeurl.Text)
    
    'display with media player*'
    
    AxWindowsMediaPlayer1.URL = yv.Uri
    AxWindowsMediaPlayer1.settings.setMode("loop", True)
    AxWindowsMediaPlayer1.Ctlcontrols.play()

    יום שני 04 יוני 2018 09:00
  • שלום,

    בסוף מצאתי את הפתרון בעצמי,

    והוא:

    להוריד את הסרטון של ה- יוטיוב באמצעות קוד, אז להריץ אותו ב vlc או MediaPlayer

    להלן הקוד שמוריד את הסרטון ושומר לי אותו כוידאו:

    Dim y As VideoLibrary.YouTube = YouTube.Default
                Dim vid As Video = y.GetVideo(txt_youtubeurl.Text)
    
                Dim url = txtTo.Text + "\" + vid.FullName
                System.IO.File.WriteAllBytes(url, vid.GetBytes())

    בשביל זה יש להתקין נוגט: VideoLibrary

    ואני ארשום גם את הקוד של הפעלת הסירטו באמצעות MediaPlayer:

      AxWindowsMediaPlayer1.URL = url
            AxWindowsMediaPlayer1.settings.setMode("loop", True)
            AxWindowsMediaPlayer1.Ctlcontrols.play()

    בהצלחה


    יום חמישי 17 מאי 2018 13:04

כל התגובות

  • יש למשהוא תשובה??

    זה די דחוף לי.

    יום חמישי 17 מאי 2018 08:24
  • שלום,

    בסוף מצאתי את הפתרון בעצמי,

    והוא:

    להוריד את הסרטון של ה- יוטיוב באמצעות קוד, אז להריץ אותו ב vlc או MediaPlayer

    להלן הקוד שמוריד את הסרטון ושומר לי אותו כוידאו:

    Dim y As VideoLibrary.YouTube = YouTube.Default
                Dim vid As Video = y.GetVideo(txt_youtubeurl.Text)
    
                Dim url = txtTo.Text + "\" + vid.FullName
                System.IO.File.WriteAllBytes(url, vid.GetBytes())

    בשביל זה יש להתקין נוגט: VideoLibrary

    ואני ארשום גם את הקוד של הפעלת הסירטו באמצעות MediaPlayer:

      AxWindowsMediaPlayer1.URL = url
            AxWindowsMediaPlayer1.settings.setMode("loop", True)
            AxWindowsMediaPlayer1.Ctlcontrols.play()

    בהצלחה


    יום חמישי 17 מאי 2018 13:04
  • שלום,

    מצאתי עוד אפשרות של הצגת יוטיוב ללא הורדת היוטיוב.

    ההצגה היא באמצעות MediaPlayer:

    היתרון- חוסך את הזמן של ההורדה וכן זה חוסך לי משאבי זיכרון בתוכנה.

    גם כאן  יש להתקין נוגט: VideoLibrary 

    הקוד:

    Dim y As VideoLibrary.YouTube = New YouTube
     Dim yv As VideoLibrary.YouTubeVideo = y.GetVideo(txt_youtubeurl.Text)
    
    'display with media player*'
    
    AxWindowsMediaPlayer1.URL = yv.Uri
    AxWindowsMediaPlayer1.settings.setMode("loop", True)
    AxWindowsMediaPlayer1.Ctlcontrols.play()

    יום שני 04 יוני 2018 09:00
  • כל הכבוד על כך שפרסמת את הפתרון שמצאת

    +5

    שבת 25 יולי 2020 18:12
    בעלים