Kommandozeilen Programm innerhalb von Delphi

[lorus]

Ich möchte ein Kommandozeilen Programm, wie z.B. ping innerhalb von einem Delphi-Programm ausführen.
Das ganze soll so ähnlich wie cmd.exe sein.

Also man startet ein Kommando-Zeilen Programm und dieses gibt etwas Zeile für Zeile aus. (Beim Beispiel von ping: Antwort ..., Antwort ..., Antwort ...)
Das Programm aufrufen ist ja nicht das Problem, nur das, was passiert dann 'Live' wie im CMD anzuzeigen wird ist wohl das knifflige.

Eine Mmöglichkeit wäre ja, das was im cmd passiert ist, als log in eine Datei umzuleiten und diese dann auslesen und anzeigen lassen. Aber das ist nicht das, was ich möchte. Es soll ja schon innerhalb von meinem Programm 'live' durchrattern. Eventuell die erzeugte Textdatei in einem kurzen Intervall immer wieder neu einlesen?

Hat jemand noch eine andere und elegantere Idee parat? :)

Grüße,

Lorus

[chaosben]

Du könntest die Ausgabe in eine NamedPipe umleiten. Näheres dazu findest du in der MS-SDK Doku.

Und falls du dir die (etwas verzwickte) Arbeit mit dem Pipe-Server nicht machen willst, kannst du auch die Komponente von www.TheUnknownOnes.net nehmen.

[Robert Marquardt]

Eine named pipe hat damit nichts zu tun.
Die JCL http://jcl.sf.net bietet dazu etwas an.
Siehe JCL oder JVCL Installer die den Kommandozeilencompiler von Delphi auf diese Weise anzeigen.

Das Problem ist hier auch in mindestens einem Thread breitgetreten worden.

[lorus]

Ich hatte ja gehofft, das jemand schonmal soetwas ähnliches vorhatte und erfolgreich umgesetzt hat.

Meine Kenntnisse (über Delphi/Programmierung) sind im Moment einfach viel zu gering um das eigenstängig umzusetzen.

Hier und hier hatte jemand das selbe vor, konnte es aber wohl ebenfalls nicht umsetzen :)


Trotzdem Danke für die Antworten :)

Grüße,

Lorus

[SirThornberry]

hallo, ich hab hier mal ein Beispiel vor einiger Zeit gepostet:
http://www.delphipraxis.net/internal...=598121#598121

[lorus]

das ist glaub ich genau das was ich suche :)
werde es, wenn ich wieder daheim bin mal testen :)

Danke dir :)

[chaosben]

Zitat:

Zitat von Robert Marquardt

Eine named pipe hat damit nichts zu tun.

Und warum nicht?

[Robert Marquardt]

Es ist zwar eine Pipe aber keine named pipe sondern die klassische Unix Pipe ohne Namen.
Es koennte ja sonst nicht unter Win9x funktionieren wo es keine named pipes gibt.

[lorus]

Das ist genau das, was ich gesucht habe :)
Echt genial und tausend dank dir :)

Noch eine kleine Frage dazu:

Wenn ich

Delphi-Quellcode:

FWriteToStdIn('befehl' + #13#10);

aufrufe, dann führt er den befehl ja aus und wartet bis das programm fertig ist. Was gibt die Funktion zurück wenn das Programm fertig ist? Das frage ich weil ich eventuell einen Timeout einbauen will, wenn das gestartet programm zu lange brauch um fertig zu werden.


Grüße,

Lorus

[SirThornberry]

WriteToStdIn sollte eigentlich nicht warten sondern schreibt einfach in die Pipe was rein (kenn den Quelltext allerdings nicht auswendig und schließe anhand des Funktionsnamen darauf)