前言

……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:Programspython311';
  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执行的结果。查看下面的动画效果。