TsgcWSAPIClient_MCP › Events › OnMCPDiscover

OnMCPDiscover Event

Fires when the server answers server/discover (protocol version 2026-07-28).

Syntax

property OnMCPDiscover: TsgcAI_MCP_Client_OnDiscoverEvent;
// TsgcAI_MCP_Client_OnDiscoverEvent = procedure(Sender: TObject; const aRequest: TsgcAI_MCP_Request_ServerDiscover; const aResponse: TsgcAI_MCP_Response_ServerDiscover; var Accept: Boolean) of object

Default Value

—

Remarks

Raised during Initialize when the modern era is negotiated, and after every call to Discover. aResponse exposes SupportedVersions, Capabilities and Instructions. During Initialize, set Accept to False to reject the server; Initialize then returns False. OnMCPInitialize is only raised in the legacy era.

See Protocol Versions.

Example

procedure TMainForm.MCPDiscover(Sender: TObject;
  const aRequest: TsgcAI_MCP_Request_ServerDiscover;
  const aResponse: TsgcAI_MCP_Response_ServerDiscover; var Accept: Boolean);
begin
  Log('versions: ' + aResponse.SupportedVersions.CommaText);
end;

Back to Events