משיב מוביל
הצגת יוטיוב ב- vb.net

שאלה
-
תשובות
-
שלום,
מצאתי עוד אפשרות של הצגת יוטיוב ללא הורדת היוטיוב.
ההצגה היא באמצעות 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()
בהצלחה
- הוצע כתשובה על-ידי pituachMVP, Moderator יום שישי 18 מאי 2018 17:47
- סומן כתשובה על-ידי pituachMVP, Moderator יום שני 21 מאי 2018 00:59
כל התגובות
-
-
שלום,
בסוף מצאתי את הפתרון בעצמי,
והוא:
להוריד את הסרטון של ה- יוטיוב באמצעות קוד, אז להריץ אותו ב 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()
בהצלחה
- הוצע כתשובה על-ידי pituachMVP, Moderator יום שישי 18 מאי 2018 17:47
- סומן כתשובה על-ידי pituachMVP, Moderator יום שני 21 מאי 2018 00:59
-
שלום,
מצאתי עוד אפשרות של הצגת יוטיוב ללא הורדת היוטיוב.
ההצגה היא באמצעות 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
-