[Delphi] Criando um navegador BASICO:

[sorackalves]

Tutorial recomendado para inciantes no delphi. Criando um navegador basico baseado no IE

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:




o componente "panel", "painel"



o componente inserido no formulírio

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í:



o componente "TWebBrowser"



o componente inserido no formulírio

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.



o componente "Button", "botão"



ele inserido no formulírio, dentro do painel

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.



o componente "Edit", um campo de texto



aspecto de como estí ficando o programa

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...).



a aba "Events" do Inspetor de Objetos

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:



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".

ESPERO QUE VCS GOSTEM:

Autor: Marcos Elias Picão
Fonte: Guia do Hardware

[jfcb_xp]

muito bom para o pessoal que ta começando em delphi vlw pela contribuição 8)

[Kwsty]

Realmente é bom pra quem ta iniciando, tí explicativo.

Depois posto aqui como fazer um mesmo navegador, porém no estilo do Mozilla...



Abraço!

[Pl4c3b0_]

Olí!
Excelente inàcio para os estudantes de Delphi. Parabéns e obrigado pdf

[luisgnobrega]

pdf,

O material ta muito bom,.. Eu sinceramente adorei.

[d4rk w0lf]

tbem gostei do material..

vlw

[AttackX-]

Muito bom conteúdo ...
Eu to criando um programa aqui ,mas quero que os arquivos temporírios do navegador vão pra pasta onde eu mande...

tipo, nao quero q os arquivos temporírios vão pra pasta 'C:\Documents and Settings\NOMEDO-PC\Configurações locais\Temporary Internet Files\'

quero q eles vão pra um caminho que eu escolha...tipo 'C:\Localdoprograma\Temporarios\Blahblah'

Alguém sabe como posso fazer isso ???

[Drew'UnknowN]

Bom pra iniciantes... ^^ :wink:

[C0l4pS0]

Muito bom mano! gostei do tutorial!

[danielsouza16]

Oo

qeria colocar uma barrinha de carregamento
e uma centra de favoritos tem como ?