Usa el típico componente WebBrowser.
Descarga: http://www.box.net/shared/tgff4zrb41
Incluye el código fuente.
- Código:
Código
namespace Reproductor; interface uses System.Drawing, System.Collections, System.Collections.Generic, System.Linq, System.Windows.Forms, System.ComponentModel; type MainForm = partial class(System.Windows.Forms.Form) private method Nav(Address:String); method NavFile(FileName:String); method Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs); method salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); method toolSBack_Click(sender: System.Object; e: System.EventArgs); method toolSNext_Click(sender: System.Object; e: System.EventArgs); method toolSReload_Click(sender: System.Object; e: System.EventArgs); method toolSStop_Click(sender: System.Object; e: System.EventArgs); method toolSHome_Click(sender: System.Object; e: System.EventArgs); method toolSIr_Click(sender: System.Object; e: System.EventArgs); method Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs); method Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs); method Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs); method abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); method abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); method trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); method pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); method MainForm_Load(sender: System.Object; e: System.EventArgs); method acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); protected method Dispose(disposing: Boolean); override; public constructor; end; implementation {$REGION Construction and Disposition} constructor MainForm; begin InitializeComponent(); end; method MainForm.Dispose(disposing: Boolean); begin if disposing then begin if assigned(components) then components.Dispose(); end; inherited Dispose(disposing); end; {$ENDREGION} method MainForm.Nav(Address:String); begin if Not Address.StartsWith('http://') And Not Address.StartsWith('https://') then Address := 'http://' + Address; try Navegador.Navigate(New Uri(Address)); except on E:Exception do Navegador.DocumentText := '<h1><span style="font-weight: bold; font-family: Calibri;"><img alt="" src="http://cdn.iconfinder.net/data/icons/solarsystem/PNG/128x128/earth.png"> </span></h1><h1><span style="font-weight: bold; font-family: Calibri;">Un error ha ocurrido... :(</span></h1>___________________________<span style="font-weight: bold; font-family: Calibri;">DaGiMe Explorer<br> v1.0 <br> Desarrollado por <a href="http://daw-labs.com">DaW - Labs</a><br></span>'; end; end; method MainForm.NavFile(FileName: String); begin if Not FileName.StartsWith('file:///') then FileName := 'file:///'+FileName; Navegador.Navigate(New Uri(FileName)); end; method MainForm.Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs); begin Direccion.Text := Navegador.Url.AbsoluteUri; lbEstado.Text := Navegador.StatusText; Text := Navegador.Document.Title + ' - DaGiMe Explorer'; end; method MainForm.salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); begin Close(); end; method MainForm.toolSBack_Click(sender: System.Object; e: System.EventArgs); begin if Navegador.CanGoBack = True then Navegador.GoBack; end; method MainForm.toolSNext_Click(sender: System.Object; e: System.EventArgs); begin if Navegador.CanGoForward = True then Navegador.GoForward; end; method MainForm.toolSReload_Click(sender: System.Object; e: System.EventArgs); begin Navegador.Refresh(); end; method MainForm.toolSStop_Click(sender: System.Object; e: System.EventArgs); begin Navegador.Stop(); end; method MainForm.toolSHome_Click(sender: System.Object; e: System.EventArgs); begin Nav(toolsHome.ToolTipText); end; method MainForm.toolSIr_Click(sender: System.Object; e: System.EventArgs); begin Nav(Direccion.Text); end; method MainForm.Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs); begin if (E.KeyCode = Keys.Enter) then Nav(Direccion.Text); end; method MainForm.Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs); begin lbEstado.Text := Navegador.StatusText; end; method MainForm.Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs); begin lbEstado.Text := 'Página cargada con éxito'; end; method MainForm.abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); begin Direccion.Focus; Direccion.SelectAll; end; method MainForm.abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); begin if OpenFile.ShowDialog = DialogResult.OK then NavFile(OpenFile.FileName); end; method MainForm.trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); begin Navegador.ShowSaveAsDialog end; method MainForm.pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); begin end; method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs); begin Nav(ToolSHome.ToolTipText); end; method MainForm.acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs); var F:Form; begin F := New DaGiMeF; F.Show; end; end.