Cmd in eine Delphi-Applikation integrieren?

[DelphiCreak]

Guten Abend liebe DP,
ich bin im Moment auf der Suche nach einer simplen Möglichkeit, die Ausgabe von cmd.exe basierten Anwendungen auszulesen und z.b. in einem Memo auf meiner eigenen Applikation auszugeben.
Ist dies überhaupt möglich, und wenn ja, wie?

Edit: Dank Delphi-Treff habe ich jetzt den Code, um die Ausgabe der cmd.exe abzufangen.
Das Problem jetzt: wie bekomme ich die Ausgabe einer .exe, die im Konsolenfenster startet, in die normale cmd um diese dann auszulesen?

Vielen Dank im Vorraus

[Namenloser]

Es gibt einige Lösungen dazu im Netz, die meist aber erst das Ergebnis zurückliefern, wenn die Anwendung beendet wurde.
Wenn dir das nicht reicht, kannst du meine Klasse aus der Unit im Anhang benutzen. Sie stellt Events bereit, die aufgerufen werden, wenn neue Daten ankommen.

Beispiel:

Delphi-Quellcode:

type 
  TMyForm = class(TForm)
    ...
  protected
    FRedirector: TConsoleRedirector;
    procedure MyEventHandler(Sender: TObject; const Data: string);
  end;

procedure TMyForm.MyEventHandler(Sender: TObject; const Data: string);
begin
  Memo1.Text := Memo1.Text+Data;
end;

procedure TMyForm.FormCreate(...);
begin
  FRedirector:= TConsoleRedirector.Create; 
  FRedirector.OnReadOutput := MyEventHandler;
end;

procedure TMyForm.MyButtonClick(...);
begin
  FRedirector.Start('cmd /K ping google.com');
end;

[DelphiCreak]

Vielen Dank NamenLozer für diese Klasse, ist nochmal geordneter als der Quelltext den ich auf Delphi-Treff gefunden habe. Löst allerdings mein Problem noch nicht ganz.
Ich kann damit zwar ausgaben von anwendungen abfangen, die z.b. auf batch-skripten basieren. Was mir vorliegt ist jedoch eine Kompilierte .exe (Ich weiß leider nicht genau, was für eine Anwendung dies ist), die ihre Ausgaben in einem Konsolenfenster schreibt. Ich möchte diese Auslesen, und dafür müsste ich diese .exe eigentlich direkt in der cmd starten, ohne ein neues Fenster zu starten etc. Was ich im moment suche ist ebendieser Befehl.

Edit: mit TDosCommand komm ich zwar an die entsprechende Ausgabe, jedoch erst nach beenden des Programms - für mich ist es jedoch wichtig, die Ausgabe auch während der Laufzeit mitzuloggen
Edit2: Mit deiner Lösung kann ich das entsprechende Programm zumindest starten, die Ausgaben werden jedoch nicht korrekt mitgeloggt. Vielleicht liegt das daran, dass mein Programm keine aktive Zeile hat, in der der Benutzer Eingaben tätigen kann, sondern ein reines Ausgabeprogramm ist.

[blackfin]

Wenn das externe Programm nur etwas ausgibt, kannst du dieses doch auch so starten, dass es die Ausgabe nicht auf die Konsole ausgibt, sondern z.B. in eine Textdatei, die du dann mit deinem Programm (zyklisch) auswerten kannst:

bla.exe > log.txt

[Namenloser]

Zitat:

Zitat von DelphiCreak (Beitrag 1039640)

Edit2: Mit deiner Lösung kann ich das entsprechende Programm zumindest starten, die Ausgaben werden jedoch nicht korrekt mitgeloggt. Vielleicht liegt das daran, dass mein Programm keine aktive Zeile hat, in der der Benutzer Eingaben tätigen kann, sondern ein reines Ausgabeprogramm ist.

Ich bin mir zwar nicht sicher, was du damit meinst, aber es soltle eigentlich egal sein, ob das Programm Eingaben entgegennimmt oder nicht.

Wie startest du das Programm denn? Startest du es über

Delphi-Quellcode:

Start('programm.exe')

oder über

Delphi-Quellcode:

Start('cmd /K programm.exe')

? Falls du es nicht schon so machst, versuch es mal mit der 2. Variante, ich meine, ich hätte schon mal damit Erfolg gehabt, als es direkt nicht funktionieren wollte.

Falls das auch nicht klappt, nutzt das Programm wahrscheinlich keine der Standard-Ausgabefunktionen.

[RWarnecke]

Oder man macht es so wie hier.

[Namenloser]

Zitat:

Zitat von RWarnecke (Beitrag 1039663)

Oder man macht es so wie hier.

Es ist nicht zu empfehlen, den Umweg über eine temporäre Datei zu gehen. Das erzeugt nur unnötige Festplattenabnutzung und 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.

[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]

[DelphiCreak]

@NamenLozer: Auch der Parameter /K erbringt nicht den gewünschten Erfolg. Der entsprechende Task wird zwar dann im Task-Manager angezeigt, doch die mein Ausgabefeld bleibt immer noch leer. 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?

@blackfin: Und wie leite ich dies um? Ich habe keinen Quelltext, nur eine fertig kompilierte .exe. Wie kann ich die Ausgabe von dieser in eine Datei umleiten?

[Namenloser]

Zitat:

Zitat von DelphiCreak (Beitrag 1039848)

@blackfin: Und wie leite ich dies um? Ich habe keinen Quelltext, nur eine fertig kompilierte .exe. Wie kann ich die Ausgabe von dieser in eine Datei umleiten?

Du rufst die exe von der cmd aus auf und hängt ein

Delphi-Quellcode:

> datei.txt

an.

Code:

programm.exe > datei.txt

[DelphiCreak]

Danke NamenLozer, probier ich gleich mal aus und melde dann obs funktioniert

[edit]
Er legt eine datei.txt an, in dieser stehen jedoch keinerlei Ausgaben.
Die Ausgaben erscheinen wieder erst, wenn meine programm.exe geschlossen wird. Während der Laufzeit bleibt das ganze unsichtbar.
Und über Delphi wird die Datei anscheinen nichteinmal angelegt, mit keinem meiner momentanen 3 Versuche :D
[/edit]