Delphi MCP Sunucusu
Delphi'de Model Context Protocol (MCP) sunucuları oluşturun. Araçları, kaynakları ve istemleri yapay zeka uygulamalarına sunun.
Delphi'de Model Context Protocol (MCP) sunucuları oluşturun. Araçları, kaynakları ve istemleri yapay zeka uygulamalarına sunun.
Kendi araçlarınızı, istemlerinizi ve kaynaklarınızı herhangi bir MCP destekli LLM istemcisine sunun. Bir sgcWebSockets HTTP sunucusu üzerinde HTTP ve HTTP Streamable taşımalarıyla bir JSON-RPC uç noktası barındırır.
TsgcWSAPIServer_MCP
Model Context Protocol sunucusu, 2025-11-25 ile geriye dönük uyumlu 2026-07-28 spesifikasyonu
Windows, macOS, Linux, iOS, Android
Enterprise (yapay zeka eklentisi)
Bir HTTP sunucusuna iliştirin, ServerInfo değerlerini doldurun, OnMCPRequest* işleyicilerini bağlayın, Active := True olarak ayarlayın.
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 + incoming request handlers
MCP.OnMCPInitialize := SrvInitialize;
MCP.OnMCPSessionNew := SrvSessionNew;
MCP.OnMCPRequestTool := SrvCallTool;
MCP.OnMCPRequestPrompt := SrvGetPrompt;
MCP.OnMCPRequestResource := SrvReadResource;
MCP.Active := True;
// Push a notification to every connected session
MCP.SendNotificationToolsListChanged;
end;5 yayımlanmış özellik, 9 metot, 12 olay — bileşen referansından alınmıştır.
Metotlar: KeepAlive.
Olaylar: OnMCPHTTPRequest, OnMCPHTTPResponse.
Yayımlanmış özellikler: MCPOptions, EndpointOptions, TransportOptions.
Yayımlanmış özellikler: Version.
Özellikler: Server.
Metotlar: RequestRootsList, RequestSamplingCreateMessage, RequestElicitationCreate.
İstek başına _meta, server/discover, Mcp-Method / Mcp-Name / Mcp-Param başlık doğrulaması ve önbellek ipuçları (MCPOptions.Cache) ile durumsuz istekler. 2025-11-25 istemcileri aynı sunucuda initialize ve oturumları kullanmaya devam eder.
subscriptions/listen, liste değişikliklerini ve kaynak güncellemelerini akış olarak iletir. Seçenekler: MCPOptions.Subscriptions. Metot: CloseSubscriptions.
Bir araçtan aResponse.InputRequired ile istemciden elicitation (form veya URL), sampling ya da roots isteyin. requestState, HMAC ile imzalanır (MCPOptions.MRTR).
Uzun süren araçlar için io.modelcontextprotocol/tasks. Metot: CreateTask. Seçenekler: MCPOptions.Tasks.
Bu bileşenin uyguladığı protokoller için yetkili kaynaklar.
Bileşen referansına doğrudan bağlanın, çalışmaya hazır demo projesini alın ve denemeyi indirin.
| Demo Projesi — Demos\AI\MCP\Server Çalışmaya hazır örnek proje. sgcWebSockets paketinin içinde gelir, aşağıdan denemeyi indirin. | Aç | |
| Teknik Belge (PDF) Özellikler, hızlı başlangıç, Delphi ve C++ Builder için kod örnekleri ve birincil kaynak referansları, yalnızca bu bileşen. | Aç | |
| Kullanıcı Kılavuzu (PDF) Kütüphanedeki her bileşeni kapsayan kapsamlı kılavuz. | Aç |
TsgcWSAPIServer_MCP bileşeni ekleyin, MCPOptions.HttpOptions.Port ve MCPOptions.ServerInfo değerlerini ayarlayın, OnMCPRequest* işleyicilerini bağlayın, ardından Active := True olarak ayarlayın. Bir sgcWebSockets HTTP sunucusu üzerinde bir JSON-RPC uç noktası barındırır.
TransportOptions ve EndpointOptions yayımlanmış özellikleri aracılığıyla yapılandırılır.
OnMCPRequestTool, istemler için OnMCPRequestPrompt ve kaynaklar için OnMCPRequestResource. Ayrıca bağlı her oturuma güncellemeler gönderebilirsiniz, örneğin SendNotificationToolsListChanged ile.
RequestRootsList, RequestSamplingCreateMessage ve RequestElicitationCreate aracılığıyla sunucu kaynaklı istekleri destekler; böylece sunucu, bağlı MCP istemcisinden roots, örnekleme tamamlamaları veya kullanıcı girişi isteyebilir. MCP 2026-07-28'de aynı sorular Multi Round-Trip Requests (MRTR) olarak iletilir: araç işleyicisi aResponse.InputRequired alanını, örneğin AddElicitation ile doldurur ve yanıtları yeniden denenen çağrıda InputResponse ile okur.
server/discover, subscriptions/listen, Multi Round-Trip Requests ve Tasks uzantısı) uygular ve initialize ile oturumları kullanan 2025-11-25 istemcileriyle tam geriye dönük uyumluluğu korur. Her iki dönem de aynı bileşen tarafından sunulur, dönem her istekte tespit edilir. sgcWebSockets 2026.10.0'da Delphi 7'den Delphi 13'e ve .NET paketinde kullanılabilir.