Tutorial como criar um browser ou navegador personalizado usando o componente CppWebBrowser do Borland C++ Builder

 

1 - Abra o Borland C++ Builder , no nosso exemplo usaremos o borland c++ builder 6, mas todas versões iram ter a mesma funcionabilidade.

2 - Crie um novo Projeto. Para isso clique em FILE|NEW|APPLICATION. OBS: Caso use outra versão você deverá clicar somente em NEW PROJECT e escolher VCL Forms Application

Exemplo do C++ Builder 6

Exemplo do C++ Builder 2007

 

 

3 - Depois de iniciado um novo projeto você deverá mudar as medidas da FORM:

Height = 576

Width = 951

No Caption da form coloque: Browser personalizado

Keypreview = true

OBS : Não será necessário mudar o nome dos objetos.

 

4 - Depois coloque um PANEL em sua Form. Caso não saiba onde fica os PANEL, eles ficam na aba STANDARD e é o penúltimo componente da aba

 

5 - Nas propriedades do PANEL ou também chamado Object Inspector coloque esses valores:

Align = alTop

Color = clActiveCaption

BorderStyle = bsNone

Caption = " "

OBS == " " quer dizer nada então não é necessário colocar isso.

Width = 943

Heigh = 57

Ele tem que ficar parecido com isso:

Panel

 

6 - Agora você terá que colocar um Edit, um Label, um BitButton , dois SpeedButton e um ProgressBar tudo em cima do PANEL, e coloque na form um StatusBar!

Coloque as medidas como quizer de seus componentes mas bote todos organizados.

No Caption da Label escreva : Buscar

No Caption do BitButton escreva: GO

E não se esqueça de colocar na propriedade Kind do BitButton tem que ser colocada na posição de: bkOk

No Caption do primeiro SpeedButton coloque: V

No Caption do segundo SpeedButton coloque: I

 

Seu Projeto de estar parecido com isso deve ser parecido com esse:

 

 

 

7 - Agora vamos para a parte mais importante do Projeto. Coloque na sua form o componente CppWebBrowser que se encontra a ABA INTERNET e é o ultimo componente da aba.

 

8 - Coloque ele em baixo do Panel e coloque essas propriedades para o Componente:

 

Height: 466

Width: 943

Align: alClient

AddressBar: true

StatusBar: true

 

Agora seu browser terá que ficar parecido com este:

 

 

 

 

9 - Agora será a parte dos comando, pois seu navegador ou browser (para quem não sabe é a mesma coisa) já está com a interface gráfica completa não necessária mais ajustes básicos.

Clique 2 vezes sobre o BitButton nomeado de GO:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int s;
atoi(Edit1->Text.c_str());
CppWebBrowser1->Navigate(WideString(Edit1->Text));
StatusBar1->SimpleText = "Recebendo " + Edit1->Text;
}

 

Esse comando será necessário para que seu browser leia o que foi digitado no Edit e Navegue sobre o site que você informou na mesma hora o StatusBar mostra a mensagem RECEBENDO "SITE.COM.BR"

 

Agora clique 2 vezes no SpeedButton1 que está nomeado como V e coloque esse comando :

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
CppWebBrowser1->GoBack();
}

 

Agora clique 2 vezes no SpeedButton2 que está nomeado como I e coloque esse comando :

 

void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
CppWebBrowser1->GoForward();
}

 

Agora clique uma vez no CppWebBrowser para selecioná-lo, depois no Object Inspector:

Clique na Aba Events:

Procure um evento nomeado de: OnNewWindow2 , e clique duas vezes nele, quando o código-fonte se abrir escreva isso:

void __fastcall TForm1::CppWebBrowser1NewWindow2(TObject *Sender,
LPDISPATCH *ppDisp, VARIANT_BOOL *Cancel)
{
newWin = new TForm1(Application) ;
newWin->Show();
*ppDisp = newWin->CppWebBrowser1->DefaultDispatch;
if (Form1==NULL)
Close();
}

OBS : Para que esse comando funcione você terá que colocar na parte de cima de seu código-fonte isso( onde fica as bibliotecas) :

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TForm1 * newWin;

Você tem que colocar seu código nesse local como mostra a imagem.

 

 

 

 

Agora procure o evento chamado de OnProgressChange, e clique duas vezes nesse evento até aparecer a parte para editar seu código, então quando aparecer escreva:

void __fastcall TForm1::CppWebBrowser1ProgressChange(TObject *Sender,
long Progress, long ProgressMax)
{
ProgressBar1->Min = 0 ;
ProgressBar1->Max = ProgressMax ;
ProgressBar1->Position = Progress ;
}

 

 

 

10 - PRONTO !!! Concluímos nosso browser, agora ele já pode navegar na internet normalmente, compile seu projeto e teste navegando em diversos sites. Mas não se esqueça de estudar mais para melhorar o browser e sempre entrar no site : www.abelha.com.br , pois esse é o site que lhe ajudou, agradecemos se gostou e se você tiver um blog ou site não se esqueça de colocar um link para esse post ou nosso site.

Caso queira deixar o browser mais bonitinho coloque alguns skin nele

 

Bom Proveito !

 

 

Caso tenha perdido seu código-fonte ou não tem tempo de ver o tutorial basta você baixar aqui o código-fonte do browser e seu executável.

 

Browser e código-fonte download

 

Para descompactar os arquivos você precisará do WinRar

 

 

Visite também:

 

Abelha.com.br | Games , Jogos , Animais em extinção, Pagerank , livros, hoteis , download , linux, etc

 

Games e Jogos Online gratuitos em Flash para todas as idades | ABELHA