当Delphi遇到Python
起因
很早之前曾经有人给我提到过这个
当时没在意，主要是因为的原因是我自己不会 Python（不知道为什么就是不喜欢缩进式层及编码），另外就是移植性的问题，当时完全不知道怎么把两者融合起来
最近因为工作中需要用到 Python 的内容，迫不得已只能学习了，然后顺带着学习一下这个 Delphi 的控件
P4D 介绍
Python for Delphi（P4D）是一组免费组件，它们将 PythonDLL 包装成 Delphi 和 Lazarus（FPC）。它们让您可以轻松地执行 Python 脚本、创建新的 Pythons 模块和新的 Pyphon 类型。您可以将 Python 扩展创建为 DLL 等
先说一下兼容性，从官方介绍不难看出，它支持 Delphi 和 Lazarus。同时从官方的 issues 中也可以看到在 Delphi7 上也可以使用
Python 的优势是第三方库足够丰富，但是做 PC 端界面程序很明显不是特别方便，虽然它有 pyqt 之类的库。
Delphi 的优势和 Python 对比的话恰恰相反。如果能够将 Delphi 和 Python 结合的话可以解决很多问题（虽然这种玩法算是偏锋中的偏锋）
安装 P4D
官方没有很好的入门文档，我算是补全了这方面的空白吧，当然英语比较好的可以直接按照官方文档安装
官方 wiki：https://github.com/pyscripter/python4delphi/wiki/Installation
先决条件是安装 Python3，这里不建议使用 Python2.x，官方都已经不建议了。具体安装步骤就不说了（这个可以自行百度）
下载地址：https://www.python.org/ftp/python/3.10.4/python-3.10.4-amd64.exe
下载 GitHub 源码（直接克隆仓库即可）：git clone https://github.com/pyscripter/python4delphi.git
需要关注的就是我标红的 3 个目录
打开目录$python4delphi_home\Packages\Delphi\Delphi 10.4+ 当然需要根据自己 Delphi 的版本，我使用的是 DelphiXE10.4.2
打开项目组文件 P4DComponentSuite.groupproj，在需要安装的项目上右击，如果需要使用 Fmx 控件的话它也需要安装，因为我不使用所以我没装
至此控件安装完成
运行 HelloWorld 程序
打开目录$DelphiLibrary_home\python4delphi\Demos,找到Demos_01_to_34.groupproj 项目组文件并用工具打开
打开项目之后先不要着急运行，我们需要在 Library Path 中关联以下源码
如果看到下面的画面表示运行成功
移植性
对于这种代码的移植性分两种情况说，未含第三方模块和包含第三方模块。今天先说未含第三方的情况
起初我各种百度、Google 想找点教程，可惜资料少的可怜。最后还是群里的朋友 yaHa 指点搞定的，随后我在官方示例 demodll 中也看到了相关代码
function PyInit_demodll : PPyObject;
begin
Result := nil;
try
gEngine := TPythonEngine.Create(nil);
//自动初始化
gEngine.AutoFinalize := False;
//已知的上一个版本
gEngine.UseLastKnownVersion := False;
//使用的版本
gEngine.RegVersion := '3.7'; //<-- Use the same version as the python 3.x your main program uses
//API 版本
gEngine.APIVersion := 1013;
//DLL 文件
gEngine.DllName := 'python37.dll';
//加载 Python 的 DLL
gEngine.LoadDll;
gModule := TPythonModule.Create(nil);
gModule.Engine := gEngine;
gModule.ModuleName := 'demodll';
gModule.AddMethod( 'add', @Add, 'add(a,b) -> a+b' );
gModule.Initialize;
Result := gModule.Module;
except
end;
end;
从代码中大概可以看出，初始加载 Python DLL 的核心代码就这么多。我处理之后的代码如下
procedure TForm1.FormCreate(Sender: TObject);
begin
PythonEngine1.DllPath := ExtractFilePath(Application.ExeName);
PythonEngine1.AutoLoad := False;
PythonEngine1.RegVersion := '3.10'; //<-- Use the same version as the python 3.x your main program uses
PythonEngine1.APIVersion := 1013;
PythonEngine1.DllName := 'python310.dll';
PythonEngine1.LoadDll;
PythonEngine1.SetPythonHome(ExtractFilePath(Application.ExeName)+'\python310')
end;
至此基本完成了，只要将 python310.dll 文件和 python310.zip 放到和 Delphi 的 exe 放在同一目录下就可以完成在无 Python 环境下顺利运行
还是推一下新的公众号，主要是Java内容，有兴趣的朋友可以看看
