Fórum Manipulação do Internet Explorer... #272857
17/03/2005
0
Olá...
Criei tipo uma barrinha do google, ate ai td certo..soh q eu preciso saber como posso manipular o endereço de navegação...tem um codigo...mais ele exige q abra uma nova janela....Precisaria fazer com q muda-se a pagina atual...
Espero q vcs possam me ajudar...
Flw
Eduardo
Criei tipo uma barrinha do google, ate ai td certo..soh q eu preciso saber como posso manipular o endereço de navegação...tem um codigo...mais ele exige q abra uma nova janela....Precisaria fazer com q muda-se a pagina atual...
Espero q vcs possam me ajudar...
Flw
Eduardo
Eduardo.buffara
Curtir tópico
+ 0
Responder
Posts
17/03/2005
Rômulo Barros
Eu utilizo assim:
Vou na paleta INTERNET do Delphi e adiciono o componente TWebBrowser.
[b:9875694e6f]Para mudar de página na mesma tela, faço:[/b:9875694e6f]
_____________________________________________
[b:9875694e6f][color=blue:9875694e6f]Utilize a Ferramenta de Pesquisa do Fórum[/color:9875694e6f][/b:9875694e6f]
Pesquisar pelos termos
_____________________________________________
[b:9875694e6f]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:9875694e6f]
[b:9875694e6f]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:9875694e6f]
[b:9875694e6f]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:9875694e6f]
Vou na paleta INTERNET do Delphi e adiciono o componente TWebBrowser.
[b:9875694e6f]Para mudar de página na mesma tela, faço:[/b:9875694e6f]
WeBrowser1.Navigate(URL);
_____________________________________________
[b:9875694e6f][color=blue:9875694e6f]Utilize a Ferramenta de Pesquisa do Fórum[/color:9875694e6f][/b:9875694e6f]
Pesquisar pelos termos
_____________________________________________
[b:9875694e6f]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:9875694e6f]
[b:9875694e6f]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:9875694e6f]
[b:9875694e6f]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:9875694e6f]
Responder
Gostei + 0
17/03/2005
Eduardo.buffara
Meu amigo...me desculpe acho que naum fui claro..eu naum estou no delphi eu estou no navegado....INTERNET EXPLORER
[quote:9cffbd0503=´Undeclared Identifier´]Eu utilizo assim:
Vou na paleta INTERNET do Delphi e adiciono o componente TWebBrowser.
[b:9cffbd0503]Para mudar de página na mesma tela, faço:[/b:9cffbd0503]
_____________________________________________
[b:9cffbd0503][color=blue:9cffbd0503]Utilize a Ferramenta de Pesquisa do Fórum[/color:9cffbd0503][/b:9cffbd0503]
Pesquisar pelos termos
_____________________________________________
[b:9cffbd0503]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:9cffbd0503]
[b:9cffbd0503]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:9cffbd0503]
[b:9cffbd0503]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:9cffbd0503][/quote:9cffbd0503]
[quote:9cffbd0503=´Undeclared Identifier´]Eu utilizo assim:
Vou na paleta INTERNET do Delphi e adiciono o componente TWebBrowser.
[b:9cffbd0503]Para mudar de página na mesma tela, faço:[/b:9cffbd0503]
WeBrowser1.Navigate(URL);
_____________________________________________
[b:9cffbd0503][color=blue:9cffbd0503]Utilize a Ferramenta de Pesquisa do Fórum[/color:9cffbd0503][/b:9cffbd0503]
Pesquisar pelos termos
_____________________________________________
[b:9cffbd0503]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:9cffbd0503]
[b:9cffbd0503]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:9cffbd0503]
[b:9cffbd0503]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:9cffbd0503][/quote:9cffbd0503]
Responder
Gostei + 0
17/03/2005
Rômulo Barros
:arrow: [color=red:886380425e][b:886380425e]Ou, melhor: Dica retirada do programa DEEPHI[/b:886380425e][/color:886380425e]
_____________________________________________
[b:886380425e][color=blue:886380425e]Utilize a Ferramenta de Pesquisa do Fórum[/color:886380425e][/b:886380425e]
Pesquisar pelos termos
_____________________________________________
[b:886380425e]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:886380425e]
[b:886380425e]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:886380425e]
[b:886380425e]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:886380425e]
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.com.br´);
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;
Explicando o Código: 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;
Explicando o Código: 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}
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´;
Feito Por: Marco Antônio
marco@ClubeDelphi.com.br_____________________________________________
[b:886380425e][color=blue:886380425e]Utilize a Ferramenta de Pesquisa do Fórum[/color:886380425e][/b:886380425e]
Pesquisar pelos termos
_____________________________________________
[b:886380425e]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:886380425e]
[b:886380425e]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:886380425e]
[b:886380425e]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:886380425e]
Responder
Gostei + 0
17/03/2005
Eduardo.buffara
Este foi o primeiro q tentei...este cod tem no 850 dicas de delphi..e tbm naum deu..se vc tiver outro codigo.....
Fiko Grato
Vlw...
[quote:5a2ce3096e=´Undeclared Identifier´]:arrow: [color=red:5a2ce3096e][b:5a2ce3096e]Ou, melhor: Dica retirada do programa DEEPHI[/b:5a2ce3096e][/color:5a2ce3096e]
_____________________________________________
[b:5a2ce3096e][color=blue:5a2ce3096e]Utilize a Ferramenta de Pesquisa do Fórum[/color:5a2ce3096e][/b:5a2ce3096e]
Pesquisar pelos termos
_____________________________________________
[b:5a2ce3096e]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:5a2ce3096e]
[b:5a2ce3096e]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:5a2ce3096e]
[b:5a2ce3096e]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:5a2ce3096e][/quote:5a2ce3096e]
Fiko Grato
Vlw...
[quote:5a2ce3096e=´Undeclared Identifier´]:arrow: [color=red:5a2ce3096e][b:5a2ce3096e]Ou, melhor: Dica retirada do programa DEEPHI[/b:5a2ce3096e][/color:5a2ce3096e]
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.com.br´);
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;
Explicando o Código: 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;
Explicando o Código: 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}
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´;
Feito Por: Marco Antônio
marco@ClubeDelphi.com.br_____________________________________________
[b:5a2ce3096e][color=blue:5a2ce3096e]Utilize a Ferramenta de Pesquisa do Fórum[/color:5a2ce3096e][/b:5a2ce3096e]
Pesquisar pelos termos
_____________________________________________
[b:5a2ce3096e]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:5a2ce3096e]
[b:5a2ce3096e]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:5a2ce3096e]
[b:5a2ce3096e]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:5a2ce3096e][/quote:5a2ce3096e]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)