能否将Lazarus窗体与Python程序结合为可交付应用并调用其脚本？

阿华AIGC实验室

2026-5-11

Lazarus 调用 Python 工具并展示结果的可行方案

当然有可行方案！我来给你拆解几个靠谱的实现思路，都是 Lazarus + Python 协作的常用玩法，适配不同的场景需求：

1. 最省心：用 TProcess 调用 Python 进程（进程间通信）

这是最直接的方式，不需要复杂集成，本质就是让 Lazarus 作为「主控」，启动独立的 Python 进程执行脚本，再捕获输出结果展示在界面上。适合大部分简单场景，比如调用 QGIS/FreeCAD 脚本完成一次性任务。

实现步骤：

在 Lazarus 窗体中添加按钮、输入框（TEdit）、结果展示框（TMemo）等组件
使用 TProcess 组件配置 Python 路径、脚本路径和参数，执行脚本并读取输出

代码示例：

procedure TMainForm.btnRunPythonScriptClick(Sender: TObject);
var
  PythonProc: TProcess;
  OutputStream: TStringStream;
begin
  PythonProc := TProcess.Create(nil);
  OutputStream := TStringStream.Create('', TEncoding.UTF8);
  try
    // 配置 Python 执行路径（Windows 下可能是 'python.exe'，Linux/macOS 用 'python3'）
    PythonProc.Executable := 'python3';
    // 传递脚本路径和界面输入的参数
    PythonProc.Parameters.Add('/home/your/scripts/qgis_process.py');
    PythonProc.Parameters.Add(edtTaskInput.Text);

    // 关键配置：捕获标准输出/错误，不弹出控制台窗口
    PythonProc.Options := PythonProc.Options + [poUsePipes, poNoConsole];
    PythonProc.Execute;

    // 读取脚本输出并显示到 Memo
    OutputStream.CopyFrom(PythonProc.Output, PythonProc.Output.Size);
    memoResult.Lines.Text := OutputStream.DataString;

    // 处理错误输出（可选，比如脚本运行报错时提示）
    if PythonProc.ErrorOutput.Size > 0 then
    begin
      OutputStream.Clear;
      OutputStream.CopyFrom(PythonProc.ErrorOutput, PythonProc.ErrorOutput.Size);
      ShowMessage('脚本执行出错：' + OutputStream.DataString);
    end;
  finally
    PythonProc.Free;
    OutputStream.Free;
  end;
end;

注意点：

确保 Python 路径正确，或者把 Python 加入系统环境变量
处理编码问题：建议统一用 UTF-8 避免中文乱码
如果需要异步执行（不阻塞 Lazarus 界面），可以把 TProcess 放到线程里

2. 最紧密：嵌入 Python C API（直接集成）

如果需要更高效的交互（比如频繁调用 Python 函数、实时传递数据），可以直接把 Python 解释器嵌入到 Lazarus 应用中，通过 Python 的 C API 直接调用函数、传递变量。这种方式性能更好，但需要处理 Pascal 和 Python 之间的类型转换。

实现步骤：

确保 Lazarus 的编译架构（32/64 位）和 Python 版本一致
在 Free Pascal 中声明 Python C API 的函数
初始化 Python 解释器，调用你的工具脚本，处理返回值并展示

代码示例（简化版）：

// 先声明部分 Python C API（根据你安装的 Python 版本调整动态库名称，比如 python310.dll）
procedure Py_Initialize; cdecl; external 'libpython310.so';
procedure Py_Finalize; cdecl; external 'libpython310.so';
function PyRun_SimpleString(const cmd: PChar): Integer; cdecl; external 'libpython310.so';

procedure TMainForm.btnEmbedPythonClick(Sender: TObject);
begin
  // 初始化 Python 解释器
  Py_Initialize;
  try
    // 添加你的脚本路径到 Python 搜索路径
    PyRun_SimpleString('import sys; sys.path.append("/home/your/scripts");');
    // 调用工具函数并打印结果（如果要获取返回值，需要用更复杂的 API 比如 PyEval_EvalCode）
    PyRun_SimpleString(
      'from freecad_tool import design_part; ' +
      'result = design_part("' + edtDesignParam.Text + '"); ' +
      'print(result)'
    );
    // 这里可以通过捕获标准输出或者直接获取 Python 对象，转换为 Pascal 类型后显示
  finally
    // 清理 Python 解释器
    Py_Finalize;
  end;
end;

注意点：

需要深入了解 Python C API，处理字符串、列表等数据类型的转换
不同 Python 版本的 API 可能有差异，建议参考对应版本的官方文档
打包应用时需要带上 Python 的动态库和依赖的模块

3. 最灵活：用 RPC/HTTP API 通信（异步/分布式场景）

如果你的 Python 工具需要长期运行（比如后台服务），或者需要异步处理大量任务，可以把 Python 脚本做成一个 HTTP 服务（比如用 Flask/FastAPI），然后 Lazarus 作为客户端发送请求，接收 JSON 结果并展示。这种方式解耦性强，甚至可以跨机器调用。

Python 服务端示例（FastAPI）：

from fastapi import FastAPI
from pydantic import BaseModel
# 导入你的 QGIS/Gimp 工具模块
from gimp_image_process import process_image

app = FastAPI()

# 定义请求数据结构
class ProcessRequest(BaseModel):
    image_path: str
    filter_type: str

@app.post("/process-image")
def process_image_request(req: ProcessRequest):
    # 调用工具函数处理任务
    result_path = process_image(req.image_path, req.filter_type)
    return {"status": "success", "result_path": result_path}

# 启动服务：uvicorn main:app --host 127.0.0.1 --port 8000

Lazarus 客户端示例（用 Indy HTTP 组件）：

procedure TMainForm.btnCallAPIClick(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  RequestBody: TStringStream;
  Response: string;
begin
  IdHTTP := TIdHTTP.Create(nil);
  RequestBody := TStringStream.Create(
    '{"image_path": "' + edtImagePath.Text + '", "filter_type": "' + cbFilterType.Text + '"}',
    TEncoding.UTF8
  );
  try
    IdHTTP.Request.ContentType := 'application/json';
    // 发送 POST 请求到 Python 服务
    Response := IdHTTP.Post('http://127.0.0.1:8000/process-image', RequestBody);
    // 解析 JSON 响应并展示（可以用 SuperObject 等第三方 JSON 库简化解析）
    memoResult.Lines.Text := Response;
  finally
    IdHTTP.Free;
    RequestBody.Free;
  end;
end;