Verbinde Delphi-Anwendungen über das Model Context Protocol mit dem KI-Ökosystem: TsgcWSAPIServer_MCP stellt die Tools, Prompts und Ressourcen deiner Anwendung KI-Modellen zur Verfügung, und TsgcWSAPIClient_MCP konsumiert jeden MCP-kompatiblen Server. Dieselbe Bibliothek liefert KI-API-Clients für OpenAI, Anthropic Claude und Google Gemini.
MCP ist der aufstrebende Standard, um große Sprachmodelle mit externen Tools und Daten zu verbinden. Statt einer eigenen Integration pro KI-Anbieter implementierst du ein einziges Protokoll.
Model Context Protocol in Delphi heißt: Deine bestehende VCL- oder FMX-Anwendung kann ein KI-zugänglicher Dienst werden. Das Protokoll basiert auf JSON-RPC und definiert drei Primitive: Tools (aufrufbare Funktionen mit typisierten Parametern), Prompts (wiederverwendbare Vorlagen mit Argumenten) und Ressourcen (über URI-Adressierung bereitgestellte Daten). Ein MCP-Server veröffentlicht sie; ein MCP-Client (Claude Desktop, Cursor oder deine eigene Delphi-Anwendung) entdeckt sie und ruft sie auf.
Die Server-Komponente dockt an einen sgcWebSockets-HTTP-Server an und unterstützt sowohl stdio- als auch HTTP-Transport. Derselbe Code bedient also einen Desktop-KI-Assistenten, der ihn als Subprozess startet, und einen Remote-Agenten, der ihn über das Netzwerk aufruft. Die Client-Komponente spricht JSON-RPC über HTTP oder HTTP Streamable und deckt die volle Katalog-Oberfläche ab: Initialize, Tools auflisten und aufrufen, Prompts abrufen, Ressourcen lesen, dazu Sampling und Elicitation für interaktive KI-Workflows.
TsgcWSAPIServer_MCP: Tools, Prompts, Ressourcen, stdio- und HTTP-Transport
TsgcWSAPIClient_MCP: jeden MCP-kompatiblen Server entdecken und aufrufen
TsgcHTTP_API_OpenAI, TsgcHTTP_API_Anthropic, TsgcHTTP_API_Gemini
Delphi 7 bis RAD Studio 13, C++Builder 10.1 Berlin bis 13, Lazarus 4.4.0
Server, Client und die KI-Anbieter-Clients, die konsumieren, was MCP bereitstellt.
Tools.AddTool registriert eine aufrufbare Funktion und ihre InputSchema-Properties; Aufrufe treffen im Event OnMCPRequestTool mit geparsten Argumenten und einem strukturierten Response-Objekt ein.
Wiederverwendbare Prompt-Vorlagen mit Argumenten und URI-adressierte Ressourcen, ausgeliefert über OnMCPRequestPrompt und OnMCPRequestResource.
Initialize, ListTools, ListPrompts, ListResources, ListResourceTemplates, dann RequestTool / RequestPrompt / RequestResource mit Event-getriebenen Antworten.
Der Client unterstützt MCP-Sampling (vom Server angeforderte KI-Modell-Interaktion) und Elicitation (Einholen von Benutzereingaben mitten im Workflow), die beiden interaktiven Erweiterungen des Protokolls.
Zu den Client-Authentifizierungsoptionen gehören API-Keys über AuthenticationOptions.ApiKey; für OAuth2-geschützte MCP-Server siehe den Blog.
Stdio für als Subprozess gestartete Server (das Claude-Desktop-Modell) und HTTP für Netzwerk-Deployments. Eine Komponente, beide Kanäle.
Sprich auch direkt mit den Modellen: Chat, Streaming und Function Calling gegen OpenAI, Anthropic Claude und Google Gemini, plus DeepSeek, Grok, Mistral und Ollama in derselben KI-Familie.
Windows 32/64, Linux 64, macOS (Intel und ARM), iOS und Android. VCL und FireMonkey, mit Design-Time-Komponenten.
MCP-Server, MCP-Client und die KI-API-Clients sind Enterprise-Edition-Funktionen von sgcWebSockets.
Registriere auf dem Server ein Tool mit typisiertem Argument; entdecke und rufe es vom Client aus auf.
uses
sgcWebSocket_Server, sgcAI, sgcAI_MCP_Classes, sgcAI_MCP_Server;
procedure TForm1.SetupMCPServer;
begin
// Attach the MCP API component to a sgcWebSockets HTTP server
MCPServer.Server := Server;
MCPServer.EndpointOptions.Endpoint := '/mcp';
MCPServer.MCPOptions.ServerInfo.Name := 'sgc-mcp-server';
MCPServer.MCPOptions.ServerInfo.Version := '1.0.0';
// Register a callable tool with a typed argument
with MCPServer.Tools.AddTool('GetTemperature',
'Get the actual temperature in a city.') do
InputSchema.Properties.AddProperty('city', True);
MCPServer.OnMCPRequestTool := MCPRequestTool;
Server.Port := 8080;
Server.Active := True;
end;
procedure TForm1.MCPRequestTool(Sender: TObject;
const aSession: TsgcAI_MCP_Session;
const aRequest: TsgcAI_MCP_Request_ToolsCall;
const aResponse: TsgcAI_MCP_Response_ToolsCall);
begin
if aRequest.Params.Name = 'GetTemperature' then
aResponse.Result.Content.AddText('The current temperature in ' +
aRequest.Params.Arguments.Item[0].Value + ' is 22 Celsius');
end;uses
sgcAI_MCP_Client, sgcAI_MCP_Classes;
var
MCP: TsgcWSAPIClient_MCP;
begin
MCP := TsgcWSAPIClient_MCP.Create(nil);
MCP.MCPOptions.HttpOptions.URL := 'https://mcp.example.com/';
MCP.MCPOptions.ClientInfo.Name := 'sgc-mcp-client';
MCP.MCPOptions.ClientInfo.Title := 'sgc MCP demo';
MCP.MCPOptions.ClientInfo.Version := '1.0.0';
MCP.MCPOptions.AuthenticationOptions.ApiKey.Enabled := True;
MCP.MCPOptions.AuthenticationOptions.ApiKey.Value := 'sk-mcp-...';
MCP.OnMCPInitialize := MCPInit;
MCP.OnMCPListPrompts := MCPListPrompts;
MCP.OnMCPListTools := MCPListTools;
MCP.OnMCPResponseTool := MCPToolResponse;
MCP.Initialize;
MCP.ListPrompts;
MCP.ListResources;
MCP.ListTools;
MCP.RequestTool('GetTemperature', '{"city":"Madrid"}');
end;Lass ein KI-Modell die Daten deiner Anwendung über kontrollierte, typisierte Tools abfragen. Read-only oder Read-write, dein Handler entscheidet pro Aufruf.
Stelle CRM-, ERP- oder Ticketing-Operationen als MCP-Tools bereit, damit Anweisungen in natürlicher Sprache bestehende Delphi-Geschäftslogik steuern.
Gib Assistenten wie Claude Desktop Zugriff auf die Funktionalität einer Legacy-Anwendung, indem du sie in einen stdio-MCP-Server verpackst.
Verkette Tools und Ressourcen für Retrieval, Verarbeitung und Aktion in einer einzigen KI-getriebenen Pipeline, orchestriert von der Delphi-Seite aus.
Was das Model Context Protocol ist und wie sich Server- und Client-Komponente die Arbeit teilen.
Vollständige Referenz zu TsgcWSAPIServer_MCP: Eigenschaften, Methoden, Events.
Vollständige Referenz zu TsgcWSAPIClient_MCP: Katalog-Methoden und Response-Events.
Schritt-für-Schritt-Durchgang durch einen funktionierenden Delphi-MCP-Server.
Einen Delphi-Client mit MCP-Servern verbinden und ihre Tools aufrufen.
MCP-Endpunkte absichern: API-Keys und authentifizierte Flows aus Delphi.