道飞DAOFY for Delphi

❓ 01 什么是 MCP？

Model Context Protocol — 由 Anthropic 提出的开放协议

类比：AI 的"USB 接口"——插上什么工具，AI 就会用什么

传统 AI vs MCP 模式

  用户: 帮我编译项目
  AI: 请打开命令行运行:
    msbuild Project.dproj

  用户: 报错了
  AI: 错误是 X，建议你 Y
  —— 只给建议，不执行

  用户: 帮我编译项目
  AI: 正在编译...
      [调用 compile_project]
      ✅ 编译成功 (0 errors, 0 warnings)

  用户: 修复这个错误
  AI: 搜索 KB → 分析根因 →
      修改代码 → 重编译 → ✅ 通过
   —— 你提需求，它落地实现

📥 03 AI 自动安装

用户只需一句话：

AI 自动完成：

• ✅ 检查 Python / Git / 7-Zip 环境
• ✅ 从 GitHub 克隆仓库
• ✅ 创建虚拟环境 + pip install 依赖
• ✅ 自动检测已安装的 AI 客户端并写入配置

全程在 AI 对话中完成，无需打开终端或编辑 JSON

支持的 AI 平台

install.ps1 自动检测，无需手动配置

🔍 04 知识库规模

三种搜索方式

搜索策略：先精确猜名 → 再语义兜底

发现隐藏 API — 语义搜索

你不知道 API 叫什么？自然语言描述即可
⚠️ 需提前构建 embedding 索引：delphi_kb(action="build_embedding")

用户: Delphi 有没有可以比较两个 JSON 对象
      是否结构相同的功能？
      不是字符串 == 比较，要忽略键顺序。

AI 语义搜索 30 万函数 →
  📌 TJSONObject — 继承链 TJSONAncestor > TJSONValue
  📌 TJSONObject 未重写 Equals，默认引用比较

AI 分析: 标准库没有直接的深层比较函数，
       但可以与你一同生成递归比较工具代码。

⚙ 05 编译 & 诊断

复杂编译错误诊断

// E2511 — Type parameter must have a comparer
TDictionary<TCustomKey, string>.Create;
//          ^^^^^^^^^^
// 错误: record 类型做 TKey 需要 IEqualityComparer

AI 不是只看错误行——它搜索 KB 理解根因：

批量多项目编译

一句话编译整个解决方案：

用户: Release Win64 编译全部
AI:
① LibUtils.dproj → ✅
② MainApp.dproj → ✅
全部编译成功！

自动解析 BuildOrder，按依赖顺序编译

📝 07 编码规范 & AI 行为控制

同一需求，不同编码规则 → 风格截然不同的代码

type
  TStringUtils = class
  public
    class function Join(
      const AStrings: TArray<string>;
      const ASeparator: string): string;
  end;

type
  StringUtils = class
  public
    class function join(
      const arrStrings: array of string;
      const separator: string): string;
  end;

规范对比一览

规则不仅是被查询的——它是被执行、被遵守的

🔍 08 代码审计 + 创建工单

# Issue: LegacyData.pas 代码质量

## 🔴 严重
1. 资源泄漏 — ExportData:26
   TStringList 无 try/finally
2. 循环删除跳项 — ProcessItems:82

## 🟡 警告
3. 魔法数值 — CalculateTotal:62,64,66,68

✅ 已创建: github.com/.../issues/42

审计工作流

AI 自动完成从规范到报告的完整审计链路

工单自动流转

审计报告 → 工单，一键直达代码托管平台

code_hosting(
  platform="gitea",
  action="create_issue",
  repo="owner/project",
  title="审计: LegacyData.pas",
  body="## 严重问题\n...",
  label_names=["bug"]
)

🎯 12 完整从 0 到 1 工作流

故事线：JSON 配置文件管理单元

工作流详解

共执笔，同成章

🤖 自动化测试 — GUI 模式

基于 Named Pipe 的 Delphi 原生自动化单元 DaofyAutomation

automate_delphi(action="gui", app_path="App.exe",
  script=[{"cmd":"goto","target":"TMainForm"},
          {"cmd":"click","target":"btnOK"},
          {"cmd":"capture","target":"result.png"}])

协议：JSON 请求/响应

编译时通过 DCC_UnitSearchPath= 自动链接 DaofyAutomation 单元，无需手动配置

🤖 自动化测试 — Console 模式

基于 subprocess stdin/stdout 的控制台程序交互，无需 Delphi 端改造

automate_delphi(action="console", app_path="Tool.exe",
  input="Y\n", expect="Continue?")

automate_delphi(action="auto", app_path="Deploy.exe",
  input="\n", expect="success", args=["--silent"])

Windows PE 自动检测： action="auto" 读取 EXE 头 Subsystem 字段区分 GUI/Console，无需手动指定

🧰 13 Delphi RTTI 桥接

通过 Enhanced RTTI 发现和调用 Delphi 应用程序的 published + public 方法 — 无需源码

delphi_rtti(action="discover", app_path="App.exe")
  → 返回所有类的 published + public 方法 + JSON Schema 参数定义

delphi_rtti(action="call",
  app_path="App.exe",
  class_name="TMainForm",
  method="LoadCustomer",
  params={"customerName": "张三"})
  → 调用方法，返回结果

三步法详解

支持 15 类 Delphi 类型 → JSON Schema 映射：Integer · Float · Boolean · 字符串 · 枚举 · 集合 · DynamicArray · TDateTime · Variant · Pointer 等

📊 总结

开源信息

✨ 更多亮点

不止于此——这些能力让 AI 如虎添翼

Q&A

感谢观看！

完整演示脚本见 docs/tutorial/tutorial_script.md