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将脚本代码添加进来，再进行运算