如何在delphi中加入自己的指令碼

原文串連

http://www.delphibbs.com/keylife/iblog_show.asp?xid=23590

 

展應用程式一般都會使用外掛程式系統，往往是提供開發包，然後開發出dll來。

實際上指令碼系統更好，特別是動態指令碼語言，如python。

在delphi中嵌入python很容易的，只要安裝一個python4delphi就行了。

地址：http://mmm-experts.com。

先安裝好python for win 2.4，下載：http://www.python.org。

再下載P4D.exe，然後安裝，安裝的時候會提供是否編譯。

安裝後會有PyScripter，是一個python 的IDE，可以用來調試python指令碼。

在delphi程式裡使用python很容易，如果在IDE下，放一個PythonEngine。但是只允許放一個，如果是動態產生，也只允許建立一個變數。

安裝後有demo，可以參照。但是動態建立並沒有提及，這裡介紹一下。

先定義：

var
  pe: TPythonEngine;

初始化：

  pe:=TPythonEngine.Create(nil);
  
pe.LoadDll;

使用：

function 
EvalScript(script :string):string;
var
  
po:PPyObject;
begin
  po:=pe.EvalString(script);
  
if(po<>nil)then
  begin
    
result:=pe.PyObjectAsString(po);
    
pe.Py_DECREF(po);
  end
  else
  
begin
    result:='';
  end;
end;

EvalString是計算運算式，ExecString是執行一段程式，從IO這個屬性中輸出。

更多的代碼可以下載kicoy，在ScriptUnit單元。