Abrir página com Internet Explorer dentro de sua aplicação Delphi

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
 (0)  (0)

Veja nesta dica como abrir uma página no IE, dentro de sua aplicação Delphi.



Olá galera, nesta dica irei mostrar como abrir uma página usando o Internet Explorer.

 

Adicione:

 

Edit = EdtEndereco

Button = BtnAbrir

 




Vamos dar uses em comObj.

 

Agora criamos um método para executar a chamada da página.

 

procedure TFrmPrincipal.AbrirIR(aURL: string);

var

  IE: Variant;

  WinHanlde: HWnd;

begin

  if (VarIsEmpty(IE)) then

  begin

   IE :=CreateOleObject('InternetExplorer.Application');

   IE.Visible := True;

   IE.Navigate(aURL);

  end

  else

  begin

    WinHanlde := FindWindow('IEFrame', nil);

   if (0 <> WinHanlde) then

   begin

    IE.Navigate(aURL);

    SetForegroundWindow(WinHanlde);

   end

   else

    ShowMessage('Internet Explorer não pode ser aberto!');

  end;

end;

 

Evento onClick do BtnAbrir

 

procedure TFrmPrincipal.BtnAbrirClick(Sender: TObject);

begin

AbrirIR(EdtEndereco.Text);

end;

end.

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br



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