Delphi中ScriptControl的高級應用（一）

在我們的Windows系統裡提供了一個叫ScriptControl的OCX組件，我們可以用這個組件來實現腳本故事世界的精彩。

1、創建ScriptControl組件服務

首先，我們來看一下該組件都有哪些方法和屬性。如圖001，002。 圖001 圖002

接著，我們用Delphi創建組件服務。 從圖001可知，該組件的PRogID為“MSScriptControl.ScriptControl .1” 。所以我們可以這樣創建組件：Var sc : OleVariant;begin sc := CreateOleObject('MSScriptControl.ScriptControl.1');//使用Language屬性來設定該組件所使用的語言//語言可以為：VbScript、javaScript (也可縮寫為JScript)//相當於在HTML裡用的<Script Language='JScript'>…</Scirpt> sc.Language :='Javascript';end;

2、用Eval（）來實現最簡單的數學表達式的計算

Eval（）是這個組件中用的最多的一個方法，也是經常被大家用來計算數學表達式的一個方法。 演示Function calc(const expression : String):Integer; Var sc : OleVariant; begin //expresion := '100+5* 3' ; sc := CreateOleObject('MSScriptControl.ScriptControl.1'); sc.Language :='JavaScript'; result := StrtoInt( sc.eval(expression) ); end; Sample: 115 := calc('100+5 * 3' );

3、實現漢字加密

在JavaScript裡有兩個函數Escape和Unescape，一般都是用作Html代碼裡的對Script進行加密時使用，目的是為了防止別人直接查看其腳本，以其亂碼形式顯示。 圖003加密： Words := '這是一段用escape加密的漢字信息！ '; //Result:%u8FD9%u 662F %u4E00%u6BB5%u7528escape%u 52A 0%u5BC6%u7684%u 6C 49%u5B57%u4FE1%u 606F %uFF01 Result := sc.Eval('escape('''+Words+''')');解密： Result := sc.Eval('unescape('''+Words+''')');

4、利用JavaScript的正則表達式來驗證IP地址的規範

這裡我們需要用到ScriptControl的AddCode方法來添加自定義方法。 IP地址的規則是從0.0.0 .0-255.255.255.255。 以下就是驗證IP地址的代碼： var ipreg,script:String;begin //IP正則式ipreg := '^([01]?[0-9][0-9]|[01]?[0-9 ]?[0-9]|2[0-4][0-9]|25[0-5])/.'+ '([01]?[0-9][0-9]|[01 ]?[0-9]?[0-9]|2[0-4][0-9]|25[0-5])/.'+ '([01]?[0-9][0 -9]|[01]?[0-9]?[0-9]|2[0-4][0-9]|25[0-5])/.'+ '([01]?[ 0-9][0-9]|[01]?[0-9]?[0-9]|2[0-4][0-9]|25[0-5])$'; // JavaScript自定義函數script:= 'function IpReg(str){'+ 'var re=new RegExp('''+ipreg+''');'+ ' return re.test(str);}'; sc.AddCode (script); //執行函數if sc.Eval('IpReg('''+Edit1.Text+''')') then ShowMessage('正確的IP地址個格式！') else ShowMessage('非法IP地址格式！') ;end;----------------------------JoeCom（juwuyi）2005-03-19