Fórum Delphi interagir com browser #550764
08/04/2016
0
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
Curtir tópico
+ 0Post mais votado
08/04/2016
Adicione [b]ShellApi[/b] na uses do form e este código no evento OnClick do botão:
1 2 3 4 5 6 | 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; |
Natanael Ferreira
Gostei + 1
Mais Posts
08/04/2016
Raylan Zibel
1 2 3 4 5 6 7 | 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
08/04/2016
Raylan Zibel
Gostei + 0
08/04/2016
Raimundo Pereira
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
11/04/2016
Luiz Sa
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
11/04/2016
Raylan Zibel
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)