在Python脚本中使用Delphi控件

   Python设计GUI界面的时候，有强大的WxPython，PyQt等，在Windows下也有一个PyWin32的，不过那个是纯SDK模式开发的，用起来不太方便，这两天通过P4D研究了一下Delphi和Python交互的模式，于是通过P4D写了一个模块，通过本模块，就能实现在Python脚本中使用Delphi的控件。目前转化了几个基本的控件支持，增加了几个常规函数，用来作为一般的需求。

比如使用本模块创建一个简单脚本的记事本功能：

# -*-coding: gbk-*-
from DxVcl import *

class MainForm(Form):
def __init__ (self, Owner):
self.Caption = " A Delphi Form... "
self.SetBounds( 10 , 10 , 500 , 400 )
self.TopPanel = Panel(self)
self.TopPanel.Parent = self
self.TopPanel.Align = 1
self.Btn = Button(self)
self.Btn.SetProps(Parent = self.TopPanel, Caption = " 打开 " )
self.Btn.SetBounds(0, 3 , 100 , 25 )
self.OnClose = self.MainFormClose
self.Btn.OnClick = self.BtnClick
self.BtnSave = Button(self)
self.BtnSave.SetProps(Parent = self.TopPanel, Caption = " 保存 " )
self.BtnSave.SetBounds( 110 , 3 , 100 , 25 )
self.BtnSave.OnClick = self.BtnSaveClick

self.Mo = Memo(self)
self.Mo.Parent = self
self.Mo.Align = 5
def BtnClick(self,Sender):
# self.Caption = "测试不得闲"
# ShowMessage(StrToHex(self.Caption))
# ShowMessage(''.join(['16进制转换回来:',HexToStr(StrToHex(self.Caption))]))
# ShowMessage(IntToStr(234234))
fileName = OpenDialog( ' 文本文件|*.txt ' , ' 打开文档 ' )
if fileName:

self.Caption = '已经打开'+fileName.encode('gbk')
self.Mo.Lines.LoadFromFile(fileName.encode( ' gbk ' ))
def BtnSaveClick(self,Sender):
if Ask(self.Handle, ' 确定要保存 ' ):
fileName = SaveDialog( ' 文本文件|*.txt ' , ' 保存文档 ' )
if fileName:
self.Mo.Lines.SaveToFile(fileName.encode( ' gbk ' ))

def MainFormClose(self, Sender, Action):
Action.Value = caFree

class DxLogForm(Form):
def __init__ (self,Owner):
self.Caption = ' 不得闲测试窗体 '
self.Position = 5
self.BorderStyle = 3
self.Width = 234
self.Height = 150
self.lb1 = Label(self)
self.lb1.SetProps(Parent = self,Caption = ' 用户 ' )
self.lb1.SetBounds( 40 , 16 , 28 , 13 )
self.EdtUser = Edit(self)
self.EdtUser.SetProps(Parent = self,Text = ' dxsoft ' )
self.EdtUser.SetBounds( 77 , 13 , 121 , 21 )
self.lb2 = Label(self)
self.lb2.SetProps(Parent = self,Caption = ' 密码 ' )
self.lb2.SetBounds( 40 , 48 , 28 , 13 )
self.EdtPwd = Edit(self)
self.EdtPwd.SetProps(Parent = self,Text = ' dxsoft ' ,PasswordChar = ' * ' )
self.EdtPwd.SetBounds( 77 , 45 , 121 , 21 )

self.BtnLog = Button(self)
self.BtnLog.SetProps(Parent = self,Caption = ' 登录 ' )
self.BtnLog.SetBounds( 25 , 80 , 75 , 25 )
self.BtnLog.OnClick = self.BtnClick
self.BtnCancel = Button(self)
self.BtnCancel.SetProps(Parent = self,Caption = ' 取消 ' )
self.BtnCancel.SetBounds( 141 , 80 , 75 , 25 )
self.BtnCancel.OnClick = self.BtnCancelClick
def BtnClick(self,Sender):
if self.EdtPwd.Text.decode( ' gbk ' ) == ' 123 ' :
ShowMessage( ' 登录成功,打开主窗体 ' )
# self.visible = false
# 打开另一个窗体
self.ModalResult = mrok
else :
ShowMessage( ' 密码为123 ' )
def BtnCancelClick(self,Sender):
self.Close()

def dolog():
LogFrm = DxLogForm(None)
m = LogFrm.ShowModal() == mrok
LogFrm.Free()
return m

def main():
FreeConsole()
if dolog():
Application.Initialize()
Application.Title = ' TestApp '
f = MainForm(Application)
f.Show()
Application.Run()
else :
ShowMessage( ' 用户取消了登录 ' )

if __name__ == ' __main__ ' :
main()

程序运行这个脚本双击运行之后的效果就是