TEmbeddedWB.ExecScriptEx not working with JavaScript

Question

Put a TMemo, a TEmbeddedWB and a TButton on a Delphi VCL form.

This is the code from the form unit:

procedure TForm1.Button1Click(Sender: TObject);
var
  vResult: OleVariant;
  Para1: string;
begin
  Para1 := '5'; // edPara.Text;
  vResult := EmbeddedWB1.ExecScriptEx('evaluate', [Para1]);
  ShowMessage('Result from the Script: ' + IntToStr(vResult));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EmbeddedWB1.HTMLCode.Assign(Memo1.Lines);
end;

This is the content of the Memo1.Lines:

<HTML> 
<HEAD> 
<TITLE>Test Script</TITLE> 
<SCRIPT> 
  function evaluate(x) { alert("Hello from the script evaluate(x)"); return eval(x * x); } 
</SCRIPT> 
</HEAD> 
<BODY> TEST Script: eval(x * x)</BODY> 
</HTML>

But it does not work: vResult is 0 after clicking the button.

Why it does not work?

user1580348 · Accepted Answer · 2015-08-22 15:02:34Z

3

The parameter type passed to ExecScriptEx must be an Integer in this case, not a string:

procedure TForm1.Button1Click(Sender: TObject);
var
  vResult: OleVariant;
  Para1: string;
  ParaInt: Integer;
begin
  //Para1 := '5'; // edPara.Text;
  ParaInt := 5;
  vResult := EmbeddedWB1.ExecScriptEx('evaluate', [ParaInt]);
  ShowMessage('Result from the Script: ' + IntToStr(vResult));
end;

Now it works!

answered Aug 22, 2015 at 15:02

user1580348

6,0996 gold badges54 silver badges131 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Jerry Dodge Over a year ago

Interesting, because when directly using JavaScript, you are in fact able to pass and use either/or. Except I wonder if the reason is because '5' * '5' isn't valid...

TLama Over a year ago

@Jerry, yes, but you cannot multiply strings.

Jerry Dodge Over a year ago

@TLama Yes, I just caught that. I was paying attention to the alert() before I noticed the return() calculation. I need to finish my coffee :-/

Collectives™ on Stack Overflow

TEmbeddedWB.ExecScriptEx not working with JavaScript

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related