Dicas - Manipulando o Internet Explorer

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Esta dica, ensinará como manipular o Internet Explorer.

Manipulando o Internet Explorer

 

Neste artigo ensinarei como manipular o Internet Explorer, e através de sua aplicação poder ordenar comandos ao Browser mais utilizado no mundo. Inicie o Delphi e crie uma nova aplicação,Insira no formulário 4 Tbuttons. Coloque na propriedade caption do Button1 "Iniciar" e no evento OnClick, insira o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  IEApp := CreateOLEObject('InternetExplorer.Application');

  IEApp.visible := true;

  IEApp.Top := 0;

  IEApp.Left := 0;

  IEApp.width := screen.width;

  IEApp.height := screen.height;

  IEApp.Navigate('http://www.clubedelphi.net');

end;

 

Explicando o código: Tenho certeza de que você já notou a facilidade do código. Ele cria uma aplicação do tipo Internet Explorer, e atribui algumas propriedades. Essas propriedades servem para informar que o navegador deve estar visível, informar a posição onde será criado o browser, o tamanho da tela e o endereço que ele vai abrir.

Coloque na propriedade caption do Button2 "Voltar" e no evento OnClick, insira o seguinte código:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  IEApp.GoBack;

end;

Explicando o Código

O Botão irá funcionar como o próprio botão Voltar do Browser. Coloque na propriedade caption do Button3 "Avançar" e no evento OnClick, insira o seguinte código:

 

procedure TForm1.Button3Click(Sender: TObject);

begin

  IEApp.GoForward;

end;

 

O Botão irá funcionar como o próprio botão Avançar do Browser. Coloque na propriedade Caption do Button4 "Fechar" e no evento OnClick, insira o seguinte código:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  IEApp.Quit;

end;

 

Este botão irá fechar o browser. Agora, insira a Unit Comobj na parte de uses lá em cima no código, depois adicione a variável IEApp do tipo Variant na parte de declaração de variáveis onde está declarado o formulário:

 

var

  Form1: TForm1;

  IEApp: Variant;

 

implementation

 

{$R *.DFM}

 

Pronto, seu formulário deve estar assim:

 

Agora salve e execute a sua aplicação e comece a controlar o nosso Internet Explorer. Existem ainda alguns outros comandos que podem ser usados, tais como:

 

IEApp.Refresh; - Serve para atualizar o browser.

IEApp.Stop; - Serve para parar o browser.

IEApp.GoHome; - Serve para ir para a página inicial, que está configurada em seu browser.

IEApp.FullScreen := true; - Serve para exibir o browser, sem nenhuma barra de ferramenta.

IEApp.StatusText; := 'Qualquer texto';

 

 

Marco Antônio

marco@ClubeDelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?