有无能执行JavaScript函数的控件？

Question

我现在的做法是自己做个html页面调用js函数,然后把结果取出来
但是有部分用户系统设置问题，总是会提示“脚本错误”的对话框

Answer 1

Delphi程序中运行JavaScript脚本代码
Delphi程序中运行JavaScript脚本代码微软Windows操作系统中有一个叫ScriptControl的OCX组件利用这个组件，可以在自己的程序中运行JavaScript或VBScript这两种脚本代码使用很简单，新建一个工程，在窗体中放一个Button1控件在Button1控件的Click事件中写代码如下：procedure TForm1.Button1Click(Sender: TObject);
var
js:OleVariant;
begin
  js:=CreateOleObject('ScriptControl');//创建组件
  js.Language:='JavaScript';//指定组件所使用的语言，也可以是VBScript
  ShowMessage(js.Eval('100+1'));//计算100+1的值
  js:=Unassigned;
end;上例中，使用ScriptControl组件计算出100+1的值，并显示出来Eval是ScriptControl组件的一个常用方法，返回值是string类型另一个比较常用的方法是AddCode，如果有比较复杂的脚本代码需要运行，就先用AddCode将脚本代码添加进来，再进行运算http://www.chenhanqiu.cn/post/91.html