MCP-server voor Delphi
Bouw Model Context Protocol (MCP)-servers in Delphi. Bied tools, resources en prompts aan AI-toepassingen aan.
Bouw Model Context Protocol (MCP)-servers in Delphi. Bied tools, resources en prompts aan AI-toepassingen aan.
Bied je eigen tools, prompts en resources aan elke MCP-bewuste LLM-client aan. Host een JSON-RPC-endpoint met HTTP- en HTTP Streamable-transports bovenop een sgcWebSockets HTTP-server.
TsgcWSAPIServer_MCP
Model Context Protocol-server, spec 2026-07-28 met achterwaartse compatibiliteit voor 2025-11-25
Windows, macOS, Linux, iOS, Android
Enterprise (AI-uitbreiding)
Koppel het aan een HTTP-server, vul ServerInfo, hang de OnMCPRequest*-handlers eraan en stel Active := True in.
uses
sgcAI_MCP_Server, sgcAI_MCP_Classes;
var
MCP: TsgcWSAPIServer_MCP;
begin
MCP := TsgcWSAPIServer_MCP.Create(nil);
MCP.MCPOptions.HttpOptions.Port := 8080;
MCP.MCPOptions.ServerInfo.Name := 'sgc-mcp-server';
MCP.MCPOptions.ServerInfo.Title := 'Weather MCP';
MCP.MCPOptions.ServerInfo.Version := '1.0.0';
// Lifecycle + handlers voor binnenkomende verzoeken
MCP.OnMCPInitialize := SrvInitialize;
MCP.OnMCPSessionNew := SrvSessionNew;
MCP.OnMCPRequestTool := SrvCallTool;
MCP.OnMCPRequestPrompt := SrvGetPrompt;
MCP.OnMCPRequestResource := SrvReadResource;
MCP.Active := True;
// Push een notificatie naar elke verbonden sessie
MCP.SendNotificationToolsListChanged;
end;5 gepubliceerde eigenschappen, 9 methoden, 12 events — gehaald uit de componentreferentie.
Methoden: KeepAlive.
Events: OnMCPHTTPRequest, OnMCPHTTPResponse.
Gepubliceerde eigenschappen: MCPOptions, EndpointOptions, TransportOptions.
Gepubliceerde eigenschappen: Version.
Eigenschappen: Server.
Methoden: RequestRootsList, RequestSamplingCreateMessage, RequestElicitationCreate.
Stateless requests met per-request _meta, server/discover, Mcp-Method / Mcp-Name / Mcp-Param headervalidatie en cache hints (MCPOptions.Cache). Clients op 2025-11-25 blijven initialize en sessies gebruiken op dezelfde server.
subscriptions/listen streamt lijstwijzigingen en resource-updates. Opties: MCPOptions.Subscriptions. Methode: CloseSubscriptions.
Vraag de client om elicitation (formulier of URL), sampling of roots vanuit een tool met aResponse.InputRequired. De requestState is HMAC-ondertekend (MCPOptions.MRTR).
io.modelcontextprotocol/tasks voor langlopende tools. Methode: CreateTask. Opties: MCPOptions.Tasks.
Gezaghebbende bronnen voor de protocollen die dit component implementeert.
Diepe link naar de componentreferentie, pak het kant-en-klare demoproject en download de proefversie.
| Demoproject — Demos\AI\MCP\Server Kant-en-klaar voorbeeldproject. Inbegrepen in het sgcWebSockets-package — download de proefversie hieronder. | Openen | |
| Technisch document (PDF) Functies, snelstart, codevoorbeelden voor Delphi & C++ Builder en primaire bronreferenties — alleen dit component. | Openen | |
| Gebruikershandleiding (PDF) Uitgebreide handleiding die alle componenten in de bibliotheek behandelt. | Openen |
TsgcWSAPIServer_MCP-component, stel MCPOptions.HttpOptions.Port en MCPOptions.ServerInfo in, hang de OnMCPRequest*-handlers eraan en stel dan Active := True in. Het host een JSON-RPC-endpoint bovenop een sgcWebSockets HTTP-server.
TransportOptions en EndpointOptions.
OnMCPRequestTool voor tool-aanroepen, OnMCPRequestPrompt voor prompts en OnMCPRequestResource voor resources. Je kunt ook updates pushen naar elke verbonden sessie, bijvoorbeeld met SendNotificationToolsListChanged.
RequestRootsList, RequestSamplingCreateMessage en RequestElicitationCreate, zodat de server de verbonden MCP-client kan vragen om roots, sampling-completions of gebruikersinvoer. Op MCP 2026-07-28 reizen dezelfde vragen als Multi Round-Trip Requests: de tool-handler vult aResponse.InputRequired, bijvoorbeeld met AddElicitation, en leest de antwoorden op de herhaalde aanroep met InputResponse.
server/discover, subscriptions/listen, Multi Round-Trip Requests en de Tasks-extensie) en blijft volledig achterwaarts compatibel met 2025-11-25-clients die initialize en sessies gebruiken. Beide eras worden door hetzelfde component bediend, de era wordt bij elk verzoek gedetecteerd. Beschikbaar in sgcWebSockets 2026.10.0 voor Delphi 7 tot Delphi 13 en in het .NET-pakket.