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...
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
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?
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?