Автоматизация создания XML-базы данных в Inno Setup: интеграция с Delphi и Pascal

Delphi , Интернет и Сети , XML

Введение

Inno Setup — это бесплатный комплект инструментов для создания установщиков Windows, который поддерживается скриптами на языке Pascal. В данной статье мы рассмотрим, как автоматизировать процесс создания XML-базы данных во время компиляции установщика с использованием Inno Setup, и как это можно интегрировать с проектами на Delphi.

Описание проблемы

Разработчик сталкивается с необходимостью автоматизации процесса создания дополнительной XML-базы данных, которая будет содержать информацию о языках и версиях уже существующих XML-баз данных, используемых в установщике. В процессе создания новой базы данных необходимо извлечь код языка и версию из названия файлов баз данных.

Решение проблемы

Для решения поставленной задачи можно использовать скрипт на PowerShell, который будет выполняться в процессе компиляции установщика. Скрипт будет искать файлы XML-баз данных, извлекать из их названий код языка и версию, а затем создавать новую базу данных с этой информацией.

Пример PowerShell скрипта

using assembly System.Xml.Linq

$folder = 'c:\temp'
$filename = 'c:\temp\test.xml'
$pattern = 'MSA_PublicTalks_(?<lang>[^.]+).xml'

$template = @"
<?xml version="1.0" encoding="utf-8" ?>
<PublicTalkTitles Version="1.0">
</PublicTalkTitles>
"@

$doc = [System.Xml.Linq.XDocument]::Parse($template)
$talkTitles = $doc.Root

$files = Get-ChildItem -Path $folder | Where-Object { $_.Name -Match $pattern }
foreach($file in $files)
{
   $file -Match $pattern | out-null
   $lang = $Matches['lang'].ToLower()

   $doc2 = [System.Xml.Linq.XDocument]::Load($file.fullname)
   $root = $doc2.Root
   $ver = $root.Attribute('Version').Value

   $database = [System.Xml.Linq.XElement]::new([System.Xml.Linq.XName]::Get('Database'))
   $language = [System.Xml.Linq.XAttribute]::new([System.Xml.Linq.XName]::Get('Language'),$lang)
   $database.Add($language)
   $version = [System.Xml.Linq.XAttribute]::new([System.Xml.Linq.XName]::Get('Version'),$ver)
   $database.Add($version)
   $talkTitles.Add($database)
}
$doc.Save($filename)

Интеграция с Inno Setup

Чтобы интегрировать данный скрипт с Inno Setup, можно использовать встроенную возможность запуска внешних скриптов и программ. Для этого в секции [Code] вашего Inno Setup скрипта необходимо добавить код, который будет запускать PowerShell скрипт после компиляции установщика.

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    Exec('powershell.exe', '-ExecutionPolicy Bypass -File "C:\path\to\your\script.ps1"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  end;
end;

Комментарии и дополнительные шаги

• Убедитесь, что PowerShell позволяет выполнение скриптов, изменив политику выполнения.
• Проверьте, что скрипт корректно обрабатывает исключения и игнорирует нежелательные файлы.
• Интегрированный скрипт должен быть способен запускаться через Inno Setup с достаточными правами.

Заключение

Автоматизация создания XML-базы данных с помощью PowerShell скрипта и его интеграция с Inno Setup позволяет значительно упростить процесс обновления и распространения данных, используемых в установщике. Это решение может быть легко адаптировано под проекты на Delphi, где также используется язык Pascal.

Создано по материалам из источника по ссылке.

Автоматизация процесса создания XML-базы данных в Inno Setup для интеграции с проектами на Delphi и Pascal, с использованием скрипта PowerShell.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: XML ::