Delphi interagir com browser

Delphi

08/04/2016

Olá,

Quero fazer um aplicativo interagir com um browser, mas não usando o TWebBrowser.
Por exemplo, quero que o meu aplicativo abra um browser (exemplo o mozzila), abra o site do google, o digite alguma coisa a ser pesquisada.

Isso é possível?
Luiz Sa

Luiz Sa

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

08/04/2016

Coloque um Edit para digitar o que deseja pesquisar e um botão para ativar a pesquisa.

Adicione [b]ShellApi[/b] na uses do form e este código no evento OnClick do botão:

var
  ConsultaEndereco: string;
begin
  ConsultaEndereco := 'https://www.google.com.br/search?hl=pt-BR&q=' + Trim(Edit1.Text);
  ShellExecute(0, 'open', PCHar(ConsultaEndereco), nil, nil, SW_SHOWNORMAL);
end;
GOSTEI 1

Mais Respostas

Raylan Zibel

Raylan Zibel

08/04/2016

Se quiser abrir num navegador específico:

procedure AbreUrlFirefoxGoogleDevMedia;
var
   comando: string;
begin
   comando := '"c:\Program Files (x86)\Mozilla Firefox\firefox.exe" "https://www.google.com.br/#q=devmedia+cursos"';
   WinExec(pChar(comando), SW_SHOW);
end;
GOSTEI 0
Raylan Zibel

Raylan Zibel

08/04/2016

Ou se quiser ter uma versao do chrome embutida num formulario:

Delphi Chromium Embeded 3
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

08/04/2016

Exatamente como o Raylan citou:
Só para lembrar que depois do "https://www.google.com.br/?gws_rd=ssl#q=' cada espaço que compõe o texto a ser pesquisado no lugar do espaço em branco
troque por +

Exemplo "https://www.google.com.br/?gws_rd=ssl#q=Comprar+TV+32"

Você pode usar o repleaceall antes do comando
Assim seu edit fica o texto
Exemplo

Edit1.text:='Gols do brasileirão 2014'

Depois do repleaceall
Edit1.text:='Gols+do+brasileirão+2014'
GOSTEI 1
Luiz Sa

Luiz Sa

08/04/2016

Dessa forma eu consigo enviar o que desejo pesquisar através do método GET.

E se eu quiser interagir com o browser depois de ele estar aberto? Ou seja, capturar o retorno da pesquisa ou fazer uma nova pesquisa.
GOSTEI 0
Raylan Zibel

Raylan Zibel

08/04/2016

Aí voce vai usar um webbrowser ou cheomium dentro do Delph.
GOSTEI 0
POSTAR