B4A nao executa comandos JavaScript

[Paulo_Soares]

Boa noite colegas, estou tentando fazer uma rotina para rodar comandos em javascript.
É para preencher alguns campos de input da página, criada por um ESP8266.
O WebBrowser1 carrega a página ok, mas quando dou o botão 2 para preencher avisa que executou o comando: Executing javascript: document.querySelector('[name=txt_IP1]').value = 192
Mas nada acontece na página:
Eu conferi o comando no browser do pc e está correto (imagem), mas quando tento rodar no celular nada acontece.

Desde já eu agradeço qualquer ajuda dos colegas.

Abs.

Imagens das telas:
Programa: (versão zipada no anexo)

Tela do celular:

Tela Javascript funcionando no browser do PC:

 

[Rubsanpe]

Olá. Como você faz o link do conteúdo da webview para o código javascript que você deseja executar na webview? Em seu código você apenas cria a string com o código, mas não vê como o executa na visualização da web. No navegador do scritório você está usando o console na página carregada.

Veja isto

https://www.b4x.com/android/forum/threads/signature-capturing-with-jsignature-and-webviewextras.96451/

Rubén

 

[Paulo_Soares]

Olá. Como você faz o link do conteúdo da webview para o código javascript que você deseja executar na webview? Em seu código você apenas cria a string com o código, mas não vê como o executa na visualização da web. No navegador do scritório você está usando o console na página carregada.

Veja isto

https://www.b4x.com/android/forum/threads/signature-capturing-with-jsignature-and-webviewextras.96451/

Rubén

Obrigado pelo retorno Rubén. Eu não entendi preciso referendar à página WEB ? No programa eu a carrego no WebView1, o comando não deveria funcionar como no PC ?
Eu preciso adicionar mais algum comando de referência à pagina ? Desculpe a ignorância mas estou aprendendo e no meu entendimento deveria já atuar na página WebView1, que fou declarada como "true" e se encontra aberta no programa. Minha analogia está errada ? Desde já agradeço a atenção dispensada Abs.

 

[Paulo_Soares]

Por exemplo eu digito o comando, no delphi 14, para o fundo ficar verde e funciona !
WebBrowser1.EvaluateJavaScript('document.body.style.backgroundColor = "green"'); ---- OK
Por isto eu não entendo por que o comando de preenchimento do campo input não funciona, pois pelo comando acima o WebBrowser1 é o "alvo" do comando.
No delphi 5 o comando funciona.
WebBrowser1.OleObject.Document.all.Item('txt_IP1', 0).value := '192'; ----- OK
No delphi 14 o comando não funciona !
WebBrowser1.EvaluateJavaScript('document.querySelector("[name=txt_IP1]").value = 192')
O Delphi 14 não deveria executar qualquer comando em JavaScript ? Será que tem alguma limitação ao uso do JS ?

 

[Cableguy]

Ve este link

Thread 'WebViewExtras' https://www.b4x.com/android/forum/threads/webviewextras.12453/

 

[TILogistic]

veja esses links, é para B4X.

Interact with HTML elements from B4j app?

hi I would like to know if I can load a site into a webview and then fill an HTML input element with text by calling his id property? or maybe simulate a button click in that site? (button element id is known) thanx, ilan

www.b4x.com

Click checkbox in webview and submit using javascript

Let me start by saying I am a noob in javascript. I was working with a webpage manipulating some items from B4J, and this https://www.b4x.com/android/forum/threads/how-to-manipulate-the-values-of-an-html-form-in-a-webview-object.47072/ thread helped me and I am now in the final stage. The last...

www.b4x.com

 

[Paulo_Soares]

Eu até mudei minha foto, as orelhas grandes não me deixam entender como não consigo fazer isto acontecer !
Como eu faço para "debugar" o comando enviado ?
Eu tentei usar a biblioteca WebViewExtras1 mas não deu certo ainda !
---> WebViewExtras1.executeJavascript($"document.querySelector('[name=txt_IP1]').value = 192"$)

 

[drgottjr]

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Dim webview As WebView
    Dim wvx As WebViewExtras
    Dim button As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    webview.Initialize("webview")
    Activity.AddView(webview, 0%x,0%y,100%x,100%y)
    wvx.addWebChromeClient(webview, "wvx")
    
    button.Initialize("button")
    Activity.AddView(button, 75%x,90%y,25%x,8%y)
    button.Text = "update"
    button.BringToFront
    webview.LoadUrl("http://192.168.1.12:8000/test.html")
End Sub

Sub button_click
    wvx.executeJavascript(webview,"document.querySelector('[name=txt_IP1]').value = 192;")
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub webview_PageFinished (Url As String)
    Log("page finished")
End Sub

 

[Paulo_Soares]

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Dim webview As WebView
    Dim wvx As WebViewExtras
    Dim button As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    webview.Initialize("webview")
    Activity.AddView(webview, 0%x,0%y,100%x,100%y)
    wvx.addWebChromeClient(webview, "wvx")
   
    button.Initialize("button")
    Activity.AddView(button, 75%x,90%y,25%x,8%y)
    button.Text = "update"
    button.BringToFront
    webview.LoadUrl("http://192.168.1.12:8000/test.html")
End Sub

