##language:zh
#pragma section-numbers on
||[[PyGuiDev|Python GUI开发]]||^源自列表^'''[[http://groups.google.com/group/python-cn/t/954e5e32f568f945|Python For Delphi 示例 （最好的Python GUI实现方法）]]''' ||

::-- ZoomQuiet [<<DateTime(2007-08-04T08:57:46Z)>>]
<<TableOfContents>>
## 默许导航,请保留
<<Include(CPUGnav)>>

= Python For Delphi 示例 =

{{{samson <yan_xiao_song@hotmail.com> 		 hide details	 3:22 pm (50 minutes ago) 
	reply-to		python-cn@googlegroups.com	 
	to		"python.cn" <python-cn@googlegroups.com>	 
	date		Aug 4, 2007 3:22 PM	 
	subject		[CPyUG:29962] [原创]Python For Delphi 示例 （最好的Python GUI实现方法）	 
	mailed-by		googlegroups.com
}}}
最近用Python For Delphi有了一段时间，感觉这么好的东西不与大家分享简直是暴敛天物了，而且前一段看大家讨论GUI的问题相当多，为
了让大家少走点弯路，所以萌发了写此文的念头。

因时间有限，在此只做一个简要的实例，在该实例中，可以通过delphi操作Python中的list对象。其实P4D功能十分强大，远不止这些，还可
以用Delphi写出供Python调用的模块，这样的模块性能可是相当的高哦。 希望能够借此文抛砖引玉，勾起大家使用P4D的愿望。

== 步骤 ==
 * 0。安装delphi7,安装python25
 * 1。安装P4D控件
 * 2。创建一个窗体，放置PythonEngine，PythonGUIInputOutput，Memo三个控件
 * 3。PythonEngine的IO属性指到PythonGUIInputOutput，PythonGUIInputOutput的Output属性指到Memo
 * 4。在主窗体的FormActivate事件中，添加如下代码（注意还需要增加Uses）：
{{{
uses
 VarPyth;

procedure TForm1.FormActivate(Sender: TObject);
var
 PyModule: variant;
 i: integer;
begin
 PyModule:=Import('hello');
 memo1.Lines.Add(Format('模块初始化时接口对象长度：%s',
[PyModule.IntfListDemo.Length]));
 PyModule.main();
 memo1.Lines.Add(Format('调用Python后接口对象长度：%s',
[PyModule.IntfListDemo.Length]));
 memo1.Lines.Add('接口对象内容');
 for i:=0 to PyModule.IntfListDemo.Length-1 do
 begin
   memo1.Lines.Add(PyModule.IntfListDemo.GetItem(i));
 end;

 for i:=PyModule.IntfListDemo.Length-1 downto 0 do
 begin
   PyModule.IntfListDemo.RemoveItem(i);
   memo1.Lines.Add(Format('操纵Python对象后，接口对象长度：%s',
[PyModule.IntfListDemo.Length]));
 end;

 PyModule.IntfListDemo.AppendStr('重新');
 PyModule.IntfListDemo.AppendStr('初始化');
 PyModule.IntfListDemo.AppendStr('Python');
 PyModule.IntfListDemo.AppendStr('变量');

 memo1.Lines.Add('接口对象内容');
 for i:=0 to PyModule.IntfListDemo.Length-1 do
 begin
   memo1.Lines.Add(PyModule.IntfListDemo.GetItem(i));
 end;
end;
}}}

 * 5。创建hello.py程序，与delphi程序在同一个目录下。代码如下：

{{{#!python
# -*- coding: utf-8 -*-
class MyP4DStrList(list):
       def CopyFrom(self,SrcList):
               self.Clear()
               for i in SrcList:
                       self.append(i)
       def Clear(self):
               for x in range(len(self)): del self[0]
       def GetItem(self,index):
               return self[index]
       def RemoveItem(self,index):
               del self[index]
       def AppendStr(self,StrToAppend):
               self.append(StrToAppend)
       def RemoveStr(self,StrToRemove):
               self.remove(StrToRemove)

IntfListDemo=MyP4DStrList()


def main():
       IntfListDemo.append('hello')
       IntfListDemo.append('world')
       IntfListDemo.append('with')
       IntfListDemo.append('P4D')



if __name__ == '__main__':
       main()
}}}

= 反馈 =