Autor Tópico: [Ajuda] Browser em Delphi  (Lida 1974 vezes)

Offline kattysa

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
[Ajuda] Browser em Delphi
« em: Janeiro 14, 2008, 01:59:08 pm »
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

Offline cgoncalves

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
[Ajuda] Browser em Delphi
« Responder #1 em: Janeiro 14, 2008, 04:10:12 pm »
kattysa aqui tens um exemplo bem simples:

Código: [Seleccione]
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

Offline kattysa

  • Newbie
  • *
  • Mensagens: 0
  • Karma: +0/-0
    • Ver Perfil
[Ajuda] Browser em Delphi
« Responder #2 em: Janeiro 14, 2008, 04:32:24 pm »
eh obrigada mesmo!! ver se este fim de semana começo já a faze-lo!! =)

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49