Delphi GetIt Package Manager Command Line

[PatrickB08]

Aktuell arbeite ich am Aufsetzen eines automatisierten Test Servers für unsere Delphi Programme. Um unsere Tools automatisiert zu testen verwenden wir Jenkins und virtuelle Maschinen als Jenkins Windows slaves. Auf diesen wird Delphi mit Hilfe
einer silent Installation installiert (da wir auf den slaves nichts manuell selber installieren, alles nur mit batch files). Einige unsererer Apps benötigen jedoch noch zusätzliche Packages, welche wir bisher über den GetIt Package manager installieren konnten (zum Beispiel: LockBox3).
Auf den Windows slaves jedoch soll dies auch mit Hilfe eines batch files komplett automatisert geschehen. Nun wollte ich fragen, ob dies denn möglich ist und wenn ja, wie (zum Beispiel: Nutzen des getitcommand tools, welches jedoch laut Foren nicht supportet wird?).

[himitsu]

https://www.delphipraxis.net/205253-...errschaft.html
Bin aber leider noch nicht viel weiter gekommen.


Du kannst das Gewünschte auf auf einem PC via GetIt runterladen/installieren
und dann die nötigen Komponenten/Verzeichnisse kopieren.
%USERPROFILE%\Documents\Embarcadero\Studio\21.0\Ca talogRepository (C:\Users\%USERNAME%\...)
Dort findest je Komponente ein Verzeichnis, da drin noch ein Unterverzeichnis und dort dann oftmals die BAT/CMD/EXE des jeweiligen Installers.


Ansonsten:
Ich glaub ich hatte in der OpenToolsAPI (OTA) ein paar Interfaces für GetIt gesehen.

[PatrickB08]

Leider gibt es bei der LockBox keinen installer im entsprechendem Verzeichnis ("C:\Users\%USERNAME%\Documents\Embarcadero\Studio \20.0\CatalogRepository\LockBox-3.7"). Es gibt nur eine GetItInstaller.dat datei?

Anhang 52991

[himitsu]

Zitat:

Zitat von PatrickB08 (Beitrag 1472744)

GetItInstaller.dat

Wozu diese nutzlose Datei sein soll, hab ich auch noch nicht verstanden.
Dachte anfangs da stünde drin was gemacht werden muß .... aber neeeeee

Was zu machen ist, das steht in HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\21.0\CatalogRepository\Elements



%USERPROFILE%\Documents\Embarcadero\Studio\21.0\CatalogRepository\LockBox-3.7-Sydney\packages\Sydney\Delphi\*.dpr oder *.dproj

Du kannst alle .DPR mit DCC32 kompilieren
oder mit MSBuild, bzw. über BDS.exe die .DPROJ

Delphi-Quellcode:

bds -np -b C:\...\xxx.dproj 
bds -np -p Delphi -b C:\...\xxx.dproj  // im RAD Studio nicht sinnlos das C++ mit laden

Bei MSBuild und BDS würde auch PreBuild- und AfterBuild-Script mit ausgeführt.

Anschließend mußt du aber noch die Packages im Delphi registrieren, da über BDS.exe nur COMPILE oder BUILD angestoßen werden kann, aber nicht INSTALL.



Via OpenToolsAPI könnte man Projekte laden und das Compilieren+Installieren starten.

[himitsu]

Ach ja, wir haben inzwischen alles auf Komponenten umgestellt, wo wir auch den Quellcode bekommen.
Im Notfall selbst auf neues Delphi umstellbar (wenn der Hersteller nicht hinterherkommt oder tot ist) und auch selbst Bugfixe/Anpassungen einbauen können.

Dieses liegt im Git (zwei Repos für externe Komponenten und für das eigene Zeugs)
und wird vorwiegend im FinalBuilder kompiliert. (die eigenen Projekte auch im Delphi)
Der FB registriert ebenfalls die Packages im Delphi
HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\21.0\Kn own Packages
deregistriert vorher gleichnamige Packages (z.B. von einer lokalen Installation oder einer anderen Version)
und räumt die beim Arbeiten/Compilieren/Debuggen im Delphi deaktivierten Packages auf
HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\21.0\Di sabled Packages

Vorteil ist auch, dass man abwechselnd mit unterschiedlichen Versionen der Komponenten arbeiten kann.
z.B. alte Version für rückwärtige Bugfixe, oder schon die neue Version, bevor sie im Master an alle Verteilt wurde.

Wenn jeder Entwickler mit einer eigenen/anderen Version (über das GetIt) unsere Projekte kompilieren würde, dann gäbe es auch ein perfektes Chaos und würde bestimmt oft knallen, wenn Interfaces geändert wurden.

Aber ja, wenn man im GetIt eigene Packet-Quellen angeben könnte und man darüber seine "eigenen" Komponenten verteilen würde, dann wäre das bestimmt eine witzige Idee hierfür GetIt zu verwenden
und die Komponenten über die IDE zu verteilen, anstatt über ein externes Programm.

[TurboMagic]

Du kannst die Idee ja gerne als QP feature request anbringen.

[himitsu]

Zitat:

GetItCmd.exe

Im 10.4 Update 1 gab es irgendwelche Verbesserungen.
Kannst ja mal ausprobieren, ob das dir jetzt hilft.

Zitat:

Zitat von TurboMagic (Beitrag 1472819)

Du kannst die Idee ja gerne als QP feature request anbringen.

Dafür müssen die erstmal hinbekommen, dass man mehrere Komponenten auswählen und zusammen installieren kann,
sonst klickt man sich dumm und dusslig, während man sich dazwischen immer wieder zu tode langweilt.

[PatrickB08]

