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 Boolean = False

'  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 ChilkatMcp
mcp.Initialize("mcp")
'  mcp.AuthToken = "...";   // <-- only if the server requires a bearer token
success = mcp.Connect("https://mcp.deepwiki.com/mcp")
If success = False Then
    Log(mcp.LastErrorText)
    Return
End If


Log("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 ChilkatJsonObject
toolsJson.Initialize
toolsJson.EmitCompact = False
success = mcp.ListTools(toolsJson)
If success = True Then
    Log("Available MCP tools:")
    Log(toolsJson.Emit)
    Log("----")
End If


'  2) Set up the AI conversation and register the MCP tools.
Dim ai As ChilkatAi
ai.Initialize("ai")
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 = True

'  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 = False Then
    Log(ai.LastErrorText)
    Return
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 = False Then
    Log(ai.LastErrorText)
    Return
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 " & Chr(34) & "modelcontextprotocol/modelcontextprotocol" & Chr(34) & ", then give me a brief, sourced summary of which transports the Model Context Protocol defines.")
If success = False Then
    Log(ai.LastErrorText)
    Return
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 = False Then
    Log(ai.LastErrorText)
    Return
End If


'  The final assistant answer (after any automatic tool calls).
Dim sbResponse As ChilkatStringBuilder
sbResponse.Initialize
success = ai.GetOutputTextSb(sbResponse)
If success = False Then
    Log(ai.LastErrorText)
    Return
End If

Log("Assistant answer:")
Log(sbResponse.GetAsString)
Log("----")

'  (Optional) Dump the full transcript, which now includes the tool call and the tool result that
'  were added automatically.
Dim convoJson As ChilkatJsonObject
convoJson.Initialize
convoJson.EmitCompact = False
success = ai.ExportConvo("test_conversation", convoJson)
If success = False Then
    Log(ai.LastErrorText)
    Return
End If

Log("Full Conversation:")
Log(convoJson.Emit)

'  4) Close the MCP session (best effort; releases the server-side session).
success = mcp.Close
If success = False Then
    Log(mcp.LastErrorText)
    Return
End If