delphi调用python dll

可以通过以下步骤在 Delphi 中调用 Python DLL：

1. 在 Delphi 中创建一个新的 DLL 项目。
2. 在项目中添加一个 import unit，用于导入 Python DLL 中的函数。如下所示：

unit PythonDLL;

interface

type
  PPyObject = Pointer;

function Py_Initialize: Integer; cdecl;
function Py_Finalize: Integer; cdecl;
function PyRun_SimpleString(const ACode: PAnsiChar): Integer; cdecl;
function PyRun_String(const ACode: PAnsiChar; AMargin: Integer; const AGlobals, ALocals: PPyObject): PPyObject; cdecl;

implementation

const
  PythonDLL = 'python27.dll';

function Py_Initialize; external PythonDLL;
function Py_Finalize; external PythonDLL;
function PyRun_SimpleString; external PythonDLL;
function PyRun_String; external PythonDLL;

end.

3. 在 Delphi 代码中调用 Python DLL 中的函数。例如，可以使用以下代码来运行 Python 代码：

uses
  PythonDLL;

procedure RunPythonCode(const ACode: string);
begin
  Py_Initialize;
  try
    PyRun_SimpleString(PAnsiChar(AnsiString(ACode)));
  finally
    Py_Finalize;
  end;
end;

4. 在 Delphi 界面上添加一个按钮等控件，用于触发调用 Python DLL 的代码。

注意：在调用 Python DLL 的函数之前，必须先初始化 Python 解释器，否则会出现错误。在调用完成后，还需要清理 Python 解释器。