相關資料:https://www.cnblogs.com/linyawen/archive/2011/10/01/2196950.html
如何在程序中執行動態生成的Delphi代碼
經常發現有人提這類問題,或者提問內容最后歸結成這種問題
前些陣子有位高手寫了一個“執行動態生成的代碼”,這是真正的高手,我沒那種功力,我只會投機取巧。
這里提供三種方法,都是借助第三方的組件來實現的。
1、MicroSoft Windows Script Control(http://www.microsoft.com/downloads/details.aspx?FamilyID=d7e31492-2595-49e6-8c02-1426fec693ac&DisplayLang=en)
這是微軟的東西,OCX的,我對OCX的東西一向沒什么好感,:)但總算是解決問題的一個方法。
到以上地址下載回來sct10en.exe,這是個安裝程序,安裝完成以后,在安裝目錄里有一個msscript.ocx,就是它了。
在Delphi中Import OCX...導入安裝,在窗體上添加一個TScriptControl類的實例。
設置好它的Scriptanguage屬性:VBScript,JScript...IE認識的它都認識,沒有Object Pascal?不要急,好戲總是放在后頭嘛...
以VbScript為例:
運行腳本:ScriptControl1.ExecuteStatement('msgbox("Runing....")');
計算公式:ShowMessage(scriptcontrol1.Eval('1+1'));
優點:皇家的東西,相信它,沒錯的
缺點:發布程序帶個OCX,只能支持微軟的Script
2、Dream Collection中的DCScripter(ftp://202.117.210.28/file/dream4.rar)
安裝好以后在控件面板DreamCompany里面有一個向右的黑色箭頭,就是它了。
以VbScript為例:
運行腳本:DCScripter1.Script.Add('msgbox("Script Runing...")');
DCScripter1.Run;
計算公式:ShowMessage(DCScripter1.Evaluate('1+1'));
優點:VCL的,除支持微軟的腳本以外,還支持Perl,Python
缺點:還是不支持Object Pascal...(別打,就來了...)
3、DelphiWebScriptII(http://prdownloads.sourceforge.net/dws/dws2src11.zip)
這個東西好啊,功能超強,太強了,太強了,真強...
安裝完成以后,將TDelphiWebScriptII,Tdws2GUIFunctions加入窗體,引用dws2Exprs單元。
運行腳本:
var
prg: TProgram;
begin
prg := DelphiWebScriptII1.Compile('ShowMessage(''hi'');');
prg.Execute;
end;
這個東西是用稍微復雜一點,不過看看Demo吧,接下來的造化就看你自己的了。
優點:VCL的,功能超強,支持Object Pascal...
缺點:只支持Object Pascal...
以上三個各有憂缺點,大家可能比較欣賞DelphiWebScript的功能,但是我覺得如果是給用戶使用的話,還是Dream Scripter比較好,畢竟VbScript等比較容易為用戶所接受。其實現在很多網管等都很習慣於利用系統提供的COM對象,使用純腳本進行編程。很方便的。