如何在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单元。