[Ajuda] Browser em Delphi

[kattysa]

Olá!
Eu preciso fazer um browser em delphi, mas não faço a minima como fazer, e inda por cima ainda não estou muito á vontade com esta linguagem.
Alguem me pode ajudar?
E alguem poderia colocar um codigo ou assim pa eu tirar ideias.
Bigada

[cgoncalves]

kattysa aqui tens um exemplo bem simples:

Code Select Expand

unit Unit1;



interface



uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, OleCtrls, SHDocVw, ComCtrls, StdCtrls, Menus, MMSystem, ExtCtrls,

 ShockwaveFlashObjects_TLB, ColorGrd;



type

 TForm1 = class(TForm)

   WebBrowser1: TWebBrowser;

   StatusBar1: TStatusBar;

   GroupBox1: TGroupBox;

   Label1: TLabel;

   Edit1: TEdit;

   MainMenu1: TMainMenu;

   Arquivo1: TMenuItem;

   Sobre1: TMenuItem;

   SAir1: TMenuItem;

   GroupBox2: TGroupBox;

   Button1: TButton;

   Button2: TButton;

   cdrom1: TMenuItem;

   CDROOM1: TMenuItem;

   Abrir1: TMenuItem;

   Fechar1: TMenuItem;

   Timer1: TTimer;

   procedure Button1Click(Sender: TObject);

   procedure WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

   procedure WebBrowser1DownloadBegin(Sender: TObject);

   procedure Edit1KeyPress(Sender: TObject; var Key: Char);

   procedure Edit2KeyPress(Sender: TObject; var Key: Char);

   procedure Edit3KeyPress(Sender: TObject; var Key: Char);

   procedure Edit4KeyPress(Sender: TObject; var Key: Char);

   procedure Button2Click(Sender: TObject);

   procedure WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

   procedure SAir1Click(Sender: TObject);

   procedure Sobre1Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Abrir1Click(Sender: TObject);

   procedure Fechar1Click(Sender: TObject);

   procedure Timer1Timer(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;



var

 Form1: TForm1;



implementation



uses Unit2, Unit3;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

 if pos(\\'http://\\',edit1.Text)=0 then edit1.Text:=\\'http://\\'+edit1.Text;

 button1.Visible:=false;

 button2.Visible:=true;

 webbrowser1.Navigate(edit1.Text);

end;



procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;

 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

 Headers: OleVariant; var Cancel: WordBool);

begin

 StatusBar1.Panels[0].Text:=\\'  Status: Conectando...\\';

end;



procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);

begin

 StatusBar1.Panels[0].Text:=\\'  Status: Carregando...\\';

end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then button1.onclick(sender);

end;



procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then button1.onclick(sender);

end;



procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then button1.onclick(sender);

end;



procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then button1.onclick(sender);

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

 button1.Visible:=true;

 button2.Visible:=false;

 WebBrowser1.Stop;





end;



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

 const pDisp: IDispatch; var URL: OleVariant);

begin

 button1.Visible:=true;

 button2.Visible:=false;

 StatusBar1.Panels[0].Text:=\\'  Status: Parado.\\';

end;



procedure TForm1.SAir1Click(Sender: TObject);

begin

close;

end;



procedure TForm1.Sobre1Click(Sender: TObject);

begin

form2.ShowModal;

end;





procedure TForm1.Button4Click(Sender: TObject);

begin

mciSendString(\\'Set cdaudio door closed wait\\', nil, 0, handle);

end;



procedure TForm1.Abrir1Click(Sender: TObject);

begin

mciSendString(\\'Set cdaudio door open wait\\', nil, 0, handle);

end;



procedure TForm1.Fechar1Click(Sender: TObject);

begin

mciSendString(\\'Set cdaudio door closed wait\\', nil, 0, handle);

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[1].Text := TimeToStr(Time);

StatusBar1.Panels[2].Text := DateToStr(Date);

end;



end.
Contudo no próprio delphi tens alguns exemplos e um desses exemplos é um navegador.

Podes sempre ver também o site: http://bdn.borland.com/article/0,1410,27843,00.html

[kattysa]

eh obrigada mesmo!! ver se este fim de semana começo já a faze-lo!! =)