道飞DAOFY for Delphi

❓ 01 什么是 MCP？

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

flowchart LR
    A["🤖 AI 助手
(Claude / CodeArts)"]
    M["🔌 MCP Server
(工具网关)"]
    C["🔧 Delphi 编译器"]
    K["📚 源码知识库
30万函数"]
    F["🎨 pasfmt 格式化"]
    A -->|MCP 协议| M
    M --> C
    M --> K
    M --> F

类比：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 理解根因：

flowchart LR
    E["❌ 编译错误
E2511"] --> S1["🔍 搜 KB
TDictionary 类定义"]
    S1 -->|发现泛型约束| S2["🔍 搜 KB
TEqualityComparer"]
    S2 -->|了解实现方式| R["💡 根因分析
record 无默认比较器"]
    R --> F["✏️ 生成比较器
TCustomKeyComparer"]
    F --> P["✅ 修复 → 编译通过"]

批量多项目编译

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

flowchart TD
    G["📁 ProjectGroup.groupproj"] --> LIB["📁 LibProject"]
    G --> APP["📁 AppProject"]
    LIB --> L["LibUtils.dproj"]
    APP --> M["MainApp.dproj"]
    L -. 先编译 .-> M
    classDef lib fill:#e8f8f0,stroke:#34c759
    classDef app fill:#e8f4ff,stroke:#007aff
    class L lib
    class M app

用户: 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 配置文件管理单元

flowchart LR
    S1["① 获取规范"] --> S2["② 搜索 API"]
    S2 --> S3["③ 写入代码
(自动备份)"]
    S3 --> S4["④ 格式化"]
    S4 --> S5["⑤ 编译验证"]
    S5 --> S6["⑥ 代码审计"]
    S6 --> S7["⑦ 清理 & 验证"]
    classDef step1 fill:#e8f8f0,stroke:#34c759
    classDef step2 fill:#e8f4ff,stroke:#007aff
    classDef step3 fill:#fff3e6,stroke:#ff9500
    classDef step4 fill:#fff0f0,stroke:#ff3b30
    classDef step5 fill:#e8f8f0,stroke:#34c759
    classDef step6 fill:#e8f4ff,stroke:#007aff
    classDef step7 fill:#f3ecff,stroke:#8b5cf6
    class S1 step1
    class S2 step2
    class S3 step3
    class S4 step4
    class S5 step5
    class S6 step6
    class S7 step7

工作流详解

共执笔，同成章

📊 总结

开源信息

✨ 更多亮点

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

Q&A

感谢观看！

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