练习 Python - Delphi

简介

Python 是一门高级编程语言，其具有简单易学、开发效率高等特点，因此受到了广大程序员的喜爱。而 Delphi 是一款由 Embarcadero 公司出品的集成开发环境（IDE），其以易用和开发迅速著称，适用于 Windows 平台开发。本文将介绍如何在 Delphi 中使用 Python 进行编程。

安装

首先需要安装 Python 解释器和 Delphi 的 Python 插件。

Python 解释器

Python 官方网站提供了各个系统下的官方 Python 解释器，可以在 https://www.python.org/downloads/ 下载。

Delphi 的 Python 插件

Delphi 的 Python 插件主要是 Python for Delphi 库，在 https://github.com/pyscripter/python4delphi 下载最新版本的 Python for Delphi。

下载后解压缩文件夹，将其中的 Lib 文件夹复制到一个新建的 Delphi 项目的目录下的 python 文件夹中。

新建 Delphi 项目并添加 Python 解释器

新建 Delphi 项目后，需要添加 Python 解释器，以便 Delphi 编译器可以与 Python 对话。方法如下：

1. 在 Delphi 中打开项目选项（Project -> Options）。
2. 在菜单栏中选择 Tools -> Options。
3. 在新出现的选项卡“Environment Options”中，在 TreeView 中选择“Options for Target”，在右侧的列表中找到“Library path”项。
4. 点击右侧列表中的“...”按钮，打开“Library path properties”对话框。
5. 在“Library path”文本框中添加 Python 解释器的路径，例如“C:\Python27\Lib”。
6. 点击“OK”保存设置并退出对话框。

编写 Python 代码

在 Delphi 项目中编写 Python 代码的主要目的是能够重用 Python 已有的代码。Python 代码可以被打包为模块或者脚本，在 Delphi 中直接使用。

调用 Python 脚本

调用 Python 脚本的方法非常简单，只需要在 Delphi 代码中调用 Python 脚本就可以了。示例代码如下：

uses
  PythonEngine;

procedure CallPythonScript;
var
  Python: TPythonEngine;
begin
  Python := TPythonEngine.Create(nil);
  try
    Python.ExecStrings('print("Hello, Python!")');
  finally
    Python.Free();
  end;
end;

说明：

• PythonEngine 单元提供了调用 Python 解释器的方法。
• TPythonEngine 类表示一个 Python 解释器。
• ExecStrings 方法调用 Python 脚本。

调用 Python 模块

调用 Python 模块需要在 Delphi 代码中导入 Python 模块并调用其中的函数。示例代码如下：

uses
  PythonEngine, PythonTypes;

procedure CallPythonModule;
var
  Python: TPythonEngine;
  Module, Func: PPyObject;
  ArgList, Result: PPyObject;
begin
  Python := TPythonEngine.Create(nil);
  try
    Python.LoadDLL;
    Python.Initialize;
    Module := Python.ImportModule('mymodule');
    try
      Func := Python.GetAttrString(Module, 'myfunc');
      ArgList := Python.PyTuple_New(1);
      try
        Python.PyTuple_SetItem(ArgList, 0, Python.PyLong_FromLong(123));
        Result := Python.PyObject_CallObject(Func, ArgList);
        try
          ShowMessage(Python.PyObject_AsDelphiString(Result));
        finally
          Python.PyObject_DecRef(Result);
        end;
      finally
        Python.PyObject_DecRef(ArgList);
      end;
    finally
      Python.PyObject_DecRef(Func);
      Python.PyObject_DecRef(Module);
    end;
  finally
    Python.Finalize;
    Python.Free;
  end;
end;

说明：

• LoadDLL 和 Initialize 方法执行初始化工作。
• ImportModule 方法导入指定模块。
• GetAttrString 方法获取指定名称的对象。
• PyTuple_New 方法通过 NameValuePair 创建一个 PyTuple 对象。
• PyTuple_SetItem 方法设置 PyTuple 中的项，这里设置一个整数变量。
• PyObject_CallObject 方法调用指定的函数对象。
• PyObject_AsDelphiString 方法获取 PyObject 的值并转换为字符串。

总结

使用 Python 进行编程的可扩展性和易用性使其成为了开发人员的最佳选择。使用 Python for Delphi 可以将 Python 代码集成到 Delphi 项目中，充分利用两种编程语言的长处，提高编程效率。