MSBuild manuell aus FinalBuilder aufrufen

[himitsu]

Moin Moin,

ich versuche immernoch aus Powershell (später FinalBuilder) den MSBuild aufzurufen,
aber irgendwie will das einfach nicht. (zwei was auszuführen)

Ja, FinalBuilder hat Delphi- und MSBuild-Actions, aber die sind unbrauchbar.
* einmal braucht man unbedingt jedesmal sofort eine neue Version, wenn neues Delphi raus kommt
* und dann lassen sie sich eh nur via BeforeAction "dynamisch" konfigurieren (und in AfterAction reseten, damit die fbp8 nicht ständig Änderungen im GIT anzeigt)
* also kann man das auch gleich alles selbst im Script machen



Also erstmal in PowerShell ISE rumgespielt.

* rsvars.bat + MSBuild.exe
* oder selbst das Environment zusammenstellen und damit MSBuild starten

* Wenn ich die Variablen aus rsvars lade und 1:1 übergebe, dann werden die enthalten Variablen nicht ersetzt und es heißt "MSBuild not found".
* Mit Replace bleibt aber CMD hängen und läuft in den Timeout. (oder läuft ewig)
* Über SET angesehn, sieht das Environment aber OK aus.

* Aber auch rsvars.bat & MSBuild.exe will nicht.
Hab auch schon alles mögliche bezüglich dem Escaping versucht ... für CMD /C mit oder ohne /S, ist das ja oft bissl verzickt.

Code:

$DelphiDir     = "C:\Program Files (x86)\Embarcadero\Studio\22.0"
$BuildPlatform = "Win32"
$BuildConfig   = "Debug"
$ProjectDir    = "C:\Irgendwo"
$ProjectFile   = "C:\Irgendwo\MyTest.dproj"



## INIT
$PInfo = New-Object System.Diagnostics.ProcessStartInfo
$PInfo.WorkingDirectory       = $ProjectDir
$PInfo.FileName               = "cmd.exe"  # oder $Env.ComSpec
#$PInfo.Arguments              = "/s", "/c", "call `"$DelphiDir\bin\rsvars.bat`" `& MSBuild.exe /nologo /target:Build /property:Platform=$BuildPlatform /property:Config=$BuildConfig `"$ProjectFile`""
#$PInfo.Arguments              = "/s", "/c", "call `"$DelphiDir\bin\rsvars.bat`" `& echo MSBuild.exe /nologo /target:Build /property:Platform=$BuildPlatform /property:Config=$BuildConfig `"$ProjectFile`" `& set"
#$PInfo.Arguments              = "/c", "MSBuild.exe /nologo /target:Build /property:Platform=$BuildPlatform /property:Config=$BuildConfig `"$ProjectFile`""
$PInfo.Arguments              = "/c", "set"
$PInfo.RedirectStandardError  = $true
$PInfo.RedirectStandardOutput = $true
$PInfo.UseShellExecute        = $false

## LOAD rsvars.bat
if ($true) {  #if ($PInfo.Arguments -NotContains "rsvars") {
  foreach ($Line in (Get-Content "C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\rsvars.bat")) {
    if ($Line.Trim() -ne "") {
      $Key   = $Line.Split('=')[0].TrimStart("@SET").Trim()
      $Value = ($Line.Split('=')[1] + "").Trim()
      foreach ($Match in (Select-String "%([a-z0-9_]+)%" -input $Value -AllMatches).Matches) {
        $Value2 = ($PInfo.EnvironmentVariables[$Match.Value.Trim("%")] + "").Trim()
        #if ( ($Value2 -ne $null) -And ($Value2 -ne "") ) {
          $Value = $Value.Replace($Match.Value, $Value2)
        #}
      }
      Write-Host "set `"$Key`" = `"$Value`""
      $PInfo.EnvironmentVariables[$Key] = $Value
    }
  }
}

## EXECUTE
$Process = New-Object System.Diagnostics.Process
$Process.StartInfo = $pinfo
$Process.Start() | Out-Null
#$Process.WaitForExit()
if ($Process.WaitForExit(10 * 1000) -ne $true) {
  $Process.Kill()
  #throw "TIMEOUT"
  Write-Host "{TIMEOUT}"
}
$StdOut = $Process.StandardOutput.ReadToEnd()
$StdErr = $Process.StandardError.ReadToEnd()

## LOG
Write-Host "ExitCode:", $Process.ExitCode
Write-Host "StdOut:`n$StdOut"
Write-Host "StdErr:`n$StdErr"

[Uwe Raabe]

Vielleicht erkenne ich das Problem noch nicht, aber mit dieser CMD-Datei funktioniert das tadellos:

Code:

call "c:\Program Files (x86)\Embarcadero\Studio\22.0\bin\rsvars.bat"
msbuild "BuildAll.proj" /t:build /p:config="Release" /fileLogger /flp:ErrorsOnly /nologo /maxcpucount:2 > build.log

Die BuildAll.proj Datei besteht im Wesentlichen aus mehreren _Project Include=-Nodes mit den groupproj bzw. dproj Dateien, die verarbeitet werden sollen:

XML-Code:

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <ItemGroup>
    <_Project Include="xxx.groupproj"/>
    ...
  </ItemGroup>
</Project>

Das mit dem maxcpucount funktioniert natürlich nur wenn die Projektgruppen unabhängig voneinander sind. Hier wird das z.B. benutzt, um in einem Projekt alle externen Libraries in einem Rutsch zu erzeugen.

[himitsu]

Hatte auch mit Start-Process rumgespielt, aber dort gab es ein Problem, dass des mit dem Environment "so" noch nicht funktioniert.
Überall ist es ja PowerShell 5.1, aber den nötigen Parameter gibt es erst in 7.5 und die zu installieren bringt wieder andere Nachteile mit sich.

Wir kompilieren Einiges multithreaded, im FinalBuilder,
drum fällt das mit der LogDatei besser weg.
Die Redirection in eine Variable funktioniert aber so weit erstmal.


Jupp, die Aufrufe an sich, in CMD oder Batch, funktionieren grundsätzlich.

Eine externe Batchstatei wollte ich aber auch gern ersparen ... lieber möglichst alles im FinalBuilder drin.

Und eigentlich ist es ja möglich, diese beiden Befehle von der CMD.exe direkt ausführen zu lassen,
nur mach ich da bestimmt irgendwo einen Fehler. (bestimmt Escaping im Parameter der CMD.exe selbst und nochmal im PowerShell-Script)

[Uwe Raabe]

Zitat von himitsu:

Eine externe Batchstatei wollte ich aber auch gern ersparen ... lieber möglichst alles im FinalBuilder drin.

Im FinalBuilder benutze ich es zwar nicht, aber im ContinuaCI. Dort kopiere ich den Inhalt der rsvars.bat in die Environment Variables der MSBuild Action (ohne die @SET davor). Das gibt es aber wohl in der entsprechenden FinalBuilder Action (noch) nicht.

[himitsu]

Teilweise gibt es sowas,
aber an einige Optionen kommt man via BeforeAction nicht ran.

Hart rein kopieren will ich aber auch nicht.
Zu Beginn geht ein Dialog auf, oder alternativ via Parameter an den FinalBuilder,
und da lässt sich dann z.B. die Delphi-Version umstellen, weswegen es auch direkt aus der jeweiligen rsvars.bat kommen muß.


Wir arbeiten noch mit D11 und für 'nen Test würde ich schon gern mal auf D12 umstellen.
(für XE hatten wir ein zweites FB-Script, aber seit D10.2 versuche ich es dynamisch zu halten)