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將腳本代碼添加進來，再進行運算