Crear un Navegador con Delphi 7

Bueno, antes que nada hoy ingrese al mundo de la programacion en Delphi 7 con un tutorial echo por DarK_FirefoX y me parecio muy sencillo el trabajar con Delphi ya que todo lo grafico te lo hace por si mismo, solo te queda el trabajo de darle estilo y poner los eventos.

Mi primer meta en Delphi es realizar un Navegador como Internet Explorer o FireFox, pero como soy novato en esto solo le pondre lo basico que necesita un navegador.
Mi base es esta:

Necesito Ayuda y alguien q me tenga paciencia

porque como dije soy novato, y tal vez me cueste entender. Pero como dije la Base esta

Mi codigo es este:

Citar

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, Menus, Buttons;

type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
ComboBox1: TComboBox;
Panel2: TPanel;
WebBrowser1: TWebBrowser;
ProgressBar1: TProgressBar;
atras: TBitBtn;
BitBtn2: TBitBtn;
actualizar: TBitBtn;
BitBtn4: TBitBtn;
MainMenu1: TMainMenu;
Archivo1: TMenuItem;
Edicion1: TMenuItem;
Ver1: TMenuItem;
Herramientas1: TMenuItem;
Ayuda1: TMenuItem;
ir: TBitBtn;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

end;

end.

La Pregunta es... ¿como hago para que mi programa navegue como IExplorer o FireFox?
E leido por ahi que primero debo poner en el Browser donde se tecla la www.ejemplo.com

esto:

Citar

procedure TFormulario.URLKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;

Pero cuando intento correrlo me aparece error

Citar

procedure TFormulario.URLKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;

Saque esto de esta web: ¿Puedo poner la Web? por q no se si esta permitido...

Les agradeceria si me dan una mano.

hola, que bueno, que te a interesado este lenguaje, realmente es muy util, voy a intentar darle respuesta a tu problema....

Primero este código no funciona

Código

procedure TFormulario.URLKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
  if key = VK_RETURN then
  begin
    WebBrowser.Navigate( URL.Text );
    URL.Items.Add( URL.Text );
  end;
end;

Porque no se refiere a componentes existentes, en tu formulario no hay componenete nombrado URL, y el formulario no se llama Formulario, para cambiarle los nombres para referirse a ellos, hay que cambiar la propiedad Name.

Bien ahora lo que vamos a Hacer......te voy a poner un ejemplo.....
bien....primero lo que haces es insertar el componente WebBrowser en el formulario, esta en la paleta Internet.....Y lo insertas en el formulario, insertas un Edit1, y en la propiedad name le pones URL

El formulario se veria así....

Nota: veras que el Edit URL dice

Código

http://

, se lo puse en la propiedad caption, para referirse a una URL hay que ponerle

Código

http://

luego vamos a programar ese Edit, el evento OnKeyDown que esta en la paleta Eventos del Inspector de Propiedades, le vas a poner:

Código

if key = VK_RETURN then //Comprueba si la tecla que se pulso fue ENTER
  begin 
    WebBrowser1.Navigate( URL.Text ); //Inicia la navegación en el WebBrowser utilizando la dirección contenida en el Edit URL
  end;

Nota: Este componente utiliza la configuración del Internet Explorer, o sea si el Internet Explorer tiene configuración Proxy, o plugin instalado este componente lo va a utilizar....

Si tienes alguna duda postea,

Salu2s

hola

antes que nada... y ya que te veo aqui te agradezco por el tutorial que me es muy necesario, ya que quiero empezar a programar

y dentro de poco lo comenzare a estudiar programador.

volviendo al tema

Listo, gracias ahi lo solucione el problema estaba en que no ponia la Key que iva a utilizar :-[

Muchas Gracias por tu ayuda

Saludos.

KnightFire_Xen hay un demo muy completo que viene on delphi en donde podras partiren C:\Archivos de programa\Borland\Delphi7\Demos

por otro lado el componente WebBrowser es una instancia del Interner Explorer tomando de este su configuración con lo cual para setear que salga por ejemplo por otro proxy tendras que setearlo en Internet explorer

Cita de: acertij022 en 05 Mayo 2008, 21:18

....

por otro lado el componente WebBrowser es una instancia del Interner Explorer tomando de este su configuración con lo cual para setear que salga por ejemplo por otro proxy tendras que setearlo en Internet explorer

Cita de: DarK_FirefoX

Nota: Este componente utiliza la configuración del Internet Explorer, o sea si el Internet Explorer tiene configuración Proxy, o plugin instalado este componente lo va a utilizar....

Me alegra que te intereses en delphi, pero como programador de este te recomiendo una cosa, no te dejes guiar en que delphi pueda parecer fácil al utilizar casi directamente componentes...piensa que programar no es poner cajas de texto o labels, programar es conocer bien los tipos de variables,constantes, estructuras y tener una base de matemáticas y creación de algorismos.

Es por eso que yo siempre digo que antes de tocar el delphi, es mejor meter-se en pascal, (delphi en modo consola) porque aí es realmente donde se piensa como generar una rutian para hacer X cosa... o como ingeniarselas para hacer Y cosa....

Por cierto, para el navegador, se ha de utilizar el componente webbrowser...y no es complicado, aunque te recomiendo que antes de empezar con este componente aprendas pascal y luego te familiarizes con el entorno visual de delphi.

Despues de esto, ya veras como te saldran cosas por sí solas.

Citar

Es por eso que yo siempre digo que antes de tocar el delphi, es mejor meter-se en pascal, (delphi en modo consola) porque aí es realmente donde se piensa como generar una rutian para hacer X cosa... o como ingeniarselas para hacer Y cosa....

Realmente estas en lo cierto, yo empeze con Pascal en la escuela, pero delphi nadie me lo enseño, lo aprendi yo mismo, etc,,

Salu2s

hard-h2o modding Foros de ayuda Yashira.org Videojuegos indetectables.net

Noticias Informatica Seguridad Informática ADSL Foros en español eNYe Sec

Todas las webs afiliadas están libres de publicidad engañosa.