Delphi-MCP-Server/build.bat at main · giorgioneko/Delphi-MCP-Server · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
@echo off
setlocal EnableDelayedExpansion

echo Delphi MCP Server Build Script (Indy HTTP Server)
echo ==================================================
echo.

REM Check if MCPServer.exe is running and kill it
tasklist /FI "IMAGENAME eq MCPServer.exe" 2>NUL | findstr /I "MCPServer.exe" >NUL 2>&1
if "%ERRORLEVEL%"=="0" (
    echo MCPServer.exe is running. Terminating...
    taskkill /F /IM MCPServer.exe >NUL 2>&1
    timeout /t 1 /nobreak >NUL
)

REM Set Delphi installation path - adjust if needed
set DELPHI_PATH=C:\Program Files (x86)\Embarcadero\Studio\23.0

REM Check if dcc32 exists
if not exist "!DELPHI_PATH!\bin\dcc32.exe" (
    echo ERROR: dcc32.exe not found at !DELPHI_PATH!\bin\
    echo Please update DELPHI_PATH in this script to point to your Delphi installation
    exit /b 1
)

REM Set compiler paths
set DCC32="!DELPHI_PATH!\bin\dcc32.exe"
set DCC64="!DELPHI_PATH!\bin\dcc64.exe"
set MSBUILD="!DELPHI_PATH!\bin\rsvars.bat"

REM Create output directories
if not exist Win32\Debug mkdir Win32\Debug
if not exist Win64\Debug mkdir Win64\Debug
if not exist Win32\Release mkdir Win32\Release
if not exist Win64\Release mkdir Win64\Release
if not exist Linux64\Debug mkdir Linux64\Debug
if not exist Linux64\Release mkdir Linux64\Release

REM Build configuration
set CONFIG=%1
if "%CONFIG%"=="" set CONFIG=Debug

REM Platform
set PLATFORM=%2
if "%PLATFORM%"=="" set PLATFORM=Win32

echo Building MCPServer - %CONFIG% %PLATFORM%
echo.

REM Add TaurusTLS path if it exists
set TAURUS_PATH=%USERPROFILE%\Documents\Embarcadero\Studio\23.0\CatalogRepository\TaurusTLS-12\Source
if exist "!TAURUS_PATH!" (
    set EXTRA_UNITS=;!TAURUS_PATH!
) else (
    set EXTRA_UNITS=
)

if "%PLATFORM%"=="Win32" (
    !DCC32! -B -H -W -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;System;Xml;Data;Datasnap;Web;Soap -U"!DELPHI_PATH!\lib\Win32\debug";src;src\Managers;src\Server;src\Tools;src\Core;src\Protocol;src\Libraries;src\Resources!EXTRA_UNITS! -E.\%PLATFORM%\%CONFIG% -N0.\%PLATFORM%\%CONFIG% -LE.\%PLATFORM%\%CONFIG% -LN.\%PLATFORM%\%CONFIG% -D%CONFIG% src\MCPServer.dpr
    goto :CheckBuildResult
) else if "%PLATFORM%"=="Win64" (
    !DCC64! -B -H -W -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;System;Xml;Data;Datasnap;Web;Soap -U"!DELPHI_PATH!\lib\Win64\debug";src;src\Managers;src\Server;src\Tools;src\Core;src\Protocol;src\Libraries;src\Resources!EXTRA_UNITS! -E.\%PLATFORM%\%CONFIG% -N0.\%PLATFORM%\%CONFIG% -LE.\%PLATFORM%\%CONFIG% -LN.\%PLATFORM%\%CONFIG% -D%CONFIG% src\MCPServer.dpr
    goto :CheckBuildResult
) else if "%PLATFORM%"=="Linux64" (
    REM Use MSBuild for Linux64
    if not exist !MSBUILD! (
        echo ERROR: rsvars.bat not found at !MSBUILD!
        echo Linux64 build requires proper Delphi installation with Linux platform
        exit /b 1
    )
    echo Using MSBuild for Linux64 platform...
    REM Store values before calling rsvars.bat which might reset them
    set STORED_PLATFORM=%PLATFORM%
    set STORED_CONFIG=%CONFIG%
    call !MSBUILD!
    msbuild src\MCPServer.dproj /t:Build /p:Config=!STORED_CONFIG! /p:Platform=Linux64
    REM Restore values for final output message
    set PLATFORM=!STORED_PLATFORM!
    set CONFIG=!STORED_CONFIG!
    goto :CheckBuildResult
) else (
    echo ERROR: Invalid platform. Use Win32, Win64, or Linux64
    echo.
    echo Usage: build.bat [Config] [Platform]
    echo   Config: Debug or Release (default: Debug)
    echo   Platform: Win32, Win64, or Linux64 (default: Win32)
    echo.
    echo Examples:
    echo   build.bat                    - Build Debug Win32
    echo   build.bat Release Win64      - Build Release Win64
    echo   build.bat Debug Linux64      - Build Debug Linux64
    exit /b 1
)

:CheckBuildResult
if %ERRORLEVEL% neq 0 (
    echo.
    echo Build FAILED!
    exit /b %ERRORLEVEL%
)

echo.
echo Build completed successfully!
if "%PLATFORM%"=="Linux64" (
    echo Output: %PLATFORM%\%CONFIG%\MCPServer
) else (
    echo Output: %PLATFORM%\%CONFIG%\MCPServer.exe
)

endlocal