提供python生成dll给delphi调用的例子代码

以下是一个简单的 Python 代码示例，用于创建一个名为 myDLL 的动态链接库（DLL），该 DLL 可以从 Delphi 中调用：

# myDLL.py

def add(a, b):
    return a + b

接下来，我们需要使用 Python 的 ctypes 库来将该代码编译为 DLL。

# createDLL.py

from ctypes import *
import os

# Compile Python code into DLL
if __name__ == "__main__":
    # Load Python DLL
    python_dll = CDLL("python37.dll")

    # Compile Python code into DLL
    os.system("python -m nuitka --module --mingw64 myDLL.py")
    my_dll = CDLL("myDLL.dll")

    # Define function arguments and return types
    my_dll.add.argtypes = [c_int, c_int]
    my_dll.add.restype = c_int

    # Export function for Delphi
    my_dll.add.__name__ = "add"
    python_dll.Py_InitModule4("myDLL", None, None, None, PYTHON_API_VERSION)

在 Delphi 中，我们可以使用 `LoadLibrary` 和 `GetProcAddress` 函数来加载这个 DLL 并调用其中的函数：

// Call add function from Python DLL
type
  TAddFunc = function(a, b: Integer): Integer; cdecl;

var
  MyDLL: HMODULE;
  AddFunc: TAddFunc;
begin
  MyDLL := LoadLibrary('myDLL.dll');
  if MyDLL <> 0 then
  begin
    @AddFunc := GetProcAddress(MyDLL, 'add');
    if Assigned(AddFunc) then
    begin
      ShowMessage(IntToStr(AddFunc(1, 2)));
    end;
    FreeLibrary(MyDLL);
  end;
end;

请注意，这只是一个简单的示例代码，并且在实际应用中可能需要进行更多的错误处理和安全性检查。