Sub button_click
    wvx.executeJavascript(webview,"document.querySelector('[name=txt_IP1]').value = 192;")
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub webview_PageFinished (Url As String)
    Log("page finished")
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Dim webview As WebView
    Dim wvx As WebViewExtras
    Dim button As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    webview.Initialize("webview")
    Activity.AddView(webview, 0%x,0%y,100%x,100%y)
    wvx.addWebChromeClient(webview, "wvx")
   
    button.Initialize("button")
    Activity.AddView(button, 75%x,90%y,25%x,8%y)
    button.Text = "update"
    button.BringToFront
    webview.LoadUrl("http://192.168.1.12:8000/test.html")
End Sub

Sub button_click
    wvx.executeJavascript(webview,"document.querySelector('[name=txt_IP1]').value = 192;")
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub webview_PageFinished (Url As String)
    Log("page finished")
End Sub

Funcionou certinho agora ! Muito obrigado !

 

[Paulo_Soares]

Sub button_click
wvx.executeJavascript(webview,"document.querySelector('[name=txt_IP1]').value = 192;")
End Sub

Esta solução dada por drgottjr funcionou muito bem quando temos o numero "192" no comando de JS, entretanto quando fui diversificar como por exemplo:
EditText1.Text = "192";
wvx.executeJavascript(webview,"document.querySelector('[name=txt_IP1]').value = "+EditText1.Text+";")
Apresentou a seguinte falha: java.lang.NumberFormatException: For input string: "document.querySelector('[name=txt_A]').value ="

Não deveria concatenar o texto e substituir EditText1.Text por 192 e funcionar ?
Tentei também colocar todo o texto em uma string mas não deu certo !

Alguém pode dar alguma ajuda aqui ? Obrigado.

Abs

 

[TILogistic]

?

wvx.executeJavascript(webview1,$"document.querySelector('[name=txt_IP1]').value = ${EditText1.Text};"$)

Wait for Javascript to complete

Dear All; if I run the script I get the last value for para3, is there a way to show each value in turn, like to wait for each script before starting the next one. Dim Javascript As String Javascript = $"B4A.CallSub('ProcessHTML', true, document.getElementById('para1').value,'para1')"$...

www.b4x.com

 

[Paulo_Soares]

?

wvx.executeJavascript(webview1,$"document.querySelector('[name=txt_IP1]').value = ${EditText1.Text};"$)

Wait for Javascript to complete

Dear All; if I run the script I get the last value for para3, is there a way to show each value in turn, like to wait for each script before starting the next one. Dim Javascript As String Javascript = $"B4A.CallSub('ProcessHTML', true, document.getElementById('para1').value,'para1')"$...

www.b4x.com

Funcionou legal para números, mas para texto eu não sei o que estou errando.
Os campos EditText5.Text e EditText6.Text na interface estão como TEXT , não deveria aceitar o texto digitado ?

Desde já agradeço a ajuda da comunidade em especial Omar Parra e drgottjr.

No pouco que conheço de programação EditText5.Text deveria ser uma sequência de caracteres . Tentei até "converter" para uma variável string (s) mas não deu certo.

Aproveitando peço que indiquem o comando para ativar o click no botão enviar da página.

Novamente agradeço decoração a ajuda da comunidade. Abs

 

[TILogistic]

test:
Use ""

wvx.executeJavascript(webview1,$"document.querySelector('[name=txt_IP1]').value = "${EditText6.Text}";"$)

 

[TILogistic]

click button

RunJavaScript($"document.getElementById("btnGuess").click();"$)

see:
it is multiplatform B4X

Interact with HTML elements from B4j app?

hi I would like to know if I can load a site into a webview and then fill an HTML input element with text by calling his id property? or maybe simulate a button click in that site? (button element id is known) thanx, ilan

www.b4x.com

 

[TILogistic]

e faça upload de um exemplo para ajudá-lo a entender o que deseja fazer.

 

[Paulo_Soares]

e faça upload de um exemplo para ajudá-lo a entender o que deseja fazer.

Obrigado amigos, agora deu certo, deixa eu falar do projeto para entendimento.
Trata-se de uma interface para comunicar com o Node8266 , tem uma pagina html para entrada de nodos dados de rede, que podem ser configurados pelo browser.
conforme voces podem ver na pagina abaixo: (web, arduino e inspeção)

Como eu sou professor de eletrônica, gostaria que meus alunos praticassem com este módulo que é barato e excelente para aprendizado.
Assim aprendem um pouco de arduino (C), noções de html além de eletrônica.
Eu fiz um programa em delphi para gravar no ESP as configurações de rede, sem precisar do browser:

Como nem todos tem computador, eu resolvi que iria fazer um programa para gravar através do celular (android), daí o uso do B4A; que eu pretendo adotar como linguagem e ensinar meus alunos, mas para isto eu preciso praticar antes de ensinar, neste caso o desafio era fazer esta interface para conhecer e aprender sobre o B4A.
Agora que eu consegui vencer este desafio, me sinto mais seguro em passar para frente este conhecimento. Sei que inda tem bastante para eu aprender, por isto vou preparar outros desafios para mim mesmo !
O programa que funcionou ficou assim:

Ainda tenho um caminho pela frente: fazer alguns teste e instalar no celular de forma "independente" , depois preparar um tutorial para ensinamento.

Gostaria de agradecer à comunidade em especial ao Omar, que tem nos ajudado.

Um grande abraço à todos.