# DMCPServer

> Dinos MCP Server, make your code, on MCP Action and execute by AI

- **Type:** MCP server
- **Install:** `agentstack add mcp-daniel09fernandes-dmcpserver`
- **Verified:** Yes — security-reviewed for prompt injection and unsafe behavior
- **Seller:** [Daniel09Fernandes](https://agentstack.voostack.com/s/daniel09fernandes)
- **Installs:** 0
- **Category:** [Integrations](https://agentstack.voostack.com/c/integrations)
- **Latest version:** 0.1.0
- **License:** MIT
- **Upstream author:** [Daniel09Fernandes](https://github.com/Daniel09Fernandes)
- **Source:** https://github.com/Daniel09Fernandes/DMCPServer
- **Website:** https://dmcpserver-doc.lovestoblog.com/

## Install

```sh
agentstack add mcp-daniel09fernandes-dmcpserver
```

Requires the [AgentStack CLI](https://agentstack.voostack.com/docs/cli). Works with Claude Code, Cursor, and any MCP-compatible agent.

## About

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`](https://github.com/HashLoad/boss) command:
``` sh
boss install github.com/Daniel09Fernandes/DMCPServer
```

## ⚙️ Protocol

| Protocol   | Supported 	|
|----------- |-----------	|
| HTTP 	     |    ✅ 	  |
| STDIO    	 |    ✅ 	  |

## Tested Delphi version

| Version  	| Supported 	|   
|----------	|-----------	| 
| > 10.x   	|    ✅ 	    |
| > 11.x   	|    ✅ 	    |
| > 12.x   	|    ✅ 	    |
| > 13.X   	|    ✅ 	    |

## 🚀 Register your Action
``` pascal
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
``` pascal
var     
   lDMCP: IDMCPServerRegister;
begin
   lDMCP := TDMCPServerRegister.New
      .SetLogs(True);  //Set Logs Request

    lDMCP
      .RegisterAction('get_weather', 'Get current weather information', lCallbackGetWeather)     
      .ServerInfo
      .SetServerName('DinosMCPServer')
      .SetVersion('0.1.0')        
        .Tools(TMCPServerTools.New
           .SetName('get_weather')
           .InputSchema
              .SetType(ptObject)
              .SetProperties('location', ptString)
              .SetProperties('Conditions', ptString)
              .SetProperties('EnableLog', ptBoolean)
              .SetRequired(['location'])
              .SetAdditionalProperties(False)
           .&End);
    lDMCP.Run;
end;
```

  To add more resources to LLM memories for use with MCP
```pascal
 .ServerInfo
        .SetServerName('DinosMCPServer')
        .SetVersion('0.1.0')
        .Resources(TMCPServerResources.New
           .SetUri('file:///C:/Users/danie/Downloads/teste/fatura-exemplo.csv')
           .SetName('Model to create sales order')
           .SetDescription('Standard budget template to be followed for sales orders.'))
```

## Attach on Claude AI

Access the configuration on developer and edit config

In mcpServers node, attach your MCPServer(STDIO)

To HTTP: 

# Flow

# Documentation
 
📖 Read the complete documentation here:  [DMCPServer-docs](https://dmcpserver-doc.lovestoblog.com/)

🎬 Watch on Youtube [DMCPServer - PT-BR](https://www.youtube.com/watch?v=AAv67r8OuWo&feature=youtu.be)  

🎬 Watch on Youtube, Full explanation of MCP [DMCPServer - EN-US](https://www.youtube.com/live/a5-xjUtc-CA?si=gQAIhJKf3nY4WE-z&t=4623)   

---

### O componente é totalmente free, se ele foi muito útil para você, que tal me pagar um café para incentivar o projeto?

PIX:

## Star History

[](https://www.star-history.com/#daniel09fernandes/DMCPServer&type=date&legend=top-left)

## Source & license

This open-source MCP server is cataloged on AgentStack and links to its original source — we do not rehost the code.

- **Author:** [Daniel09Fernandes](https://github.com/Daniel09Fernandes)
- **Source:** [Daniel09Fernandes/DMCPServer](https://github.com/Daniel09Fernandes/DMCPServer)
- **License:** MIT
- **Homepage:** https://dmcpserver-doc.lovestoblog.com/

Install and usage instructions live in the source repository linked above.

## Pricing

- **Free** — Free

## Security capabilities

Automated source analysis of v0.1.0 — what this tool can access:

- **Network access:** no
- **Filesystem access:** no
- **Shell / process execution:** no
- **Environment & secrets:** no
- **Dynamic code execution:** no

*"Yes" means the capability is present in the source — more access means more to trust, not that it is unsafe.*


## Versions

- **0.1.0** — security scan: passed — Imported from the upstream source.

## Links

- Listing page: https://agentstack.voostack.com/l/mcp-daniel09fernandes-dmcpserver
- Seller: https://agentstack.voostack.com/s/daniel09fernandes
- Browse the marketplace: https://agentstack.voostack.com/browse

---
Listed on AgentStack — the marketplace for AI agent skills and MCP servers. Every listing is security-reviewed. Creators keep 70%.