Delphi GetIt Package Manager Command Line

[PatrickB08]

Zitat von himitsu:

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.

[himitsu]

Hat das inzwischen jemand zum Laufen gebracht?

Vor Aufruf der getitcmd.exe soll man einmal die rsvars.bat aufrufen, um die Umgebungsvariablen von der IDE zu setzen.
Auflisten der Packages funktioniert. (so halbwegs)
Nur das mit dem Installieren, also der Hauptfunktion, ... naja.

Code:

cd /d "C:\Program Files (x86)\Embarcadero\Studio\21.0\bin"
rsvars
getitcmd --list= --filter=installed
getitcmd --list= --filter=all
getitcmd --install=Navigator-1.6.1 --accepteulas --installdeferred --verb=minimal --donotsetenvfile

Nach getitcmd --list= --filter=all stürzt GetIt ab, nachdem es fertig ist.

Code:

...
Command finished with success!
Runtime error 217 at 00409825

Bei getitcmd --install=Navigator-1.6.1 --accepteulas --installdeferred --verb=minimal --donotsetenvfile heißt es

Code:

ERROR: Too many arguments.

[edit] OK, Installdeferred, darf nicht mit Anderem zusammen. [/edit]

Das sind übrigens auch so in etwa die Parameter, welche die GetIt-Dependencies in den Projektoptionen benutzen, was auch nicht benutzbar ist.

Code:

[Warning Warnung] Checking GetIt package dependencies
[MSBuild Fehler] Unerwarteter Fehler bei der GetItCmd-Aufgabe.
System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
   bei Borland.Build.Tasks.Common.CommandLineTask.Execute()
   bei Borland.Build.Tasks.Shared.GetItCmd.Execute()
   bei Microsoft.Build.BuildEngine.TaskEngine.ExecuteInstantiatedTask(EngineProxy engineProxy, ItemBucket bucket, TaskExecutionMode howToExecuteTask, ITask task, Boolean& taskResult)

aus CodeGear.Common.Targets (wer zu den GetIt-Dependencies etwas sucht und dort findet, dass man BDSHost=true in die Umgebungsvariablen schreiben soll ... hier sieht man das Gegenstück dazu)

Code:

  <!-- Since there's an IDE limitation about handling more than one compilation,
  GetItCmd should be called only when compiling from command line -->
  <Target Name="_CheckGetItPackageDependencies" DependsOnTargets="_CheckBDSHostObject"
    Condition="('$(GetItPackages)'!='') And '$(BDSHost)'!='true'">
    <CallTarget Targets="_ExecGetItCmd"/>
  </Target>

  <Target Name="_ExecGetItCmd">
    <Warning Text="Checking GetIt package dependencies"/>
    <GetItCmd
        ProjectFileName="$(MSBuildProjectFullPath)"
        Accept_eulas="true"
        InstallPackages="$(GetItPackages)"
        DoNotSetEnvFile="true"
        Verbosity="Normal"
    />
  </Target>

Und bei getitcmd --install=Navigator-1.6.1 --accepteulas will GetIt erstmal alles/einiges deinstallieren. (da hab ich den UAC-Dialog abgebrochen, bevor was kaputt geht)
Als Erstes gleich mal die Delphi-IDE selbst. (scheint das zu sein, was man sich mühevoll über den GetItInstaller runtergeholt hatte)

Code:

Uninstalling: Uninstalling Library "Delphi Common Files Enterprise German"...

Anfangen wollte ich erstmal mit.
10.4Patch1-10
10.4Patch2de-10
10.4Patch3-10
ParnassusCoreEditor-1.6.1 ?
Navigator-1.6.1
Bookmarks-1.6.1
Icons8-1.0
(Komponenten für's Programm werden wohl nie über GetIt verwendet, so lange man dort keine eigenen/alternativen Paketquellen angeben kann und somit auf's Gutdünken Embas angewiesen ist, außerdem haben wir die Fremdkomponenten größtenteils als Quellcode in einem eigenen Git-Repository ... den Teil aber über eine eigene Paketquelle wäre schon interessant, anstatt es manuell im FinalBuilder zu machen)


Man findet ja nicht viel zum Thema, aber da hat/hatte man auch das selbe Problem, wo Packages deinstalliert werden.
https://qiita.com/ht_deko/items/2e7184431888c6c0612f

[Benmik]

Zitat von himitsu:

Code:

cd /d "C:\Program Files (x86)\Embarcadero\Studio\21.0\bin"
rsvars
getitcmd --list= --filter=installed
getitcmd --list= --filter=all
getitcmd --install=Bookmarks-1.6.2 --accepteulas --verb=minimal --donotsetenvfile

Funktioniert! Allerdings fehlt da vorher noch getitcmd -c=useonline , sonst kommt "RADSTUDIO.JSON metadata not found".

[BastiFantasti]

Ich bringe das Thema nach sehr langer Zeit mal wieder nach oben

Gibt es eine Möglichkeit die Pakete darüber zu installieren ohne die absolute Version anzugeben?
Hintergrund ist, ich möchte auf meinem bestehenden System die Paketliste exportieren, dann Delphi updaten und die Packages wieder installieren.
Allerdings ändert sich natürlich auch die Paketversion mit neueren Delphiversionen...

Praktisch wäre, wenn man die Pakete wie mit pip installiren könnte und getit die jeweils aktuelle und zur Delphiversion passende auswählen würde.

z.b.

Code:

getitcmd --install=Bookmarks --accepteulas --verb=minimal --donotsetenvfile

anstatt

Code:

getitcmd --install=Bookmarks-1.6.2 --accepteulas --verb=minimal --donotsetenvfile

Viele Grüße
Bastian

[BastiFantasti]

hab es mal mit der "EdgeBrowserDemo" versucht

das scheint leider nicht zu klappen...

Code:

getitcmd --install=EdgeBrowserDemo