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://hi.baidu.com/abcxd/blog/item/baed7d73746e6a1a8701b0a7.html