Cmd in eine Delphi-Applikation integrieren?

[DeddyH]

Ich möchte mal diesen Thread in den Raum werfen: http://www.delphipraxis.net/134827-d...-umleiten.html

[RWarnecke]

Zitat:

Zitat von NamenLozer (Beitrag 1039672)

Es ist nicht zu empfehlen, den Umweg über eine temporäre Datei zu gehen. Das erzeugt nur unnötige Festplattenabnutzung...

:shock: Das mit der Festplattenabnutzung ist jetzt aber nicht Dein Ernst. :wink:

Zitat:

Zitat von NamenLozer (Beitrag 1039672)

... bremst zudem die Ausgabe aus, da die Festplatte erheblich langsamer ist als der Arbeitsspeicher. Außerdem bekommt man den Inhalt so erst, wenn der Prozess beendet ist.

Nur er hat ja nicht so richtig beschrieben, ob er nur das Ergebnis haben möchte oder den Ablauf 1:1 wie es in der Eingabeaufforderung auftaucht.

Zitat:

Zitat von NamenLozer (Beitrag 1039672)

[edit]
Und wenn du meinen Code mal mit dem von dir verlinkten vergleichst, wirst du feststellen, dass beide fast identisch sind, nur dass ich mir den Umweg über die Datei spare und stattdessen direkt in eine Pipe umleite, die ich dann auslese.
[/edit]

Das mag ja sein, ich wollte halt auch nur eine andere Variante aufzeigen wie es geht.

[DelphiCreak]

Ich habe gerade in einem anderem Forum gefunden, dass erst eine gewisse Buffergröße erreicht werden muss, bevor die Ausgabe auf der Festplatte geschieht. Weiß jemand von euch einen weg, das zu umgehen? Oder erstmal ob da mein Problem liegt? :D

Danke für die bisherige Hilfe schonmal

[Namenloser]

Zitat:

Zitat von DelphiCreak (Beitrag 1039848)

Gibt es eine Möglichkeit bei deiner Unit, die Konsole sichtbar zu starten? Um zu überprüfen was denn in dieser steht?
Und ich bekomme bei deinem Script die Meldung, dass FRedirector keine entsprechende Komponente besitzt und ob die Deklaration entfernt werden solle. Lässt sich dieser Fehler vermeiden?

Sorry, den Post habe ich irgendwie überlesen.

Zu 1.: Sollte möglich sein, wenn du in der Methode

Delphi-Quellcode:

TConsoleRedirector.StartProcess

in der Zeile

Delphi-Quellcode:

StartupInfo.wShowWindow := SW_HIDE;

Delphi-Quellcode:

SW_HIDE

durch

Delphi-Quellcode:

SW_SHOW

ersetzt.

Zu 2.: Ich vermute, du hast FRedirector in der Klassendefinition in dem gleichen Abschnitt deklariert, wo die ganzen Komponenten aufgelistet sind? Verschieb sie mal in den

Delphi-Quellcode:

private

- oder

Delphi-Quellcode:

public

-Abschnitt.

[DelphiCreak]

Vielen Dank, die beiden kleineren Probleme sind gelöst :D
Auch deine Funktion liefert die Ausgabe ins Memo-Feld erst, wenn das Programm beendet wird. (Konnte ich vorher nicht, da das Programm an einer bestimmten Stelle auf etwas wartet.)
Irre ich mich, oder gibt es bei deiner Version keine Möglichkeit, die Ausführung der cmd so zu beenden wie über das normale "Schließen"? Alles was ich finden kann sind Terminate und Destroy, welche beide die Ausgabe am Ende nicht erreichen.

[Namenloser]

Sollte eigentlich mit Terminate gehen. Kann ich nachher mal testen...

[DelphiCreak]

Ich habe jetzt im Moment 3 Möglichkeiten:
Mit der Komponente DosCommand (die 2009er-Version aus dem Thread, der oben von DeddyH verlinkt wurde)
Mit der Unit unConsoleRedirector von Namenlozer
und
die Funktion GetConsoleOutput.
Alle 3 liefern mir die Ausgabe erst, wenn das Programm beendet wurde, und auch nur, wenn ich das Fenster sichtbar starte und dann über "Schließen" die Konsole wieder schließe.
Mit dem DosCommand-Befehl "Stop" wird zwar das Programm beendet, die Ausgabe jedoch nicht übergeben.

Bei anderen cmd-Programmen wir "ping www.google.de" funktionieren alle 3 Möglichkeiten tadellos, nur bei meinem Programm anscheinend nicht. Fällt irgendjemandem etwas ein, woran das liegen könnte?
Mein Programm kompiliert ein in Phyton geschriebenes Programm und startet dieses dann. Alles bleibt jedoch im Fenster der cmd. Beim normalen Starten sieht man die Ausgabe, und wie gesagt, bei normalem Beenden des Programms kommt die Ausgabe nicht über. Nur nicht zur Laufzeit -.-"
um auf RWarnecke zurückzukommen: Es wäre schön, wenn jede Zeile direkt zur Laufzeit überkommen würde. Eben wenn sie auch im cmd-Fenster erscheint.