Click Webbrowser

[FlaviaMac]

Oi pessoal do fórum,eu criei um sistema de integração da minha loja com uma loja grande,ele usa o webbroswer para entrar no sistema,problema que antes dava uns erros de scripts quando abria a pagina então coloquei um: Form1.WebBrowser1.silent:=true; e resolvi o problema,porém ele não da a função de clicar no botão logar.

WebBrowser1.OleObject.Document.All.Item('Logar', 0).click;

<input tabindex="3" name="Logar" id="Logar" type="submit" value="" onsuccess="Cliente_Logar('https://carrinho.ricardoeletro.com.br/Pedido/Acompanhamento')" form="Login" enter="">

Mesmo que eu tente clicar manualmente não da certo,seria por causa dos erros de script?

[Jhonas]

WebBrowser1.Silent := True;

não vai aparecer as mensagens de erro de script, mas está lá ... só que não é retornado.

o Webbrowser faz interfaceamento com os navegadores instalados no seu micro, um deles é o IE.

O script em browser são programas, onde o mesmo deve interpretar e executar esses scripts . Se um script com novas funções é mais atual e o navegador não suportar (mais antigos como IE7 vai acontecer erro de script)

Tente chamar sua URL usando o seu navegador de Internet, com a opção de verificar o script de página.

No FireFox existe um plugin que ele verifica onde está o script com problema. Se o problema acontece mesmo usando o navegador, o problema pode estar na propria pagina e não no componente.

Pode ser tambem bug do componente ( webbrowser ) ( voce não informou qual a versão do seu delphi )

abraço

[FlaviaMac]

Olá,uso delphi 7,abri usando 3 navegadores (IE,Chrome,Firefox) nenhum dos navegadores apareceu erro de script,não entendi o que você falou de verificar,mais pelo o que você disse o webbrowser usa IE como base,então eu teria que atualiza-lo?

[Jhonas]

sim ... atualize o seu IE

Se estiver usando o Firefox

Firefox > Menu > Ferramentas > Desenvolvedor Web > Depurar ou

Firefox > Menu > Ferramentas > Desenvolvedor Web > Inspesionar

com isso voce pode ver o código da pagina e achar o script com problema

abraço

[FlaviaMac]

Bom não tenho controle sobre a página,tentei atualizar mas não deu certo,os erros que ele encontra quando é aberto pelo webbrowser do delphi é os seguintes:

Linha: 1
Caractere: 419329
Codigo: 0
https://www.imgeletro.com.br/site/re/js/Index.js?v=1408971394

Linha: 69032533
Caractere: 1
Erro: 'jQuery' não está definido
Url: https://carrinho.ricardoeletro.com.br/Cliente/Login

[Jhonas]

coloque a parte do seu código onde voce chama a pagina e clica no botao para logar

[FlaviaMac]

if not Continuar then
Break;

delay(2000);
  while (WebBrowser1.Busy) or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do
  begin
    Application.ProcessMessages;
    Sleep(100);
  end;

WebBrowser1.OleObject.Document.All.Item('Email', 0).value := DadosE;
WebBrowser1.OleObject.Document.All.Item('Senha', 0).value := DadosS;
WebBrowser1.OleObject.Document.All.Item('Logar', 0).click;
if not Continuar then
Break;
delay(2000);
  while (WebBrowser1.Busy) or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do
  begin
    Application.ProcessMessages;
    Sleep(100);
  end;

No inicio do codigo existe um navigate para ir até a página...

[Jhonas]

pode ser que o seu while fique em um loop constante .... para verificar use o break point do delphi para acompanhar a sequencia do processamento ( debug do delphi )

abraço

[rafaellacerda]

não resolveu???

Porque não usar o ONDOCUMENTCOMPLETE??