Usar webbrowser acessando varias paginas

Delphi

22/08/2013

Estou com seguinte problema, eu abro um site e consigo preencher os campos e clicar no avançar , apos mudar de pagina os outros comandos nao dao efeito.
Aguem pode ajudar.
Grato
Roberto Rodrigues

Roberto Rodrigues

Curtidas 0

Respostas

Deivison Melo

Deivison Melo

22/08/2013

Seria interessante postar seu código e o passo a passo que está sendo feito para o teste...

GOSTEI 0
Roberto Rodrigues

Roberto Rodrigues

22/08/2013


Deivison
Segue meu codigo
{ Nesta primeira pagina funciona normalmente }
WebBrowser1.OleObject.Document.all.Item('cpfcnpj', 0).value := cnpj(DM.IBAQUISICAOAQS_CPFCNPJVENDEDOR.AsString);
WebBrowser1.OleObject.Document.all.Item('avancar', 0).Click;
{ Seguda pagina nao aceita o CLICK }
WebBrowser1.OleObject.Document.all.Item('avancar', 0).Click;

{ terceira pagina nao aceita o CLICK }

WebBrowser1.OleObject.Document.all.Item('idNomeAdquirente',0).value := DM.IBAQUISICAOAQS_NOMEADQ.AsString;
WebBrowser1.OleObject.Document.all.Item('idEnderecoAdquirente',0).value := DM.IBAQUISICAOAQS_ENDADQ.AsString;
WebBrowser1.OleObject.Document.all.Item('idCdPaisAdquirente',0).value := DM.IBAQUISICAOAQS_CODPAISADQ.AsString;
WebBrowser1.OleObject.Document.all.Item('idComboPaisAdquirente',0).value := DM.IBAQUISICAOAQS_DESCPAISADQ.AsString;
WebBrowser1.OleObject.Document.all.Item('idNumeroIdentFiscal',0).value := DM.IBAQUISICAOAQS_NIFADQ.AsString;
WebBrowser1.OleObject.Document.all.Item('avancar', 0).Click;
GOSTEI 0
Rrodrigues_sts

Rrodrigues_sts

22/08/2013

Pessoal boa tarde, alguem teria alguma solução para meu problema abaixo.
Obrigado
GOSTEI 0
POSTAR