Abrir uma pagina web dentro do delphi preenchendo campos

Question

Algu�m sabe me explicar como consigo abrir uma p�gina web (//www.tse.jus.br/eleitor/servicos/certidoes/certidao-de-quitacao-eleitoral) dentro do delphi, preenchendo os campos?...

Douglas Wordell · Answer

Boa tarde, j� faz alguns dias, mas caso ainda n�o tenha conseguido, uma maneira que sei ser poss�vel � utilizando o componente TWebBrowser, mas s� usei em alguns testes e para mim resolveu.
Adiciona um WebBrowser no formul�rio, para carregar a p�gina:

WebBrowser1.Navigate('http://www.tse.jus.br/eleitor/servicos/certidoes/certidao-de-quitacao-eleitoral');

E para inserir valor no input:

WebBrowser1.OleObject.Document.GetElementByID('QE_NomeEleitor').Value := 'Douglas';

O m�todo

.Click();

pode ser usado para clique de bot�o.
Observe que � o m�todo

GetElementByID

, logo usa o ID do elemento e n�o o name.
Espero que ajude.

Cleber Leite · Answer

O erro do internet explorer eu resolvi.O problema agora est� no access violation....

Cleber Leite · Answer

quando passoWebBrowser1.OleObject.Document.GetElementByID(QE_NomeEleitor).Value := Douglas;d� erro de access violation...

Douglas Wordell · Answer

Esse c�digo voc� executa quando? Logo ap�s chamar a p�gina (antes de carregar)?
Esqueci de avisar, no meu teste eu coloquei 2 bot�es, um pra carregar a p�gina e outro para acessar o componente pois a p�gina precisa estar carregada, sen�o o elemento n�o existe.

Cleber Leite · Answer

Douglas, obrigado.Funcionou. S� que estou com outros dois problemas agora. A parte do captcha n�o aparece no form. E n�o estou conseguindo marc�-la. Ent�o quando clico no emitir do site ele me retorna uma consulta.json.Pode me ajudar mais um pouco?...

Douglas Wordell · Answer

Eu n�o tinha reparado o captcha do Google.
Estive fazendo busca e achei uma API de uso gratuito: https://catalogo.conecta.gov.br/store/apis/info?name=QuitacaoEleitoral&version=v1&provider=ronnie.dilli#!/Quitacao_Eleitoral/ConsultarQuitacaoEleitoralPost
Ser� que n�o te ajuda?

Roberto Rodrigues · Answer

Segue um exemplo que utilizo e funciona com Webbrowser.
Primeiro abre o Site.
WebBrowser1.Silent := True;
WebBrowser1.Navigate(''''https://wwwc.siscoserv.mdic.gov.br/SiscoservAqui/registroIncluir.do'''');
//do ReadyState for ''''completo''''
while ( WebBrowser1.ReadyState <> READYSTATE_COMPLETE ) do
begin
Application.ProcessMessages;
Sleep(0);
end;

WebBrowser1.OleObject.Document.all.Item(''''cpfcnpj'''', 0).value := DM.IBAQUISICAOAQS_CPFCNPJVENDEDOR.AsString;
WebBrowser1.OleObject.Document.all.Item(''''avancar'''', 0).Click;
End;
IF _Tacesso = 4 Then
WebBrowser1.OleObject.Document.all.Item(''''avancar'''', 0).Click;
End;

Cleber Leite · Answer

Roberto,Obrigado pela resposta. O problema � que o captcha n�o aparece quando abro a p�gina utilizando o webBrowser. Ele at� abre com os campos que eu passo mas n�o abre a marca do captcha, igual este que tem abaixo do t�pico de escrever....

F�rum Abrir uma pagina web dentro do delphi preenchendo campos #604264