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