Lazarus Pascal Requires Chilkat v11.6.0+

Connect to an MCP Server

Demonstrates Mcp.Connect, which connects to an MCP server at its Streamable HTTP endpoint URL. After connecting, the server's identifying properties are available.

Background. The Model Context Protocol (MCP) lets a client interact with a server's tools, resources, and prompts over a standard JSON-RPC interface. This example connects to the public, no-authentication Microsoft Learn MCP server at https://learn.microsoft.com/api/mcp over Streamable HTTP.

Chilkat Lazarus Pascal Downloads

Download Chilkat for Lazarus Pascal

Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Mcp;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mcp: TMcp;

begin
  success := False;

  mcp := TMcp.Create;

  //  Connect to a public MCP (Model Context Protocol) server over its Streamable HTTP endpoint.  The
  //  Microsoft Learn MCP server is public and requires no authentication.
  success := mcp.Connect('https://learn.microsoft.com/api/mcp');
  if (success = False) then
    begin
      WriteLn(mcp.LastErrorText);
      Exit;
    end;

  //  After connecting, the server's identifying information is available.
  WriteLn('Connected to ' + mcp.ServerName + ' ' + mcp.ServerVersion);
  WriteLn('Protocol version: ' + mcp.ProtocolVersion);

  success := mcp.Close();
  if (success = False) then
    begin
      WriteLn(mcp.LastErrorText);
      Exit;
    end;


  mcp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.