Non-Streaming End-to-End MCP Tool Use with an AI Model

See more AI Examples

Demonstrates Ai.UseMcp in a complete, non-streaming Model Context Protocol (MCP) workflow. The example connects to an MCP server, registers the server's tools with an AI model via UseMcp, and asks a question the model can only answer well by calling one of those tools. When the model requests a tool, Chilkat automatically calls it on the MCP server, feeds the result back into the conversation, and continues — all inside a single (non-streaming) Ask.

Tip: Code to parse the returned JSON can be generated with Chilkat's online tool at https://tools.chilkat.io/jsonParse.

Dim success As Long
success = 0

'  Non-streaming, end-to-end MCP example.  It connects to an MCP server, hands the server's tools to
'  an AI model via Ai.UseMcp, and asks a question that the model can only answer by calling one of
'  those tools.  When the model requests a tool, Chilkat automatically calls it on the MCP server,
'  feeds the result back into the conversation, and continues -- all inside a single (non-streaming)
'  Ask.
'  
'  The MCP server used here is DeepWiki: a free, public, no-authentication Streamable HTTP server
'  that answers questions about public GitHub repositories.  Swap in any MCP server URL; if it
'  requires a bearer token, set mcp.AuthToken before Connect.

'  1) Connect to the MCP server.
Dim mcp As New ChilkatMcp
'  mcp.AuthToken = "...";   // <-- only if the server requires a bearer token
success = mcp.Connect("https://mcp.deepwiki.com/mcp")
If (success = 0) Then
    Debug.Print mcp.LastErrorText
    Exit Sub
End If

Debug.Print "Connected to MCP server: " & mcp.ServerName & " (version " & mcp.ServerVersion & ")"

'  (Optional) Show the tools the server advertises.  This is the same set of tools Chilkat registers
'  with the model in the UseMcp call below.
Dim toolsJson As New ChilkatJsonObject
toolsJson.EmitCompact = 0
success = mcp.ListTools(toolsJson)
If (success = 1) Then
    Debug.Print "Available MCP tools:"
    Debug.Print toolsJson.Emit()
    Debug.Print "----"
End If

'  2) Set up the AI conversation and register the MCP tools.
Dim ai As New ChilkatAi
ai.Provider = "anthropic"
'  The API key should come from a secure source rather than being hard-coded.
ai.ApiKey = "AI_PROVIDER_API_KEY"
ai.Model = "claude-sonnet-5"
ai.VerboseLogging = 1

'  Automatic tool use (MCP or JavaScript) requires a conversation -- it cannot be used with a
'  stateless query, so create one with NewConvo.
success = ai.NewConvo("test_conversation","You are a helpful assistant.  Use the available tools when they can help answer the question.","")
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

'  Register the connected server's tools with the model.  Each tool name is namespaced with the
'  "deepwiki" prefix so that tools from different servers (and JavaScript tools) can never collide --
'  e.g. "deepwiki_ask_question".  The Mcp object must stay connected and in scope for as long as its
'  tools are in use during the conversation.
success = ai.UseMcp(mcp,"deepwiki")
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

'  Multiple MCP servers can be used in the same conversation.  Connect each server and call
'  UseMcp once per server, giving each a distinct prefix so their tool names cannot collide.

'  A prompt the model can only answer well by calling one of the MCP tools.
success = ai.InputAddText("Use the available tools to look up the GitHub repository ""modelcontextprotocol/modelcontextprotocol"", then give me a brief, sourced summary of which transports the Model Context Protocol defines.")
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

'  3) Non-streaming Ask.  Any MCP tool the model requests is executed automatically inside this call
'  (Chilkat -> Mcp.CallTool -> result back into the transcript -> continue), so Ask returns only once
'  the model produces its final answer.
success = ai.Ask("text")
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

'  The final assistant answer (after any automatic tool calls).
Dim sbResponse As New ChilkatStringBuilder
success = ai.GetOutputTextSb(sbResponse)
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

Debug.Print "Assistant answer:"
Debug.Print sbResponse.GetAsString()
Debug.Print "----"

'  (Optional) Dump the full transcript, which now includes the tool call and the tool result that
'  were added automatically.
Dim convoJson As New ChilkatJsonObject
convoJson.EmitCompact = 0
success = ai.ExportConvo("test_conversation",convoJson)
If (success = 0) Then
    Debug.Print ai.LastErrorText
    Exit Sub
End If

Debug.Print "Full Conversation:"
Debug.Print convoJson.Emit()

'  4) Close the MCP session (best effort; releases the server-side session).
success = mcp.Close()
If (success = 0) Then
    Debug.Print mcp.LastErrorText
    Exit Sub
End If