Номер ревизии SVN в проекте Delphi | Way23

Номер ревизии SVN в проекте Delphi

В этой инструкции показано как настроить автоматическое добавлении номера ревизии в Delphi программу из рабочей копии SVN в которой находится собираемый проект. Номер ревизия отображается в свойствах файла, а из кода доступен в виде константы.

Устанавливаем консольный клиент SVNopen in new window.

Создаем и сохраняем в Delphi новый проект.

Рядом с файлом проекта помещаем два файла: version.rc.tmpl - шаблон для файла ресурсов и скрипт получения ревизии _CreateInclude.bat.

1 VERSIONINFO FILEVERSION 1,0,0,---WCREV--- PRODUCTVERSION 1,5 FILEOS 0x4 FILETYPE 0x1 FILESUBTYPE 0x0L FILEFLAGSMASK 0x3fL { BLOCK "StringFileInfo" { BLOCK "040904E4" { VALUE "CompanyName", "\0" VALUE "FileDescription", "\0" VALUE "FileVersion", "1.0.0.---WCREV---\0" VALUE "InternalName", "\0" VALUE "LegalCopyright", "\0" VALUE "LegalTrademarks", "\0" VALUE "OriginalFilename", "\0" VALUE "ProductName", "\0" VALUE "ProductVersion", "1.5\0" VALUE "Author", "\0" } } BLOCK "VarFileInfo" { VALUE "Translation", 0x0419 0x04E4 } }

cd %~dp0

del _IncludeBuildInfo.inc

chcp 1251

rem Get revision

svn info | find /i "Last Changed Rev">__rev.txt

SET /p rev=<__rev.txt SET rev=%rev:~18%

del __rev.txt

rem create include

del _IncludeBuildInfo.inc

echo const cRevision = '---WCREV---'; cBuildInfo = 'BuildDate: "%DATE% %TIME%"; User: "%USERNAME%"; COMPUTERNAME: "%COMPUTERNAME%"';>> _IncludeBuildInfo.inc

reFind.exe _IncludeBuildInfo.inc "/P:---WCREV---" "/R:%rev%" /B:2

rem create res

del version.rc

copy version.rc.tmpl version.rc

reFind.exe version.rc "/P:---WCREV---" "/R:%rev%" /B:2

BRCC32.exe -w32 -v -c1251 -m "%~dp0version.rc" -foversion

reFind.exeopen in new window - утилита из набора Delphi.

При запуске _CreateInclude.bat создаются два файла version.RES и _IncludeBuildInfo.inc.

const cRevision = '1234'; cBuildInfo = 'BuildDate: "20.01.2017 16:21:06,51"; User: "QQQ"; COMPUTERNAME: "QQQ1"';

Подключаем их в коде приложения

var Form1: TForm1;

// подключение ресурса для вывода номера ревизии в свойствах файла {$R version.RES}

// подключение файла с константой в которой номер ревизии {$I '_IncludeBuildInfo.inc'}

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin // используем константу из _IncludeBuildInfo.inc Caption := cRevision; end;

В настройке проекта, для All configurations, добавляем запуск _CreateInclude.bat перед сборкой

Компилируем проект, ревизия отображается в свойствах файла и в заголовке формы.

Пример на GitHubopen in new window

Последниее изменение: 13.09.2021, 14:02:47