请提供delphi调用python编写的dll中的自定义函数的代码

在 Delphi 中调用 Python 编写的 DLL 中的自定义函数，可以使用 Python4Delphi 库。

首先需要将 Python4Delphi 库添加到 Delphi 项目中，具体步骤如下：

1. 下载并解压 Python4Delphi 库，获取其中的文件。
2. 在 Delphi 项目中新建一个“Package”工程。
3. 在“Package”工程中添加以下文件：

- PythonEngine.dcu
- PythonGUIInputOutput.dcu
- PythonTypes.dcu
- PyScripterRemoteDebugger.dcu
- VariantSupport.dcu

4. 在“Package”工程中添加以下文件夹：

- Python
- Packages
- Scripter

5. 将 Python4Delphi 库中的 Python 文件夹、Packages 文件夹和 Scripter 文件夹中的所有文件复制到“Package”工程中对应的文件夹中。
6. 在“Package”工程中打开“Project Options”，在“Directories and Conditionals”中添加以下路径：

- ..\Python
- ..\Packages
- ..\Scripter

7. 在“Package”工程中打开“Project Options”，在“Linking”中添加以下文件：

- python27.lib
- python27.dll

8. 在“Package”工程中打开“Project Options”，在“Packages”中勾选以下选项：

- DesignIDE
- rtl
- vcl

9. 在“Package”工程中编译并安装库文件。

安装完 Python4Delphi 库后，就可以使用以下代码在 Delphi 中调用 Python 编写的 DLL 中的自定义函数：

uses
  PythonEngine;

var
  Python: TPythonEngine;
  Module, FunctionObject, Args, Result: PPyObject;
  Value: Integer;
begin
  Python := TPythonEngine.Create(nil);
  try
    Python.LoadDll('my_python.dll');
    Python.Initialize;
    Module := Python.ImportModule('my_module');
    FunctionObject := Module.GetMethod('my_function');
    Args := Python.PyTuple_New(1);
    Value := 123;
    Python.PyTuple_SetItem(Args, 0, Python.PyLong_FromLong(Value));
    Result := Python.PyObject_CallObject(FunctionObject, Args);
    ShowMessage(IntToStr(Python.PyLong_AsLong(Result)));
  finally
    Python.Finalize;
    Python.Free;
  end;
end;

其中，“my_python.dll”为 Python 编写的 DLL 文件名，“my_module”为 DLL 中的模块名，“my_function”为 DLL 中的自定义函数名。在此示例中，我们调用了一个带有一个整型参数的函数，并将其返回值转换为整型后输出。

需要注意的是，Python4Delphi 库使用的是 Python 2.7 版本。如果使用的是 Python 3.x 版本，需要对库文件进行相应修改。