Embed Web Video
Embed Web Video in your desktop application
Introduction
This sample will let you embed/stream web based Flash video into an application.
Background
First we need to add the "Microsoft Web Browser" Control to the "ToolBox" (the default "WebBrowser" control will work, it's a little buggy for this project. :-(
To add the WebBrowser control to your toolbox, open the "Tools" menu and select "Choose ToolBox Items...".
Select the COM Components tab, check the box next to Microsoft Web Browser, and click OK.
The new Microsoft WebBrowser should be added to the Toolbox now.
Using the Code
Public Class Form1
'Start Button Click Event
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'Clear out the RTB to receive the new HTML
RichTextBox1.Text = ""
'Create the HTML with the Embedded code, from the Clipboard
RichTextBox1.AppendText("<html>" & _
ControlChars.NewLine & "<body>" & _
ControlChars.NewLine & My.Computer.Clipboard.GetText & _
ControlChars.NewLine & "</body>" & _
ControlChars.NewLine & "</html>")
'Save/Overwrite the HTML file
RichTextBox1.SaveFile(Application.StartupPath & "\321.html", _
RichTextBoxStreamType.PlainText)
'Show the WaitCursor
Windows.Forms.Cursor.Current = Cursors.WaitCursor
'Load the new HTML file into the browser, so we can watch the video in our app.
AxWebBrowser1.Navigate(Application.StartupPath & "\321.html")
'Show the default Cursor
Windows.Forms.Cursor.Current = Cursors.Default
End Sub
'Refresh Button Click Event
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
'Refresh the browser, also stops/rewind the video
AxWebBrowser1.Refresh()
End Sub
End Class
Points of Interest
Note: 'When the "Start" button is clicked, the application creates/overwrites a new file (Application.StartupPath & "\321.html").
The application then loads the new HTML file in the web-browser, click the "Play" button on the Flash video.
The HTML file can be found in the "Embed_YouTube\bin\Debug" folder.
History
- 12th December, 2007: Initial post