Delphi Build Server

Instructions

Implementation Reference

• src/server.ts:80-113 (handler)

  Core handler function that executes the Delphi project build using MSBuild, including environment setup with rsvars.bat, argument preparation, and command execution.
  async function buildWithMSBuild({ project, configuration, platform, msbuildPath, rsvarsPath }: { project: string; configuration?: string; platform?: string; msbuildPath?: string; rsvarsPath?: string; }) { const projPath = resolve(project); if (!existsSync(projPath)) { throw new Error(`Project not found: ${projPath}`); } if (!isDelphiProject(projPath)) { throw new Error('Unsupported project type. Provide a .dproj or .groupproj file'); } const { rsvars, msbuild } = resolveDefaults(); const rsvarsFinal = rsvarsPath || rsvars; const msbuildFinal = msbuildPath || msbuild || 'msbuild'; // Prepare MSBuild arguments const args = [ '"' + projPath + '"', '/t:Build', configuration ? `/p:Config=${configuration}` : '', platform ? `/p:Platform=${platform}` : '' ].filter(Boolean); // If rsvars is available, run in a single shell using cmd and call if (rsvarsFinal && existsSync(rsvarsFinal)) { const cmd = 'cmd'; const composite = [ '/s', '/c', `"@echo off && call \"${rsvarsFinal}\" && ${msbuildFinal} ${args.join(' ')}"` ]; return await runCommand(cmd, composite); } // Otherwise, rely on msbuild directly (if in PATH or explicit) return await runCommand(msbuildFinal, args); }
• src/server.ts:27-33 (schema)

  Zod-based input schema defining parameters for the delphi.build tool: project path, configuration, platform, msbuild and rsvars paths.
  const BuildInput = { project: z.string().describe('Path to a Delphi .dproj or .groupproj file'), configuration: z.string().optional().default(process.env.DELPHI_CONFIG || 'Release'), platform: z.string().optional().default(process.env.DELPHI_PLATFORM || 'Win32'), msbuildPath: z.string().optional().describe('Optional path to msbuild.exe to use'), rsvarsPath: z.string().optional().describe('Optional path to rsvars.bat to initialize RAD Studio env') };
• src/server.ts:216-231 (registration)

  MCP server registration of the 'delphi.build' tool, specifying description, input schema, and inline handler that calls buildWithMSBuild and formats the response.
  mcpServer.registerTool('delphi.build', { description: 'Build a Delphi .dproj or .groupproj using MSBuild with RAD Studio environment', inputSchema: BuildInput, }, async (req: any) => { const { code, stdout, stderr } = await buildWithMSBuild(req); const ok = code === 0; return { content: [ { type: 'text', text: ok ? `Build succeeded for ${basename(req.project)}` : `Build failed for ${basename(req.project)}` }, { type: 'text', text: `Exit code: ${code}` }, { type: 'text', text: '--- STDOUT ---\n' + stdout }, { type: 'text', text: '--- STDERR ---\n' + stderr } ], isError: !ok }; });
• src/server.ts:10-24 (helper)

  Utility function to spawn and manage child processes for running build commands, capturing stdout, stderr, and exit code.
  function runCommand(cmd: string, args: string[], options: { cwd?: string, env?: NodeJS.ProcessEnv } = {}) { return new Promise<{ code: number | null, stdout: string, stderr: string }>((resolvePromise) => { const child = spawn(cmd, args, { cwd: options.cwd, env: { ...process.env, ...options.env }, shell: true, // allow .bat/.cmd wrappers on Windows windowsHide: true }); let stdout = ''; let stderr = ''; child.stdout.on('data', (d) => { stdout += d.toString(); }); child.stderr.on('data', (d) => { stderr += d.toString(); }); child.on('close', (code) => resolvePromise({ code, stdout, stderr })); }); }
• src/server.ts:75-77 (helper)

  Helper to check if a file is a Delphi project file (.dproj or .groupproj).
  function isDelphiProject(file: string) { const ext = extname(file).toLowerCase(); return ext === '.dproj' || ext === '.groupproj';
• src/server.ts:69-73 (helper)

  Helper to resolve default paths for rsvars.bat and msbuild from environment variables.
  function resolveDefaults() { const rsvars = process.env.RSVARS_BAT || process.env.RSVARS_PATH; const msbuild = process.env.MSBUILD_PATH; return { rsvars, msbuild }; }