编写应用程序时，往往会遇到需要嵌入脚本解释器场合。小到字符串表达式求值，大到构建平台时为用户提供脚本环境。现在DELPHI社区中关于脚本解释方面的第三方控件有不少，但多数是为简单的求值场合而设计。对应地在C社区与JAVA社区，应用程序与python协作已是非常普遍的事情：python本身自带C的扩展与嵌入接口，而C社区的著名的boost库里也提供了python库;Java则有Jython, 在Jython的项目主页 www.jyphon.org 上，玩笑式地夸口说：“Jython, lest you do not know of it, is the most compelling weapon the Java platform has for its survival into the 21st century :-)”。当然，对于这种自卖自夸的话我们不会尽信，但此话也从一个侧面说出了Jython的定位。本文尝试整理一下Python在Delphi中的应用。这个方面我还是刚开始接触，暂时说不上有什么心得。只是先把目前手上的资料集中一下备查，以便日后扩充。
创建一个Form 放入一个TMemo (或者 TRichEdit) //RichEdit1 放入一个TPythonGUIInputOutput 用来显示Python的输出信息 放入一个TMemo用来编辑源代码 //Memo1 放入一个TPythonEngine 把TPythonEngine的IO属性设为TPythonGUIInputOutput 把TPythonGUIInputOutput的Output属性设为RichEdit1 放入一个TButton，Caption设为"Execute script" 在TButton的Onclick事件中加入： var Result : PPyObject; begin with PythonEngine1 do begin Result := EvalStrings( Memo1.Lines ); if Assigned(Result) then begin ShowMessage(Format('Eval: %s',[PyObjectAsString(Result)])); Py_DECREF(Result); end else ShowMessage('Could not evaluate the script'); // Or you could simply use: // ShowMessage('Eval: ' + EvalStringsAsStr( Memo1.Lines ) ); end; 完成！编译并运行，在Memo2中写入：print 2+2 按Execute Script按钮，你就能在memo1中看到输出，4
//========== 其中， with PythonEngine1 do begin...end 之间的整段可以直接用 ShowMessage('Eval: ' + EvalStringsAsStr(Memo1.Lines)代替。
先按示例3设置好控件 放入一个TEdit 在PythonDelphiVar1的OnGetData事件中加入： Data := Edit1.Text; 在PythonDelphiVar1的OnSetData事件中加入： Edit1.Text := Data; 在PythonDelphiVar1的OnChange事件中加入： with Sender as TPythonDelphiVar do ShowMessage( 'Var test changed: ' + ValueAsString );
放入一个TPythonDelphiVar控件 把它的Engine属性设为PythonEngine1 把它的VarName属性中的变量名改为"object" 在它的OnExtGetData属性中加入： with GetPythonEngine do begin Data := FMyPythonObject; Py_XIncRef(Data); // This is very important （非常重要，在引擎中增加本变量引用计数） end;
在它的OnExtSetData属性中加入：
with GetPythonEngine do begin Py_XDecRef(FMyPythonObject); // This is very important (非常重要，在引擎中减少本变量引用计数) FMyPythonObject := Data; Py_XIncRef(FMyPythonObject); // This is very important (非常重要，在引擎中增加本变量引用计数) end;
运行程序，在源程序窗口加入： print "Current value of var test is: ", varname varname.Value = "New value set by Python" print "----------" class C: def __init__(Self, Arg): Self.Arg = Arg def __str__(Self): return "<C instance contains: " + str(Self.Arg) + ">" print "Current value of var object is: ", object object.Value = C("Hello !") print "New value is:", object
点击运行按钮并观察Edit1的值 //Edit1中是test的值, "New Value set by Python"
5) 定义一个新模块 （在Python中使用Delphi定义的函数） 放入一个TPythonModule 把它的Engine属性设为PythonEngine1 把它的ModuleName属性设为"spam" 在它的OnInitialization事件中加入： with Sender as TPythonModule do AddMethod( 'foo', spam_foo, 1, 'foo' );
在PythonModule1Initialization过程之前， 加入spam_foo函数的定义： function spam_foo( self, args : PPyObject ) : PPyObject; cdecl; begin with GetPythonEngine do begin ShowMessage( 'args of foo: '+PyObjectAsString(args) ); Result := Py_None; Py_IncRef(Result); end; end;
