Criando Navegador Básico no Delphi .

voce pode manda um print final desse tutorial,como fico :D

Bad, só porque é básico não quer dizer que seja rápido, seria 5 minutos se não fosse de qualidade, mais é de qualidade, ele só é básico, não tem imagens nos buttons e tals .

mais não obrigo ninguém à fazer .

Velho , metodo antigo sem engenharia , sem noção o code , e muita coisa pra fazer um Basic , Isso nao existi vei , navegador basico e coisa de 5 minutos .

Nossa é muita coisa.
Aqui no igames postaram isso. Obrigado Furfle, quando eu tiver com saco eu tento :D

sim eu uso mto o torrent obrigado

Nossa, muito texto...

Não me animo para ler tanto assim, =(

Sei, o melhor jeito e acho que único é via torrent, pra isso você tem que usar o programa uTorrent ou BitTorrent e baixar a torrent do arquivo, depois você inicia o torrent em um desses programas, aqui a torrent do Delphi:

http://dl.torrentreactor.net/download.php?id=2763761&name=Delphi+7+Second+Edition+-+Lite+Edition

sabe onde eu posso baixar esse delphi?

Inicie um novo projeto no Delphi (quando ele é aberto, ele já faz isso,
é iniciado com um projeto vazio). Vamos inserir no formulário dois
quadros: um painel, onde ficarão os botões e a barra de endereços, e o
quadro de visualização HTML.

Para inserir um painel, clique no componente "painel" da paleta de
componentes, e clique uma vez dentro da tela da janela do programa (o
formulário). Veja:




Vamos ajustar algumas propriedades desse componente, para que ele fique
no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para
selecioná-lo, e no inspetor de objetos (a janela de propriedades do
objeto, se você não sabe, leia o texto do link que indiquei mais
acima), localize a propriedade "Caption". Remova o texto dela, deixando
assim:



Para que esse painel fique alinhado na parte superior da tela, localize
nessa mesma janela a propriedade "Align", e deixe com o valor "AlTop":


Com o painel selecionado, clique na borda inferior dele e arraste para baixo, até ficar num tamanho ideal para você.

Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" da
paleta de componentes do Delphi, normalmente é o último dessa guia. Não
o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez,
depois clique na área livre do formulário. Veja como ficará:





Ajuste a propriedade "Align" dele assim como você fez com o painel, mas
agora escolha "AlClient". Isso faz com que ele ocupe toda a área
restante da tela, mesmo que o usuário maximize ou redimensione a janela.

Vamos inserir uma barra de endereços simples (não uma lista, por ser um
tutorial para iniciantes nessa área) e os botões "Voltar", "Avançar",
"Parar" e "Atualizar". Selecione o componente "Button", "botão", da aba
"Standard" dos componentes do Delphi, e insira-o dentro do painel.
Agora sim, clique dentro do painel, para que ele fique "dentro" do
painel. Se você colocá-lo fora, ele não acompanhará o local fixo no
painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho
da janela.



Agora você já deve estar pegando mais intimidade com a inserção de
componentes. Insira mais três botões, ao lado desse. Você pode copiá-lo
e colá-lo! Clique uma vez nele, ele ficará selecionado (o botão). Tecle
CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois
tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os
seus lugares, de modo a deixar o visual organizado.

Agora altere os textos dos botões. Selecione um por um, localize a
propriedade "Caption" no inspetor de objetos, e digite o texto
desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão,
"Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto.

Para inserir uma barra de endereços, clique no componente "Edit", da
aba "Standard" da paleta de componentes, e insira-o também dentro do
painel, logo abaixo dos botões (redimensione o painel, se necessário,
clicando nele e arrastando a linha inferior para baixo). Redimensione o
campo de texto ("Edit") até ficar com um tamanho razoável, para digitar
um endereço da Internet. Com o "Edit" selecionado, remova o texto dele.
Basta limpar o texto da propriedade "Text", pelo inspetor de objetos.






Para não perder, salve o projeto. Clique no botão "Salvar tudo" do
Delphi, ou no menu "File > Save all", como é a primeira vez.
Primeiro salve o arquivo de projeto, de extensão ".dpr". Coloque o nome
principal do seu programa, de preferência sem espaço, será o mesmo nome
do executável. Por exemplo, "Navegador". Ao clicar em Salvar na janela
"Salvar", aparecerá uma outra, agora para salvar a unidade de código do
formulário, um arquivo ".pas". Pode deixar o padrão, "Unit1.pas", se
você quiser.

O componente WebBrowser usa toda a estrutura do IE, como comentei no
começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que
fazer é chamar as funções corretas dele. Algumas são documentadas,
outras creio que não... Mas para as mais comuns não há segredo.

Dica: para facilitar as referências, vamos renomear o WebBrowser para
um nome mais curto. Selecione o quadro branco do IE, e altere a
propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web",
um nome fácil de identificar e curtinho.

Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar
alguma coisa e teclar [enter], o navegador será chamado. Para isso,
deveremos configurar o evento da barra de endereços responsável por
reconhecer o [enter], e por chamar o navegador.

Selecione a barra de endereços, e vá para a aba "Events" do Object
Inspector (na mesma janela onde você altera os títulos, textos,
propriedades dos componentes...).



Nessa aba podemos personalizar os eventos dos objetos. Os eventos são
ações que podem ser realizadas pelo usuário ou pelo programa. Por
exemplo, quando o usuário clica num componente visual, o evento onClick
é chamado, e o código contido nele será executado. Se o usuário nunca
clicar nesse botão, esse código nunca seria executado. Para definir um
código, uma ação, quando o usuário teclar [enter] no campo de texto,
devemos inserir os comandos no evento "onKeyDown", que pode ser
entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas
enquanto o componente de texto estiver com o foco, então deveremos
também incluir um verificador, para verificar se a tecla pressionada
foi [enter]. Se for, faremos uma chamada ao componente do navegador
para abrir o endereço digitado. Se não for, não faremos nada e
deixaremos o usuário terminar de digitar

Localize o evento "onKeyDown" (não se esqueça de selecionar o "Edit1"
antes!), e dê um duplo clique no quadrinho em branco à sua esquerda,
onde você percebe que pode digitar algo:



A janela de código será aberta no ponto correspondente, o Dephi já
preparará toda a estrutura para você digitar os comandos. Digite isso,
entre o begin e o end:


if Key = VK_RETURN then
web.Navigate(Edit1.Text);

Veja na tela, como ficaria:


Vamos entender esse código... Traduzindo-o para o português:

se Tecla = Enter então
navegador.Abre(site digitado no campo de endereço);

A estrutura dependerá da linguagem de programação em uso, não se
esqueça que este tutorial é de Delphi, portanto, não bastará "copiar e
colar" esse mesmo código no Visual Basic ou C++. Mas as idéias são as
mesmas.

O if é um comando verificador, e tem esta sintaxe:

if (condição verdadeira) then
faça alguma coisa;

O ponto e vírgula é o caractere terminador de linha em Pascal (a
linguagem usada pelo Delphi). As instruções que não estiverem separadas
por um ponto-e-vírgula, podem ser digitadas na mesma linha, se você
quiser. Pula-se linhas e é costume teclar TAB para dar tabulações e
espaços apenas para facilitar a edição do código, visto que quem o
editará é uma pessoa – como você!

Nesse código, o verificador verifica se a tecla pressionada ("Key") foi
a tecla [enter] ("VK_RETURN" é um identificador no Delphi, para a tecla
[enter]; cada tecla tem um código próprio). Se foi, ele chama o método
"Navigate" do objeto "web", passando como parâmetro o texto que estiver
dentro do campo. Esse texto é obtido pela propriedade "Text", e ela é
separada por um ponto do nome do objeto (assim como os métodos,
eventos, funções... que aliás são, "num primeiro momento", a mesma
coisa, evento, função e método).

Compile o programa e execute-o, digitando qualquer site na barra de
endereços, e tecle [enter]. Se der erro na compilação e o programa não
rodar, verifique todos os passos descritos, observando a mensagem de
erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo
menos a linha.

Dica: para executar o programa de dentro do Delphi, apenas tecle F9, ou
clique no botão com o ícone de um "play", na barra de ferramentas. O
arquivo gerado terá o mesmo nome do projeto que você salvou, mas a
extensão ".exe". Você poderá distribui-lo e inclusive rodá-lo em outros
computadores, sem precisar do Delphi

Agora vamos definir as ações dos botões. O evento onClick deles é o
evento padrão, por ser o mais intuitivo para um botão: fazer alguma
coisa quando o usuário clicar nele. Como é o evento padrão, basta dar
um duplo clique sobre cada botão, para digitar o evento para ele. Mas
nada impede que você o faça selecionando o botão, e dando um duplo
clique no evento "onClick", da aba "Events" do Object Inspector.

Essa parte será bem fácil, pois cada botão apenas chamará um método do
componente do navegador, que no caso, é gerenciado pelo motor do
Internet Explorer, ou seja, já está tud programado.

Dê um duplo clique sobre o botão "Voltar", e digite:

web.GoBack;
GoBack é um método definido pelos criadores do IE, que fará ele voltar à página anteriormente acessada.

Faça a mesma coisa para o botão "Avançar", digitando:
web.GoForward;

Para o botão "Parar":
web.Stop;
E finalmente, o botão "Atualizar":

web.Refresh;

Salve, compile e rode seu programa. Navegue por algumas páginas, para
testar. Para que os botões "Voltar" e "Avançar" realmente funcionem,
você deverá navegar clicando em alguma coisa (ou acessando outro
endereço), e depois clicar no "Voltar".

Agora vamos nos aprofundar mais um pouco... Para começar, o título da
janela. Como todo o trabalho pesado é feito pelo componente do IE, você
não terá muita dificuldade nem precisará de muitas linhas de código
para identificar o título da página atual: o IE pode informar ao
programa, e então o programa usa o texto do título onde quiser.
Selecione o componente web, e acesse o evento "onTitleChange". A essa
altura isso é moleza para você.

Esse evento, como o nome sugere, será chamado toda vez que o título da página for alterado. Veja a sintaxe dele:
procedure TForm1.webTitleChange(Sender: TObject; const Text: WideString);

Em se tratando de eventos, os valores entre parênteses funcionam de
forma parecida com os "parâmetros" passados às funções. Mas aqui, é ao
contrário. Em vez de você passar um valor para uma função [como o feito
em web.Navigate(pagina...)], é a função que retorna valores para você,
e você faz o que quiser com eles. Aqui o "Sender" não interessa, mas
sim o "Text". Ele contém justamente o título da página. Digite, então,
nesse evento onTitleChange:

Caption := Text;

Pronto

Rode o programa e veja, o título da janela será o título da página. Se
você quiser incluir o nome do programa também, pode fazer isso:


Caption := Text + ' - Meu Navegador';


Assim o título da janela será o título da página, separado por um traço e o nome do seu programa.

Quando o programa é aberto, nenhuma página está carregada ainda, e o
título ficaria o "Form1", aplicado pelo Delphi ao criar o formulário.
Para trocá-lo, basta editar a propriedade "Caption" do formulário. Eis
aqui uma outra dica para iniciantes... O formulário tem o painel,
alinhado no topo, e o componente do navegador, alinhado no restante da
janela. Não há lugar vazio para clicar e selecionar o formulário
Não se desespere. No Inspetor de Objetos, todos os componentes são
listados pelo nome. Clique na listinha dele, localize o formulário
(terá o nome "Form1", se você não alterou), e então altere a
propriedade "Caption".



De forma similar ao título, o IE fornece também o texto desejado para a
barra de status, quando ele for alterado. Isso deixa o programa melhor,
vamos então colocar uma barra de status

Selecione o componente "StatusBar" na aba "Win32", e coloque-o no
formulário. Não dá para clicar no formulário porque os outros
componentes estão por cima. Não tem problema, pode colocar em cima do
componente do IE (o quadro branco). Ele não comporta objetos dentro
dele (como faz o painel), então o objeto será inserido no formulário
mesmo. A barra de status já se ajusta sozinha na tela, na parte
inferior.

[img]http://201.76.37.243/imagens/img-2d7b80e6.gif[/img]

Particularmente, a barra de status padrão é dividida em partes, em
painéis (quadrinhos). Uma propriedade dela ajusta para que seja
dividida em uma parte só, para coisas mais simples, e é o ideal para
esse programa. É a propriedade "SimplePanel". Ela é um valor booleano,
que pode ser "sim" ou "não". Na linguagem do programa, "True" (para
sim, verdadeiro) ou "False" (para não, ou falso). Selecione a barra de
status que você acabou de inserir, e na aba de propriedades do inspetor
de objetos, localize essa propriedade "SimplePanel". Deixe-a com o
valor "True". Agora vamos definir o texto que deverá aparecer...

Esse texto, como dito, é provido pelo próprio IE, e será atualizado
automaticamente (seria o mesmo texto que aparece na barra de status do
IE). Selecione o componente do navegador e procure o evento
"onStatusTextChange". Você não terá dificuldades, é basicamente a mesma
coisa aplicada para o título, porém, jogando o texto retornado por ele
na barra de status:

StatusBar1.SimpleText := Text;


O texto da barra de status é definido pela propriedade "SimpleText". Se
a propriedade "SimplePanel" não estivesse definida para "True", o texto
não apareceria, e o meio de colocá-lo seria outro (usando o índice do
quadrinho desejado dela, fica de fora do objetivo desse texto explicar
isso).

Falta ajustar uma coisa... Você que navega na Internet já deve ter
reparado que os navegadores trocam o texto da barra de endereços
conforme mudam de página. No seu programa, você deve ter percebido que
o texto não foi alterado, nem depois de dar [enter], nem ao navegar por
outras páginas "clicando" nos links. O programa não tem como saber que
você quer que ele atualize o endereço, aliás, nem tem como saber qual é
o campo de endereço, se você não informá-lo. Isso pode ser obtido com
uma propriedade do controle do IE, que retorna o endereço (URL) da
página que ele contém. No evento da barra de endereços você fez o
navegador abrir o site digitado na mesma. Agora você vai fazer o
contrário: forçar o navegador a jogar o endereço da página para a barra
de endereços.

Para isso, selecione o controle do IE, e edite o evento "onDownloadComplete". No código para ele, digite:

Edit1.Text := web.LocationURL;


Você basicamente troca o texto do campo Edit1 (que é o campo da barra
de endereço) pelo endereço da página nova, quando ela for carregada.
Esse endereço é obtido pela propriedade "LocationURL" do controle do IE.

------------------------
O componente do IE já vem configurado no Delphi quando ele é instalado,
e alguns outros ambientes (como o Visual Basic) também vêm preparados
com ele. Caso não venha, você deverá importar o controle Active-X do
IE. E para quem vai usar o controle do Mozilla, também: deverá
instalá-lo na interface do Delphi, para que possa ser usado pelos seus
programas...

O controle Active-X do Gecko foi disponibilizado para facilitar o uso
do "núcleo" do Mozilla em aplicações de terceiros (como as suas), sem
ser preciso desenvolver um navegador do zero, e sem "depender" do IE.
Com a vantagem que é open source, você tem mais liberdade para
personalizá-lo ou modificá-lo (não que isso seja fácil, rs). Visando
facilitar a compatibilidade com os programas que usam o controle
Active-X do IE, o pessoal que trabalha no controle Active-X do Gecko
trabalhou para o desenvolvimento de uma API não parecida, mas idêntica!
O que isso significa? Significa que basta "colocar" o controle do
Mozilla no seu programa, substituindo o do IE (ou já iniciando os novos
projetos com ele). Os nomes de métodos, chamadas e parâmetros são os
mesmos. No caso desse programinha, por exemplo, basta trocar o
controle, excluir as referências ao componente do IE e dar ao controle
do Mozilla o mesmo nome (no nosso exemplo, "web"), para que você não
precise alterar as referências ao nome.

É bom saber que o controle a ser usado não é o Mozilla em si, nem o
Firefox ou Netscape. É o "coração" deles, "portado" para que pudesse
ser usado por outras aplicações, na forma então de um controle
Active-X. Como disse no começo desse tutorial, um controle Active-X é
como se fosse um programa, que roda dentro de outro programa.

Como todo controle Active-X, o do Mozilla deverá estar instalado no
sistema dos usuários onde seu projeto for rodar. O instalador dele tem
cerca de 5 MB, mas você pode também redistribuir os arquivos isolados,
na mesma pasta da sua aplicação, registrando com o regsvr32 o arquivo
"mozctlx.dll". Calma, vamos por partes.

---->Instalando o controle Active-X do Mozilla


Baixe-o em:

http://www.iol.ie/~locka/mozilla/mozilla.htm

E rode o instalador no seu sistema, onde você vai desenvolver o
programa. Nessa página há diversas informações sobre o controle do
Mozilla, suas idéias, funcionamento e é possível fazer o download de um
programinha de exemplo, também.

Rode o instalador como administrador, pois para que o arquivo
"mozctlx.dll" seja registrado, é necessário privilégios de
administrador (assim como será necessário aos usuários do seu programa).

Você precisará, antes de usá-lo pela primeira vez, importar o controle
no seu ambiente de programação. Isso irá variar de ambiente para
ambiente. No Delphi, clique no menu "Component > Import Active-X
Control...", e localize o item "MozillaControl ...". Veja:




Selecionado ele, clique em "Install" e siga as instruções do ambiente
de programação, normalmente pedirão um local para salvar a unidade de
código gerada para o controle em questão. É bom deixar o caminho
padrão, normalmente, junto com os outros arquivos do ambiente.

Não se assuste se existirem muitos controles disponíveis, pois o Delphi
(no caso) lista todos os controles disponíveis no seu sistema. Alguns
você reconhecerá facilmente, como o do Windows Media Planger, o do
próprio IE, etc. Muitos programas usam controles Active-X para
compartilhar componentes e funções comuns, alguns são fechados, outros
não...

Nota: se o controle Active-X não foi registrado, ele não será listado
aí. Então, execute novamente o instalador, logado como administrador.
Se você souber o arquivo certo a ser registrado, pode chamar o
RegSvr32, assim:

regsvr32 "C:\Arquivos de programas\Mozilla... \mozctlx.dll"


Depois de instalado no sistema de desenvolvimento, bastará usá-lo! O
controle do Mozilla, no Delphi, ficará por padrão na paleta de
componentes "ActiveX" (note na imagem de tela anterior que você pode
escolher outra antes da instalação, no campo "Palette page").



WOW .