将一个TMemo
,一个TEmbeddedWB
和一个TButton
放到Delphi VCL表上
这是表单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;
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>
但它不起作用:点击按钮后vResult
为0。
为什么不工作?
传递给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;
现在它工作了!