Korrektes Benutzen von RunShell()

[Highlander]

Hallo,

ich bin sehr neu in dem Gebiet Xbase und programmiere demnach mehr nach Gefühl und durch googlen *G*

Nun habe ich eine Aufgabe eine .exe automatisiert zu starten mit gewissen Parametern.
In meinem Code sieht es so aus:

Code: Alles auswählen

local cCmdParam
local lsuccess := .f.

cCmdParam := '--mode unattended '
cCmdParam += '--installdir "C:\j_services\Daten" '
cCmdParam += '--unattendedmodeui minimalWithDialogs '
cCmdParam += '--install_or_update update'

lsuccess:= (0 = RunShell(cCmdParam, "C:\j_services\Daten\installer.exe", .f., .f.))
if lsuccess == 0
    Prot("Update erfolgreich installiert.")
else
    Prot("Update fehlgeschlagen!")
endif

Im ersten Schritt habe ich die Pfade hardcoded eingetragen, bevor ich noch an den Pranger gestellt werde *G*.

Das Problem:
Das Programm (Dienst) stürzt entweder ab mit der Meldung

Code: Alles auswählen

description  : Parameter hat falschen Typ
operation    : <0>==<0>
args         : N: 0
               N: 0

oder das Programm (Dienst) bleibt stecken und reagiert nicht mehr, je nachdem wie ich gerade die Parameter übergebe.

Ich bin recht Ratlos und hoffe das man mir helfen kann. Eventuell sogar mit genauer Erklärung wieso es nicht funktioniert wie ich es implementiert habe.



Grüße
Highlander

[RolandG]

um Fehlern auf die Spur zu kommen sollte man nur einen Vorgang je Zeile verwenden.
Dann sieht man eher an welcher Stelle das Programm abstürzt.

In Deinem Code hast Du bereits in lSuccess eine logische Variable die Du dann mir 0 vergleichst - das ist falsch.

vielleicht so:

Code: Alles auswählen

local nError   // hinzu

nError := RunShell(cCmdParam, "C:\j_services\Daten\installer.exe", .f., .f.)   // ändern

lSuccess := nError == 0   // ändern

if lsuccess   // ändern
...

(Und nicht gleich als Dienst laufen lassen, erst schauen ob es auch wirklich läuft.)

[Highlander]

Als erstes möchte ich mich bedanken für deine Tipps. Habe es auch so umgesetzt.
Hab selber noch "rumgespielt" und nun funktioniert es auch.
Hier der Code damit eventuell andere sich später mit einer ähnlichen Thematik daran ergötzen können:

Code: Alles auswählen

cCmdParam := '--mode unattended '
cCmdParam += '--installdir C:\j_services\Daten '
cCmdParam += '--unattendedmodeui minimalWithDialogs '
cCmdParam += '--install_or_update update_existing'

Prot("Starte Installer mit Parametern: " + cCmdParam + " Pfad: " + 'C:\java_services\Daten\installer.exe')

nError := RunShell(cCmdParam, "C:\j_services\Daten\installer.exe", .f., .f.)
lSuccess := nError == 0
if lsuccess
    Prot("Update erfolgreich installiert.")
else
    Prot("Update fehlgeschlagen!")
endif

Werde natürlich nun im nächsten Schritt die Pfade dynamisch auslesen.

[Tom]

Du kannst Dir das "Umbuchen" des Funktionsergebnisses (nError) in die lSuccess-Variable eigentlich sparen. Außerdem könntest Du im Fehlerfall noch angeben, welcher OS-Fehler aufgetreten ist:

Code: Alles auswählen

nError := RunShell(cCmdParam, "C:\j_services\Daten\installer.exe", .f., .f.)
if nError == 0
    Prot("Update erfolgreich installiert.")
else
    Prot("Update fehlgeschlagen ("+DosErrorMessage(nError)+")!")
endif

[Armin]

Hallo Highlander,

das sollen doch 4 Parameter sein - oder?

cCmdParam := '--mode unattended '
cCmdParam += '--installdir "C:\j_services\Daten" '
cCmdParam += '--unattendedmodeui minimalWithDialogs '
cCmdParam += '--install_or_update update'

das könnte problematisch mit den Leerzeichen werden - weil die Leerzeichen die Parameter trennen...
Bin mir jetzt nicht 100% sicher, aber wenn das 4 Parameter sein sollen, dann besser jeden in Hochkomma setzen - oder ein "=" statt " "
cCmdParam := '"--mode unattended" '
cCmdParam += '"--installdir C:\j_services\Daten" '
cCmdParam += '"--unattendedmodeui minimalWithDialogs" '
cCmdParam += '"--install_or_update update" '

Grüße
Armin

[Tom]

Faktisch sind es acht Parameter, aber der Präfix -- verrät dem Empfänger der Parameter, dass der nächste Parameter der zweite Parameter zum vorigen Parameter ist. Passt schon.

[brandelh]

kreuzigt mich, falls ich mich irre, aber ich meine dass man = bei numerischen, logischen und Datumswerten nutzen soll.
Der binäre Vergleich ob beide identisch sind (==) macht nur bei Strings sinn, da dort die Länge bei = eine Rolle spielt.

Handbuch:
==
Exactly equal operator (binary): tests whether two values are identical.

[Tom]

Ja, so nutze ich == auch, nur bei Strings. Es schadet m.E. aber bei allen anderen nicht.