Help me - Chromium1.Browser.MainFrame.ExecuteJavaScript

530 views
Skip to first unread message

Wagner Campanari

unread,
Dec 8, 2018, 4:38:04 PM12/8/18
to delphichromiumembedded
I'm trying to insert values ​​inside this input, with the code below:


Chromium1.Browser.MainFrame.ExecuteJavaScript ('document.getElementById ("FormRow-BUY-quantity"). Value = "100";', 'about: blank', 0);

 

I am using chromium cef4 https://www.briskbard.com/index.php?lang=en&pageid=cef in rad studio 10.2, the code sends the value to the input, but after a few milliseconds the value disappears from the input, as if it had not been rendered in the input.

More testing in another way I was able to send the value as per the code below:


procedure TMiniBrowserFrm.Button1Click(Sender: TObject);
var
  event: TCefKeyEvent;
begin
  FillChar(event, SizeOf(TCefKeyEvent), 0);
  event.kind := KEYEVENT_KEYDOWN;
  event.windows_key_code := ord('1') ;
   Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  event.windows_key_code := ord('0') ;
  Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);

  FillChar(event, SizeOf(TCefKeyEvent), 0);
  event.kind := KEYEVENT_CHAR;
  event.windows_key_code := ord('1');
   Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  event.windows_key_code := ord('0') ;
  Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);

  FillChar(event, SizeOf(TCefKeyEvent), 0);
  event.kind := KEYEVENT_KEYUP;
  event.windows_key_code := ord('1');
   Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  event.windows_key_code := ord('0') ;
  Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);

end;



I would like to know how I can fix the problem using javaScripit what should I do to make it work?

Chromium1.Browser.MainFrame.ExecuteJavaScript ('document.getElementById ("FormRow-BUY-quantity"). Value = "100";', 'about: blank', 0);
 

<input class = "sc-1c2873k-1 gszTkZ" type = "number" id = "FormRow-BUY-quantity" name = "quantity" step = "0.000001" min = "0.000001" value = "">
Reply all
Reply to author
Forward
0 new messages