Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
Eugenio_jose Novato
Registrado: Sexta-Feira, 6 de Março de 2015 Mensagens: 69
|
Enviada: Ter Out 09, 2018 3:53 pm Assunto: Simular clique site detran |
|
|
Boa tarde, preencho os campos para emissão de DAE DETRAN MG, será que tem como eu simular o clique no botão apos preencher os campos?
Baixo o pedaço do codigo onde cita o botão.
<div>
<button>Emitir guia DAE</button> </div> |
|
Voltar ao Topo |
|
|
marcieldeg Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011 Mensagens: 1054 Localização: Vitória - ES
|
Enviada: Sex Out 12, 2018 10:52 am Assunto: |
|
|
Use a biblioteca MSHTML, com ela você consegue parsear a página, pegar um elemento como um objeto e disparar um evento. Mas isso só funciona se você estiver carregando a página em um componente TWebBrowser.
Se você está usando o Indy, geralmente o click de botão chama um método POST da página, então é simples de simular. _________________ "Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!" |
|
Voltar ao Topo |
|
|
Eugenio_jose Novato
Registrado: Sexta-Feira, 6 de Março de 2015 Mensagens: 69
|
Enviada: Seg Out 15, 2018 10:49 am Assunto: Simular clique site detran |
|
|
marcieldeg escreveu: | Use a biblioteca MSHTML, com ela você consegue parsear a página, pegar um elemento como um objeto e disparar um evento. Mas isso só funciona se você estiver carregando a página em um componente TWebBrowser.
Se você está usando o Indy, geralmente o click de botão chama um método POST da página, então é simples de simular. |
Bom dia, obrigado pela atenção, eu não conheço esta biblioteca, eu uso o Delphi 7. Teria uma dica também de como usa-la?
sds
Eugenio |
|
Voltar ao Topo |
|
|
marcieldeg Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011 Mensagens: 1054 Localização: Vitória - ES
|
Enviada: Dom Out 21, 2018 2:50 pm Assunto: |
|
|
Crie um formulário com um TWebBrowser e um Button. Adicione no OnClick do button esse código:
Código: | uses
MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument3;
Buttons: IHTMLElementCollection;
Elem: IHTMLElement;
i: Integer;
begin
WebBrowser1.Navigate
('https://www.detran.mg.gov.br/component/servicosmg/servico/-/comum/buscar_dados_taxa/preencher_dados_habilitacao/2/041/006503/40000/EXAME_LEGISLACAO%7CRENOVACAO%7CRECICL.DA_CNH/unidade(s)/');
while WebBrowser1.Busy do
Application.ProcessMessages;
Supports(WebBrowser1.Document, IHTMLDocument3, Doc);
Buttons := Doc.getElementsByTagName('BUTTON');
Supports(Buttons.item(0, ''), IHTMLElement, Elem);
Elem.click;
while WebBrowser1.Busy do
Application.ProcessMessages;
end; |
Se o Delphi 7 não possuir a biblioteca MSHTML, você terá que importar. Não sei bem como fazer, uso o 2010. _________________ "Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!" |
|
Voltar ao Topo |
|
|
|