Conecte aplicações Delphi ao ecossistema de IA através do Model Context Protocol: TsgcWSAPIServer_MCP expõe as tools, prompts e resources da sua aplicação a modelos de IA, e TsgcWSAPIClient_MCP consome qualquer servidor compatível com MCP. A mesma biblioteca traz clientes de API de IA para OpenAI, Anthropic Claude e Google Gemini.
MCP é o padrão emergente para conectar grandes modelos de linguagem a ferramentas e dados externos. Em vez de uma integração customizada por provedor de IA, você implementa um único protocolo.
Model Context Protocol em Delphi significa que sua aplicação VCL ou FMX existente pode se tornar um serviço acessível por IA. O protocolo é baseado em JSON-RPC e define três primitivas: tools (funções chamáveis com parâmetros tipados), prompts (templates reutilizáveis com argumentos) e resources (dados expostos por endereçamento URI). Um servidor MCP os publica; um cliente MCP (Claude Desktop, Cursor ou sua própria aplicação Delphi) os descobre e chama.
O componente servidor se acopla a um servidor HTTP do sgcWebSockets e suporta os transportes stdio e HTTP, então o mesmo código atende um assistente de IA desktop que o lança como subprocesso e um agente remoto que o chama pela rede. O componente cliente fala JSON-RPC sobre HTTP ou HTTP Streamable e cobre a superfície completa do catálogo: initialize, listar e chamar tools, recuperar prompts, ler resources, além de sampling e elicitation para fluxos de IA interativos.
TsgcWSAPIServer_MCP: tools, prompts, resources, transportes stdio e HTTP
TsgcWSAPIClient_MCP: descubra e chame qualquer servidor compatível com MCP
TsgcHTTP_API_OpenAI, TsgcHTTP_API_Anthropic, TsgcHTTP_API_Gemini
Do Delphi 7 ao RAD Studio 13, C++Builder 10.1 Berlin ao 13, Lazarus 4.4.0
Servidor, cliente e os clientes de provedores de IA que consomem o que o MCP expõe.
Tools.AddTool registra uma função chamável e as propriedades do seu InputSchema; as chamadas chegam no evento OnMCPRequestTool com argumentos interpretados e um objeto de resposta estruturado.
Templates de prompt reutilizáveis com argumentos e resources endereçados por URI, servidos pelos eventos OnMCPRequestPrompt e OnMCPRequestResource.
Initialize, ListTools, ListPrompts, ListResources, ListResourceTemplates, depois RequestTool / RequestPrompt / RequestResource com respostas orientadas a eventos.
O cliente suporta sampling MCP (interação com o modelo de IA solicitada pelo servidor) e elicitation (coleta de entrada do usuário no meio do fluxo), as duas extensões interativas do protocolo.
As opções de autenticação do lado cliente incluem chaves de API via AuthenticationOptions.ApiKey; veja o blog para servidores MCP protegidos por OAuth2.
Stdio para servidores lançados como subprocesso (o modelo do Claude Desktop) e HTTP para implantações em rede. Um componente, os dois canais.
Fale com os modelos diretamente também: chat, streaming e function calling contra OpenAI, Anthropic Claude e Google Gemini, além de DeepSeek, Grok, Mistral e Ollama na mesma família de IA.
Windows 32/64, Linux 64, macOS (Intel e ARM), iOS e Android. VCL e FireMonkey, com componentes design-time.
O servidor MCP, o cliente MCP e os clientes de API de IA são recursos da edição Enterprise do sgcWebSockets.
Registre uma tool com argumento tipado no servidor; descubra e chame a partir do cliente.
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;Deixe um modelo de IA consultar os dados da sua aplicação através de tools controladas e tipadas. Somente leitura ou leitura e escrita, seu handler decide a cada chamada.
Exponha operações de CRM, ERP ou tickets como tools MCP para que instruções em linguagem natural acionem a lógica de negócio Delphi existente.
Dê a assistentes como o Claude Desktop acesso à funcionalidade de uma aplicação legada envolvendo-a em um servidor MCP stdio.
Encadeie tools e resources para recuperação, processamento e ação em um único pipeline dirigido por IA, orquestrado do lado Delphi.
O que é o Model Context Protocol e como os componentes servidor e cliente dividem o trabalho.
Referência completa do TsgcWSAPIServer_MCP: propriedades, métodos, eventos.
Referência completa do TsgcWSAPIClient_MCP: métodos de catálogo e eventos de resposta.
Passo a passo de um servidor MCP Delphi funcional.
Conectando um cliente Delphi a servidores MCP e chamando suas tools.
Protegendo endpoints MCP: chaves de API e fluxos autenticados a partir do Delphi.