Mensajes

Llevo programando un año y siete meses. Tengo 14, así que empecé a los 13.

Saludos,

[Delphi Prism]

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.

[Bru2712]

Bru2712, has probado la declaración así:

Código (cpp) [Seleccionar] Expandir

#include <iostream>

using namespaces std;

[Pac-Man Rulz!]

También pensé que era un .GIF 

Saludos y Pac-Man Rulz!

[290 KB]

He recibido algunos comentarios sobre el excesivo peso del comando, así que he hecho una optimización y pesa actualmente 290 KB.

Saludos,

[DaW Command]

DaW Command como su nombre lo indica, es un comando para el intérprete de Windows® CMD.
Para usarlo simplemente debe copiar el archivo DaW-Command.exe en la carpeta System32 y listo.

- Opciones
-?: Muestra la ayuda.
-m: Muestra un mensaje. Modo de uso: DaW-Command -m Mensaje
-mA: Muestra un MessageBox. Modo de uso: DaW-Command -mA Mensaje
-h: Muestra la hora.
-c: Copia un archivo. Modo de uso: DaW-Command -c RutaOrigen RutaDestino
-e: Obtiene el nombre del Computador.
-u: Obtiene el nombre de usuario.
-f: Muestra la fecha.
-n: Crea un archivo. Modo de uso: DaW-Command -n RutaYNombreArchivo
-iX: Convierte un número a Hexadecimal. Modo de uso: DaW-Command -iX Número
-hI: Convierte una cadena Hexadecimal a Número. Modo de uso: DaW-Command -hI Cadena
-sR Obtiene la raíz cuadrada de un número. Modo de uso: DaW-Command -sR Número
-A: Convierte una cadena a ASCII (Extendido). Modo de Uso: DaW-Command -A Cadena Separador (Opcional)
-DaW: Visita el sitio web de DaW - Labs.

- Vídeo de demostración
http://www.youtube.com/watch?v=wZw76ZtObgk

- Descargar


Sitio Oficial: http://daw-labs.com

[Delphi]

Ya había programado esta función en Delphi, así que me decidí a traducirla a C/C++.

Código (cpp) [Seleccionar] Expandir


/* DaW - Labs - http://daw-labs.com */

#include <windows.h>

int main(int argc, CHAR* argv[])
{
char Buffer[MAX_COMPUTERNAME_LENGTH + 1];
DWORD nSize = sizeof(Buffer);
if (GetComputerName(Buffer,&nSize))
{
MessageBox(0,Buffer,"Nombre de PC",MB_OK | MB_ICONINFORMATION);
}
return 0;

- Windows
Google Chrome
Embarcadero RAD Studio 2010 (2011).
Bluefox Player

- Linux (Ubuntu)
Google Chrome
Lazarus
Amarok

[C++]

Estaba aburrido, no tenía nada que hacer, así que me puse a programar algo en C++.

Éste es un bloc de notas sencillo, pero con las funcionalidades esenciales. Perdonen si hay errores o si el código no está completamente optimizado, pues no programo mucho en este lenguaje.

Espero sirva de base o mejor dicho de ejemplo.



Programado en: Borland C++ Builder

Descargar: Box.net – Notepad(C++).rar

Código:

Código (cpp) [Seleccionar] Expandir

//---------------------------------------------------------------------------//
//---------------------------------------------------------------------------//
//-------------------- Notepad(C++) by DaW - Labs  ----------------------//
//---------------------------------------------------------------------------//
//   Éste es un bloc de notas programado en C++ Builder.
//   Si deseas compartirlo o mejorarlo puedes hacerlo, pero respeta la
//   fuente y el autor del mismo.
//   Desarrollado por DaW - Labs®
//--------------------------------------------------------------------------//

#include <vcl.h>
#include <clipbrd.hpp>
#pragma hdrstop

#include "uMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmMain *frmMain;
UnicodeString FileName;

const
UnicodeString Espacio = " - ";
UnicodeString App = "Notepad (C++) ";
UnicodeString NuevoTexto = "Sin_título.txt";
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
MemoEditor->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Abrir1Click(TObject *Sender)
{
if (OpenDialog->Execute() == True) {
{
FileName = OpenDialog->FileName;
MemoEditor->Lines->LoadFromFile(FileName);
Caption = ExtractFileName(FileName)+Espacio+App;
MemoEditor->Modified = False;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Guardar1Click(TObject *Sender)
{
if (FileName == "")
{
if (SaveDialog->Execute())
  {
FileName = SaveDialog->FileName;
MemoEditor->Lines->SaveToFile(FileName);
Caption = ExtractFileName(FileName)+Espacio+App;
MemoEditor->Modified = False;
  }
}
else
{
MemoEditor->Lines->SaveToFile(FileName);
Caption = ExtractFileName(FileName)+Espacio+App;
MemoEditor->Modified = False;
}
}

//---------------------------------------------------------------------------
void __fastcall TfrmMain::Nuevo1Click(TObject *Sender)
{
if (MemoEditor->Modified == False)
{
MemoEditor->Clear();
FileName = "";
MemoEditor->Modified = False;
Caption = NuevoTexto+Espacio+App;
}
else
{
switch (MessageBox(Handle,"¿Desea guardar los cambios?","Información", MB_YESNO | MB_ICONQUESTION))
{
case IDYES:
Guardar1Click(Sender);
break;

case IDNO:
MemoEditor->Clear();
FileName = "";
MemoEditor->Modified = False;
Caption = NuevoTexto+Espacio+App;
break;
   }
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Guardarcomo1Click(TObject *Sender)
{
if (SaveDialog->Execute())
{
FileName = SaveDialog->FileName;
MemoEditor->Lines->SaveToFile(FileName);
Caption = ExtractFileName(FileName)+Espacio+App;
MemoEditor->Modified = False;
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Salir1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditCut1Execute(TObject *Sender)
{
MemoEditor->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditCopy1Execute(TObject *Sender)
{
MemoEditor->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditPaste1Execute(TObject *Sender)
{
MemoEditor->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditSelectAll1Execute(TObject *Sender)
{
MemoEditor->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditUndo1Execute(TObject *Sender)
{
MemoEditor->Undo();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditDelete1Execute(TObject *Sender)
{
MemoEditor->ClearSelection();
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditCopy1Update(TObject *Sender)
{
EditCopy1->Enabled = MemoEditor->SelLength > 0;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditPaste1Update(TObject *Sender)
{
EditPaste1->Enabled = Clipboard()->HasFormat(CF_TEXT);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::EditUndo1Update(TObject *Sender)
{
EditUndo1->Enabled = MemoEditor->CanUndo;
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FuenteClick(TObject *Sender)
{
FontDialog->Font->Assign(MemoEditor->Font);
if (FontDialog->Execute())
{
MemoEditor->Font->Assign(FontDialog->Font);
}
}
//---------------------------------------------------------------------------


Respeten la fuente y el autor (DaW - Labs).

Mi querido y adorado procesador.