如何在delphi中加入自己的脚本

[magi...@gmail.com]

扩展应用程序一般都会使用插件系统，往往是提供开发包，然后开发出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单元。

---
本文章使用开源内容管理kicoy发布