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

你可能感兴趣的:(Delphi)