Dinos MCPServer - 버전 1.0.1

---

Delphi 코드를 DMCPServer로 MCP-server로 변환합니다.

About

DMCPServer는 Delphi에서 개발된 마스터 제어 프로토콜 서버입니다.

# # # # # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ; # ;

설치는 boss install] 명령을 사용하여 수행됩니다.

또는 도구 > 옵션 > 언어 > Delphi > 도서관 > 도서관 경로 경로 ‘source’ 이 프로젝트 추가

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

테스트 델파이 버전

♨ 작업 등록

생성 및 서버 정보를 등록

MCP와 함께 LLM 추억에 더 많은 리소스를 추가

Claude AI에 첨부

개발자에 접근하고 config 편집

mcpServers 노드에서 MCPServer(STDIO)를 첨부합니다.

HTTP에:

흐름

문서

여기에 완전한 문서를 읽으십시오: DMCPServer-docs

다운로드 DMCPServer

MCP DMCPServer의 전체 설명 - EN- 제품 정보

---

Dinos MCPServer - Version 1.0.1

Transform your Delphi code into a MCP-server with DMCPServer.

🎯 About

DMCPServer is a master control protocol server developed in Delphi.

⚙️ Installation

Installation is done using the boss install command:

boss install github.com/Daniel09Fernandes/DMCPServer

or Tools > Options > Language > Delphi > Library > Library Path Add path ‘source’ this project

⚙️ Protocol

Tested Delphi version

🚀 Register your Action

var     
  lCallbackGetWeather : TMCPAction;
begin
 lCallbackGetWeather :=
       procedure(var Params: TJSONObject; out Result: TDMCPCallToolsResult; out Error: TDMCPCallToolsContent)
       var
         Location: string;
         EnableLog: Boolean;
         WeatherService: IWeatherService;
         WeatherData: string;
       begin
         try
            try
              // Extract parameters
              Location := Params.GetParam('location');
              EnableLog := Params.GetParam('EnableLog', trBool);

              // Validation of required parameters
              if Location.Trim = '' then
                raise Exception.Create('Location parameter is required');

              WeatherService := TMockWeatherService.Create;
              WeatherData := WeatherService.GetWeatherData(Location);

              if EnableLog then
                TDMCPServer.WriteToLog(Format('Weather data requested for %s', [Location]));

              // Assemble the result - There's no need to release it from memory; it's done automatically.
              Result := TDMCPCallToolsResult.Create;
              Result.Content.AddRange(TDMCPCallToolsContent.Create(ptText, WeatherData));

              Error := nil;
            finally
              Params.Free;
            end;
         except
            on E: Exception do
            begin
              // Handles exceptions. to MCPServers Defaults
              Error := TDMCPCallToolsContent.Create(ptText,
                'Weather service error: ' + E.Message);
              TDMCPServer.WriteToLog('Error in get_weather: ' + E.Message);
              Result := nil;
            end;
         end;
        end;
end;

📋 Create and register your server informations

var     
   lDMCP: IDMCPServerRegister;
begin
   lDMCP := TDMCPServerRegister.New
      .SetLogs(True);  //Set Logs Request

    lDMCP