[Resolvido] Navegador

[dhonathas felix 0]

Ola Bom dia A todos

 

estou fazendo um navegador básico mais assim qual do eu fazer um pesquisa quando eu entra se no site desejado aparece se o site que entrei no edit

exemplo:

pesquisei o imasters ai apareceu imasters forun eu cliquei nele ai quando abri aparece http://forum.imasters.com.br no edit

brigado pela atenção vlw

[Wiglan 0]

Primeiro baixe esta Unit de funcoes para webBrowser em delphi: http://www.multiupload.com/Z882L2XXBL

 

Agora vamos ao codigo:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

//executa o navegador

WB_Navigate(WebBrowser1,'http://extremeprogramming.wordpress.com');

//WebBrowser1 = nome do seu browser

 

//espera ate o browser terminar de navegar

WaitForBrowser(WebBrowser1);

 

if WB_DocumentLoaded(WebBrowser1) = True then begin //verifica se a pagina ja foi carregada

edit1.Clear;

edit1.Text := (WebBrowser1.LocationURL);

end;

end;

 

faça as alteraçoes necessarias e boa sorte...

qualquer duvida so postar...

 

the +

 

 

------------------------------------------------------

Reverse_Text 2.2. Download Inversor de Link:

http://extremeprogramming.wordpress.com/2011/01/12/anti-protetor-de-links-reverse-text-2-0-solucao/

------------------------------------------------------

[dhonathas felix 0]

Primeiro baixe esta Unit de funcoes para webBrowser em delphi: http://www.multiupload.com/Z882L2XXBL

 

Agora vamos ao codigo:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

//executa o navegador

WB_Navigate(WebBrowser1,'http://extremeprogramming.wordpress.com');

//WebBrowser1 = nome do seu browser

 

//espera ate o browser terminar de navegar

WaitForBrowser(WebBrowser1);

 

if WB_DocumentLoaded(WebBrowser1) = True then begin //verifica se a pagina ja foi carregada

edit1.Clear;

edit1.Text := (WebBrowser1.LocationURL);

end;

end;

 

faça as alteraçoes necessarias e boa sorte...

qualquer duvida so postar...

 

the +

 

 

------------------------------------------------------

Reverse_Text 2.2. Download Inversor de Link:

http://extremeprogramming.wordpress.com/2011/01/12/anti-protetor-de-links-reverse-text-2-0-solucao/

------------------------------------------------------

 

vlw manin me ajudou muito