MCP 服务器模型上下文协议（Model Context Protocol）

一个简单的 MCP 服务器，使用 FastAPI 构建，处理数值输入，通过翻倍来计算，并支持会话管理和 API 密钥身份验证。

安装

1. 安装所需的依赖项：

pip install -r requirements.txt

2. 启动服务器：

uvicorn main:app --reload

服务器将在 http://localhost:8000 上运行

API 端点

POST /mcp/process

处理一个数值输入列表，将每个值翻倍。

请求正文：

{
  "inputs": [1.0, 2.0, 3.0]
}

头信息（可选）：

• session_id：用于在请求之间维护状态
• api_key：用于身份验证（演示密钥："demo_key"）

响应：

{
  "outputs": [2.0, 4.0, 6.0],
  "session_id": "generated-session-id"
}

Excel VBA 集成

您可以使用以下 VBA 代码从 Excel 调用 MCP 服务器：

Sub CallMCPServer()
    ' 定义输入范围
    Dim inputRange As Range
    Set inputRange = Range("A1:A3")
    
    ' 创建 HTTP 请求
    Dim request As Object
    Set request = CreateObject("MSXML2.XMLHTTP")
    
    ' 准备 JSON 数据
    Dim jsonData As String
    jsonData = "{""inputs"": ["
    
    Dim cell As Range
    Dim first As Boolean
    first = True
    
    For Each cell In inputRange
        If Not first Then
            jsonData = jsonData & ", "
        End If
        jsonData = jsonData & cell.Value
        first = False
    Next cell
    
    jsonData = jsonData & "]}"
    
    ' 发送请求
    request.Open "POST", "http://localhost:8000/mcp/process", False
    request.setRequestHeader "Content-Type", "application/json"
    request.send jsonData
    
    ' 处理响应
    If request.Status = 200 Then
        Dim response As Object
        Set response = ParseJson(request.responseText)
        
        ' 显示输出
        Dim outputStr As String
        outputStr = "处理后的输出： " & vbCrLf
        
        Dim i As Integer
        For i = 1 To response.Item("outputs").Count
            outputStr = outputStr & response.Item("outputs").Item(i) & vbCrLf
        Next i
        
        MsgBox outputStr, vbInformation, "MCP 服务器响应"
        
        ' 可选：存储会话 ID 以备将来使用
        Dim sessionId As String
        sessionId = response.Item("session_id")
    Else
        MsgBox "错误：" & request.Status & " - " & request.responseText, vbExclamation
    End If
End Sub

Function ParseJson(jsonString As String) As Object
    ' 这是一个简化的 JSON 解析器，仅供演示使用
    ' 生产环境请考虑使用专业的 JSON 库
    Dim ScriptEngine As Object
    Set ScriptEngine = CreateObject("ScriptControl")
    ScriptEngine.Language = "JScript"
    
    Dim JsonCode As String
    JsonCode = "JSON.parse('" & Replace(jsonString, "'", "\'") & "');"
    
    Set ParseJson = ScriptEngine.Eval(JsonCode)
End Function

对于使用 Office 脚本的现代 Excel，您可以使用 JavaScript/TypeScript 和 fetch API 来向 MCP 服务器发出 HTTP 请求。

注意

• 服务器包含 CORS 中间件以允许从基于网络的 Excel 客户端进行跨域请求
• 会话状态存储在内存中，如果服务器重新启动将会丢失
• 在生产环境中，请考虑使用数据库来存储会话并使用适当的身份验证