MCP Client

Overview

TsgcWSAPIClient_MCP implements a Model Context Protocol (MCP) consumer on top of sgcWebSockets networking components. It takes care of session negotiation, JSON-RPC request/response marshalling and convenience events so Delphi & Cbuilder applications can discover prompts, resources and tools exposed by any MCP-compliant server.

At a glance

Features

• Native Delphi implementation with full ANSI/Unicode support.

Technical specification

Main properties

The principal published / public properties used to configure and drive the component. Consult the online help for the full list.

Main methods

The principal public methods exposed by the component.

Public events

The component exposes the following published events; consult the online help for full event-handler signatures.

Quick Start

Drop the component on a form, configure the properties below and activate it. The snippet that follows shows the typical Sample code configuration sourced from the online help.

Delphi (VCL / FireMonkey)

procedure TForm1.FormCreate(Sender: TObject);
begin
 MCP.OnMCPListPrompts := MCPListPrompts;
 MCP.OnMCPResponsePrompt := MCPResponsePrompt;
end;
procedure TForm1.LoadPrompts;
begin
 MCP.ListPrompts;
end;
procedure TForm1.MCPListPrompts(Sender: TObject;
 const ARequest: TsgcAI_MCP_Request_PromptsList;
 const AResponse: TsgcAI_MCP_Response_PromptsList);
var
 LIndex: Integer;
 LPrompt: TsgcAI_MCP_Prompt;
begin
 for LIndex := 0 to AResponse.Prompts.Count - 1 do
 begin
  LPrompt := TsgcAI_MCP_Prompt(AResponse.Prompts.Item[LIndex]);
  Memo1.Lines.Add(Format('%s: %s', [LPrompt.Name, LPrompt.Description]));
 end;
end;
procedure TForm1.ExecutePrompt;
var
 LArgs: TsgcJSON;
begin
 LArgs := TsgcJSON.Create(nil);
 try
  LArgs.AddPair('code', 'ShowMessage(''Hello World'')');
  MCP.RequestPrompt('CodeReview', LArgs);
 finally
  LArgs.Free;
 end;
end;
procedure TForm1.MCPResponsePrompt(Sender: TObject;
 const ARequest: TsgcAI_MCP_Request_PromptsGet;
 const AResponse: TsgcAI_MCP_Response_PromptsGet);
var
 LIndex: Integer;
 LMessage: TsgcAI_MCP_Response_PromptsGet_Result_Message;
begin
 Memo1.Lines.Add('Prompt description: ' + AResponse.Result.Description);
 for LIndex := 0 to AResponse.Result.Messages.Count - 1 do
 begin
  LMessage := TsgcAI_MCP_Response_PromptsGet_Result_Message(AResponse.Result.Messages.Item[LIndex]);
  if LMessage is TsgcAI_MCP_Response_PromptsGet_Result_Message_Text then
   Memo1.Lines.Add(LMessage.Role + ': ' +
    TsgcAI_MCP_Response_PromptsGet_Result_Message_Text(LMessage).Content.Text)
  else
   Memo1.Lines.Add(LMessage.Role + ': ' + LMessage.Write);
 end;
end;

C++ Builder

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  MCP->OnMCPListPrompts = MCPListPrompts;
  MCP->OnMCPResponsePrompt = MCPResponsePrompt;
}
void __fastcall TForm1::LoadPrompts()
{
  MCP->ListPrompts();
}
void __fastcall TForm1::MCPListPrompts(TObject *Sender,
  const TsgcAI_MCP_Request_PromptsList &ARequest,
  const TsgcAI_MCP_Response_PromptsList &AResponse)
{
  for (int LIndex = 0; LIndex < AResponse.Prompts->Count; LIndex++)
  {
    TsgcAI_MCP_Prompt *LPrompt = (TsgcAI_MCP_Prompt*)AResponse.Prompts->Item[LIndex];
    Memo1->Lines->Add(Format("%s: %s", ARRAYOFCONST((LPrompt->Name, LPrompt->Description))));
  }
}
void __fastcall TForm1::ExecutePrompt()
{
  TsgcJSON *LArgs = new TsgcJSON(nullptr);
  try
  {
    LArgs->AddPair("code", "ShowMessage('Hello World')");
    MCP->RequestPrompt("CodeReview", LArgs);
  }
  __finally
  {
    delete LArgs;
  }
}
void __fastcall TForm1::MCPResponsePrompt(TObject *Sender,
  const TsgcAI_MCP_Request_PromptsGet &ARequest,
  const TsgcAI_MCP_Response_PromptsGet &AResponse)
{
  Memo1->Lines->Add("Prompt description: " + AResponse.Result->Description);
  for (int LIndex = 0; LIndex < AResponse.Result->Messages->Count; LIndex++)
  {
    TsgcAI_MCP_Response_PromptsGet_Result_Message *LMessage =
      (TsgcAI_MCP_Response_PromptsGet_Result_Message*)AResponse.Result->Messages->Item[LIndex];
    if (dynamic_cast<TsgcAI_MCP_Response_PromptsGet_Result_Message_Text*>(LMessage))
    {
      auto *MsgText = (TsgcAI_MCP_Response_PromptsGet_Result_Message_Text*)LMessage;
      Memo1->Lines->Add(LMessage->Role + ": " + MsgText->Content.Text);
    }
    else
    {
      Memo1->Lines->Add(LMessage->Role + ": " + LMessage->Write());
    }
  }
}

.NET (C#)

private void Form1_Load(object sender, EventArgs e)
{
  MCP.OnMCPListPrompts += MCP_ListPrompts;
  MCP.OnMCPResponsePrompt += MCP_RequestPrompt;
}
private void LoadPrompts()
{
  MCP.ListPrompts();
}
private void MCP_ListPrompts(object sender, MCPResponsePromptsList request, MCPResponsePromptsList response)
{
  foreach (var prompt in response.Prompts)
  {
    memo1.AppendText($"{prompt.Name}: {prompt.Description}\r\n");
  }
}
private void ExecutePrompt()
{
  using (var args = new TsgcJSON())
  {
    args.AddPair("code", "ShowMessage('Hello World')");
    MCP.RequestPrompt("CodeReview", args);
  }
}
private void MCP_RequestPrompt(object sender, MCPResponsePromptsGet request, MCPResponsePromptsGet response)
{
  memo1.AppendText("Prompt description: " + response.Result.Description + "\r\n");
  foreach (var message in response.Result.Messages)
  {
    if (message is MCPResponsePromptsGetResultMessageText msgText)
    {
      memo1.AppendText($"{message.Role}: {msgText.Content.Text}\r\n");
    }
    else
    {
      memo1.AppendText($"{message.Role}: {message.Write()}\r\n");
    }
  }
}

Sources used to build this document

Every external claim links back to a primary source. The online-help references decode the canonical deep-link the company maintains for this component.