前言

......Python和Pascal(Delphi/Lazarus)都是历史悠久的编程语言，都曾经在历史上扮演者重要角色。只是Pascal没能跟上技术发展潮流，逐步沦为末流。而Python与时俱进，不断跟着时代潮流自我革新，最终在AI时代大放异彩。

......于是有个想法，把Python的灵魂融合到Pascal，会怎样？

构思

......其他语言要融合Python，无外乎两种方式：

• 通过对接API方式，调用和移植python.dll的API

如果没有现成的库，自己实现API对接难度较大。目前有一个Python4Delphi和Python4Lazarus的开源库可以使用。

• 通过命令行方式，调用python.exe，执行Python代码

这种方式实现起来比较简单，调用python拿到结果后，再加一些逻辑对结果进行解析。

......两种做法博主都实践过了，最后的效果可以参考我之前发的Python执行器的文章。

......今天先看通过第一种方式子Lazarus中对接Python。Delphi的对接方式跟这个类似。

安装PythonForLazarus三方包

......在Lazarus的在线包管理器中，搜索PythonForLazarus包，点击安装即可。

......安装成功后，可以在组件中找到这个包提供的所有Python相关组件。今天我们需要用到其中的两个组件，

• TPythonEngine，负责Python调用
• TpythonGUIInputOutput，负责展示Python输出内容

组件配置

.....在新建的Lazarus项目中，从组件中拖入TPythonEngine和TpythonGUIInputOutput组件到窗体，还有一个TMemo组件用于显示Python输出。

......针对PythonEngine1组件，在属性设计器中，设置如下参数，Dll相关参数要清空，我们会通过代码进行设置。IO选择我们拖入PythonGUIInputOutput1组件

......在PythonGUIInputOutput1组件的属性设计器中，把Output属性设置为我们拖入的Memo组件。

......接下来，我们在Form的Create事件中，设置PythonEngine1的DLL相关参数，并加载dll。需要提前在本机提前安装好Python，或者下载Python Embeddable版本，我这里使用的是官网下载的Python3.11 Embeddable版本。

......在Create事件中添加如下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  {根据自己Python的安装位置，设置下面的参数}
  PythonEngine1.DllPath := 'E:\Programs\python311';
  PythonEngine1.DllName := 'python311.dll';
  {可选。Python启动后执行下面的语句}
  PythonEngine1.InitScript.Text := 'import sys;print(sys.version)';
  {加载dll}
  PythonEngine1.LoadDll;
end;   

到这一步，就完成了Python组件的设置。接下来我们写一点python测试代码。

调用Python测试代码

......再加一个输入框TMemo，用来输入测试的Python代码。最后界面如下：

......上面的是输入框可以输入代码，下面的框展示Python输出结果。

......点击按钮后，执行用户在输入框中输入的代码。执行逻辑参考下面的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  code: string;
begin
  {获取用户输入代码}
  code := Trim(Memo1.Text);
  if code <> '' then
    PythonEngine1.ExecString(code); {执行代码}
end;   

运行效果

......按F9编译运行我们写好的软件。在上面的输入框输入代码，即可点击运行，在下面的文本框即可看到Python执行的结果。查看下面的动画效果。