AI导哈

Delphi构建服务器

一个基于MCP协议的服务器，提供构建和清理Delphi项目的工具，支持通过MSBuild和RAD Studio环境进行项目构建。

  • by flydev-fr
  • TypeScript
  • 本地部署
  • 18 星标
  • 更新于
在 GitHub 查看 flydev-fr/mcp-delphi

使用说明

MCP Delphi构建服务器

一个MCP（模型上下文协议）服务器，它公开了使用MSBuild在Windows上构建和清理Delphi项目（.dproj/.groupproj）的工具，通过rsvars.bat初始化RAD Studio环境。

先决条件

  • 视窗
  • Node.js>=18
  • 安装了Embarcadero RAD Studio（用于rsvars.bat和Delphi工具链）
  • MSBuild可用（Visual Studio生成工具或RAD Studio工具链）

安装

pnpm install
pnpm run build

或者使用npm：

npm install
npm run build

配置

您可以通过环境变量配置默认值（如果需要，可以使用此目录中的.env文件）：

  • RSVARS_BAT：RSVARS.BAT的完整路径（例如，C:\程序文件（x86）\Embarcadero\Studio \23.0\bin\RSVARS.cat）
  • MSBUILD_PATH:如果不在PATH中，则为MSBUILD.exe的完整路径
  • DELPHI_CONFIG：默认配置（调试/发布）。默认值：释放
  • DELPHI_PLATFORM：默认平台（Win32/Win64）。默认值：Win32

创建一个.env文件，如下所示：

RSVARS_BAT=C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\rsvars.bat
MSBUILD_PATH=C:\Program Files\Microsoft Visual Studio\2022\BuildTools\MSBuild\Current\Bin\MSBuild.exe
DELPHI_CONFIG=Release
DELPHI_PLATFORM=Win32

跑步

此服务器通过stdio与MCP通信。从以下内容开始：

node --env-file=.env dist/server.js

或者，在全局安装（或作为依赖项安装）后，运行bin：

mcp-delphi-server

在开发过程中：

pnpm run dev

工具

  • 德尔福大厦
    • params:项目（字符串，.dproj/.groupproj的路径），配置？（字符串），平台？（string），msbuildPath？（字符串），rsvarsPath？（字符串）
    • 使用MSBuild生成项目。如果提供了rsvarsPath（或RSVARS_BAT env），则将在单个shell中在MSBuild之前调用它。
  • delphi.clean
    • params：与delphi.build相同
    • 清理项目。
  • fpc.build
    • params：源（字符串，.lpr/.pas的路径），输出？（string），定义？（string[]），unitPaths？（string[]），包括路径吗？（string[]），cpu？（字符串），os？（字符串），fpcPath？（字符串）
    • 使用Free Pascal编译器编译Pascal程序。您可以传递显式fpcPath或依赖PATH。
  • 拉扎勒斯建筑
    • params:项目（字符串，到.lpi的路径），buildMode？（字符串），cpu？（字符串），os？（字符串），lazbuildPath？（字符串）
    • 使用lazbuild构建Lazarus项目。可选择设置CPU/OS或构建模式。
  • 拉扎鲁清洁
    • params:项目（字符串，到.lpi的路径），lazbuildPath？（字符串）
    • 清洁拉撒路通过lazbuild建造人工制品——清洁。

测试项目和脚本

此仓库包括以下小型Delphi测试项目 test/projects，以及拉撒路的样本 test/projects/lazarus.Helper脚本已上线 scripts/.

  • 构建所有发布目标：
    • pnpm run test:build:all
  • 单独构建（示例）：
    • pnpm run test:build:console:win32
    • pnpm run test:build:console:win64
    • pnpm run test:build:vcl:win32
    • pnpm run test:build:vcl:win64
    • pnpm run test:build:group:win32
    • pnpm run test:build:group:win64
  • 清洁变体也存在于 test:clean:*.

调用示例

  • Delphi通过MSBuild
{
  "name": "delphi.build",
  "arguments": {
    "project": "C:/path/to/MyApp.dproj",
    "configuration": "Release",
    "platform": "Win64"
  }
}
  • Windows上的FPC（使用显式编译器路径）
{
  "name": "fpc.build",
  "arguments": {
    "source": "C:/path/to/lazarus/project1.lpr",
    "cpu": "x86_64",
    "os": "win64",
    "fpcPath": "C:/path/to/fpc.exe"
  }
}
  • Lazarus通过Windows上的lazbuild
{
  "name": "lazarus.build",
  "arguments": {
    "project": "C:/path/to/lazarus/project1.lpi",
    "cpu": "x86_64",
    "os": "win64",
    "lazbuildPath": "C:/path/to/lazbuild.exe"
  }
}

备注

  • Windows优先。Delphi集成需要RAD Studio工具链和MSBuild。
  • 对于RAD Studio，rsvars.bat设置所需的环境变量（如BDS、FrameworkDir、库路径）。建议设置RSVARS_BAT以确保Delphi工具链可用于MSBuild。
  • 支持团体项目（.groupproj）；MSBuild将遍历包含的项目。
  • FPC/Lazarus支持通过FPC和lazbuild提供。如果路径不在PATH中，请在Windows上提供显式路径。

发布

  • 确保 dist 已建成： pnpm run build
  • 可选择通过以下方式进行本地测试： pnpm run test:build:all
  • 发布到npm：
    • npm publish （或 pnpm publish)

如果在某个范围内发布，请相应地设置包名，并确保您以正确的访问权限登录。

相关 MCP