Zitat:

Zitat von himitsu (Beitrag 1472827)

Zitat:

GetItCmd.exe

Im 10.4 Update 1 gab es irgendwelche Verbesserungen.
Kannst ja mal ausprobieren, ob das dir jetzt hilft.

Leider finde ich dazu keine Dokumentation und nach eigenen Tests stürtzt das Programm immer ab.
Ich habe aber mal für die Installation für die LockBox ein Batch Skript geschrieben (Vorlage: https://www.delphipraxis.net/198824-...ml#post1472843).
Leider bekomme ich nun immer die Fehlermeldung, dass die designide fehlt (beim kompilieren von LockBox3FMXDD.dproj und LockBox3VCLDD.dproj). Diese gibt es auch nicht im entsprechenden lib order unter win64 nur für win32. Sollte dies eh nicht nur für win32 eine Rolle spielen?

Das Batch Skript:

Code:

CALL "C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\rsvars.bat"
ECHO %BDS%
ECHO %BDSCOMMONDIR%
SET BPLREG="HKEY_CURRENT_USER\Software\Embarcadero\BDS\20.0\Known Packages"
ECHO %BPLREG%
SET LIBREG="HKEY_CURRENT_USER\Software\Embarcadero\BDS\20.0\Library\Win64"
ECHO %LIBREG%
SET BPLPATH="%BDSCOMMONDIR%\Bpl"
ECHO %BPLPATH%
SET BDSCATALOGREPO=C:\Users\%USERNAME%\Documents\TMP\Delphi
ECHO ================================================================================

rem LockBox3
ECHO LockBox3
ECHO LockBox3DR

rem add search path for library
SET LIB_LOCKBOX=%BDSCATALOGREPO%\LockBox3\design\;%BDSCATALOGREPO%\LockBox3\run\ciphers\;%BDSCATALOGREPO%\LockBox3\run\cryptography\;%BDSCATALOGREPO%\LockBox3\run\hashes\;%BDSCATALOGREPO%\LockBox3\run\library surface\;%BDSCATALOGREPO%\LockBox3\run\RSA\;%BDSCATALOGREPO%\LockBox3\run\utilities
:: extract path from registry entry
FOR /F "tokens=3* skip=2" %%a in ('reg query %LIBREG% /v "Search Path"') do set  "DELPHI_LIB_SEARCH=%%b" 
ECHO New variable DELPHI_LIB_SEARCH = %DELPHI_LIB_SEARCH%
:: check if substring is already present in path -> if not: add it to path
echo %DELPHI_LIB_SEARCH%|find /i "%LIB_LOCKBOX%">nul  || set DELPHI_LIB_SEARCH=%DELPHI_LIB_SEARCH%;%LIB_LOCKBOX%
reg add %LIBREG% /v "Search Path" /t REG_SZ /d "%DELPHI_LIB_SEARCH%" /f

:: compile in order to get *.bpl
msbuild "%BDSCATALOGREPO%\LockBox3\packages\Rio\Delphi\LockBox3DR.dproj" /t:Build /p:Configuration=Release /p:platform=Win64
IF NOT %ERRORLEVEL%==0 GOTO ERROR
reg delete %BPLREG% /v "%BPLPATH%\LockBox3DR260.bpl" /f >NUL 2>&1
reg add   %BPLREG% /v "%BPLPATH%\LockBox3DR260.bpl" /t REG_SZ /d "Turbo LockBox3 Delphi package" >NUL

::ECHO LockBox3FMXDD
msbuild "%BDSCATALOGREPO%\LockBox3\packages\Rio\Delphi\LockBox3FMXDD.dproj" /t:Build /p:Configuration=Release /p:platform=Win64
IF NOT %ERRORLEVEL%==0 GOTO ERROR
reg delete %BPLREG% /v "%BPLPATH%\LockBox3FMXDD260.bpl" /f >NUL 2>&1
reg add   %BPLREG% /v "%BPLPATH%\LockBox3FMXDD260.bpl" /t REG_SZ /d "Turbo LockBox3 FMX designtime package" >NUL

ECHO LockBox3VCLDD
msbuild "%BDSCATALOGREPO%\LockBox3\packages\Rio\Delphi\LockBox3VCLDD.dproj" /t:Build /p:Configuration=Release /p:platform=Win64
IF NOT %ERRORLEVEL%==0 GOTO ERROR
reg delete %BPLREG% /v "%BPLPATH%\LockBox3VCLDD260.bpl" /f >NUL 2>&1
reg add   %BPLREG% /v "%BPLPATH%\LockBox3VCLDD260.bpl" /t REG_SZ /d "Turbo LockBox3 VCL designtime package" >NUL

GOTO DONE

:ERROR
ECHO ================================================================================
ECHO FEHLER aufgetreten! ERRORLEVEL = %ERRORLEVEL%
ECHO ================================================================================
GOTO END

:DONE
ECHO ================================================================================
ECHO Build erfolgreich!
ECHO ================================================================================
GOTO END

:END
SET BPLREG=
SET BPLPATH=
SET LIBREG=
SET BDSCatalogRepository=
SET LIB_PATH_LOCKBOX=
SET BDSCATALOGREPO=
SET LIB_LOCKBOX=
SET DELPHI_LIB_SEARCH=

[PatrickB08]

hat sich erledigt. Hatte die falsche platform fürs kompilieren -> einfach auf win32 und jetzt läufts.

[himitsu]

Jupp, die IDE gibt es nur als 32 Bit, also braucht man DesignTime-Packages ausschließlich als Win32 und deswegen gibt es diese gegeimen IDE-DCUs auch nur in Win32.