[Delphi.NET] DaGiMe Explorer by .:WindHack:.

[.:WindHack:.]

Una navegador programado en Delphi Prism (Oxygen) o como me gusta decirle, Delphi.NET.
Usa el típico componente WebBrowser.



Descarga: http://www.box.net/shared/tgff4zrb41

Incluye el código fuente.

- Código:

Código (delphi) [Seleccionar] Expandir

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">&nbsp;</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.

[SpuTniK.]

Excelente aporte, no se nada de Delphi asi que me tendre que descargar el ejecutable , tengo que decir que gráficamente se ve muy bien, creo que te falto un poco decir las características del navegador, pero aun así excelente trabajo

Saludos!