Interagir com WebBrowser

[Sérgio Assunção]

Bom dia amigos... estou tendo a necessidade aqui de abrir uma determinada página e a partir dai capturar algumas informações desse html aberto no webbrower. Estou realizando os seguintes passos:

1- Carrego a página...

WebBrowser.Navigate('http://homologacao.anvisa.gov.br/sngpc/')

2- Nessa página devo informar o email e a senha...

PreencheCampos(WebBrowser,'email','[email protected]');

PreencheCampos(WebBrowser,'senha','abcdef');

3- Agora vou interagir com o WebBrowser "clicando" através de uma função no botão Entrar, da própria página...

ClicaBotao(WebBrowser,'Entrar');

Até aqui tudo Ok... mas a página seguinte é carregada em frames e já não consigo mais executar a função ClicaBotao, que no caso seria ClicaBotao(WebBrowser,'btnContinuar'). O "objeto" não é encontrado devido aos frames, e não consigo dar sequencia aqui.

Alguém teria uma dica ou solução pra esse caso ?

Se for o caso eu estou disposto até pagar por esse auxilio, tendo em vista que isso tem grande importância e estou a dias parado tentando uma solução.

Obrigado.

Sérgio

[Diron Donadel]

tente assim: WebBrowser1.OleObject.Document.All.Item('ctl00$ContentPlaceHolder1$btnConsultar', 0).click;

 

onde ctl00$ContentPlaceHolder1$btnConsultar é o name do componente na pagina vc tem que ir na pagina e ver o view-source e achar o nome do botão que está tentando clicar automaticamente

[Sérgio Assunção]

Não consegui ainda...

Em C# eu tenho esse código e funciona certinho ... só não estou conseguindo fazer o mesmo no Delphi.

if (Wb.Document.Window.Frames[0].Document.GetElementById("LoginId") != Null) 
   Wb.Document.Window.Frames[0].Document.GetElementById("LoginId").SetAttribute("Value", eLogin.Text);

Sérgio

[datilas]

eu não tenho o login então fica dificil testar

Editado 6 Setembro, 2013 por datilas

[Sérgio Assunção]

eu não tenho o login então fica dificil testar

Eu salvei a pagina. Estou tentando preencher os campos e clicar na imagem "Ok" para poder avançar para a tela seguinte. Posso lhe enviar o html ?

 

Sérgio

[datilas]

Eu salvei a pagina. Estou tentando preencher os campos e clicar na imagem "Ok" para poder avançar para a tela seguinte. Posso lhe enviar o html ?

 

Sérgio

nem sempre a pagina salva tem todos os elementos nessesarios,

mas não cutsta nada tentar,

envia ai.

[Sérgio Assunção]

Boa tarde ...

Tenho esse comando em C# funcionando certinho:

WebBrowser1.Document.Window.Frames[0].Document.GetElementById("usuario").SetAttribute("value", usuario.Text);

Como ficaria em Delphi ?

Ja tentei:

WebBrowser1.OleObject.Document.GetElementByID('usuario').SetAttribute('value', usuario.Text);

E me retorna um access violation.

 

Alguma dica ?

 

Obrigado.

[datilas]

Boa tarde ...

Tenho esse comando em C# funcionando certinho:

WebBrowser1.Document.Window.Frames[0].Document.GetElementById("usuario").SetAttribute("value", usuario.Text);

Como ficaria em Delphi ?

Ja tentei:

WebBrowser1.OleObject.Document.GetElementByID('usuario').SetAttribute('value', usuario.Text);

E me retorna um access violation.

 

Alguma dica ?

 

Obrigado.

vc ja tentou assim:

WebBrowser1.OleObject.Document.all.Item('usuario', 0).value := usuario.Text;

[Sérgio Assunção]

Ja sim ... Access violation. Eu acho que esse "frame[0]" é a questão. Só não estou sabendo portar esse comando em c# no webbrowser do delphi.

[EMBarbosa]

Ja tentei:

WebBrowser1.OleObject.Document.GetElementByID('usuario').SetAttribute('value', usuario.Text);

E me retorna um access violation.

 

Alguma dica ?

 

Obrigado.

http://stackoverflow.com/questions/6214458/debugging-access-violation-av-errors

http://stackoverflow.com/questions/484727/how-to-find-out-whos-causing-an-access-violation-error

http://stackoverflow.com/questions/2237028/how-to-track-down-access-violation-at-address-00000000?rq=1