Delphi中ScriptControl的高級應用（一）
在我們的Windows系統(tǒng)里提供了一個叫ScriptControl的OCX組件，我們可以用這個組件來實現(xiàn)腳本故事世界的精彩。 1、創(chuàng)建ScriptControl組件服務
首先，我們來看一下該組件都有哪些方法和屬性。如圖001，002。
圖001
圖002
接著，我們用Delphi創(chuàng)建組件服務。
從圖001可知，該組件的PRogID為“MSScriptControl.ScriptControl.1”。所以我們可以這樣創(chuàng)建組件： Var
sc : OleVariant;
begin
sc := CreateOleObject('MSScriptControl.ScriptControl.1');
//使用Language屬性來設(shè)定該組件所使用的語言
//語言可以為：VbScript、javaScript(也可縮寫為JScript) //相當于在HTML里用的<Script Language=’JScript’>…</Scirpt>
end;
2、用Eval（）來實現(xiàn)最簡單的數(shù)學表達式的計算
Eval（）是這個組件中用的最多的一個方法，也是經(jīng)常被大家用來計算數(shù)學表達式的一個方法。
演示
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、實現(xiàn)漢字加密
在JavaScript里有兩個函數(shù)Escape和Unescape，一般都是用作Html代碼里的對Script進行加密時使用，目的是為了防止別人直接查看其腳本，以其亂碼形式顯示。
圖003
加密：
Words := ‘這是一段用escape加密的漢字信息！’; //Result:%u8FD9%u662F%u4E00%u6BB5%u7528escape%u52A0%u5BC6%u7684%u6C49%u5B57%u4FE1%u606F%uFF01
Result := sc.Eval('escape('''+Words+''')');
解密：
Result := sc.Eval('unescape('''+Words+''')');
4、利用JavaScript的正則表達式來驗證IP地址的規(guī)范
這里我們需要用到ScriptControl的AddCode方法來添加自定義方法。
IP地址的規(guī)則是從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自定義函數(shù)
script:= 'function IpReg(str){'+
'var re=new RegExp('''+ipreg+''');'+
' return re.test(str);}';
sc.AddCode(script);
//執(zhí)行函數(shù)
if sc.Eval('IpReg('''+Edit1.Text+''')') then
ShowMessage('正確的IP地址個格式！')
else ShowMessage('非法IP地址格式！') ;
end;
----------------------------JoeCom（juwuyi）2005-03-19
