TEmbeddedWB.ExecScriptEx无法使用JavaScript

Question

Put a TMemo , a TEmbeddedWB and a TButton on a Delphi VCL form. 将TMemo ， TEmbeddedWB和TButton放在Delphi VCL表单上。

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 : 这是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. 但它不起作用：单击按钮后vResult为0。

Why it does not work? 为什么它不起作用？

Answer 1

The parameter type passed to ExecScriptEx must be an Integer in this case, not a string : 在这种情况下，传递给ExecScriptEx的参数类型必须是Integer ，而不是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! 现在它有效！

TEmbeddedWB.ExecScriptEx无法使用JavaScript

问题描述

1 个解决方案

解决方案1
3 已采纳 2015-08-22 15:02:34

TEmbeddedWB.ExecScriptEx无法使用JavaScript

问题描述

1 个解决方案

解决方案1 3 已采纳 2015-08-22 15:02:34

解决方案1
3 已采纳 2015-08-22 15:02:34