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 };
  }