DosProgramm zur Echtzeit auf Memo oder sonst. umleiten

[aramintaros]

Zitat von jaenicke:

Und eine Alternative, bei der du die Ausgabe bereits während das Konsolenprogramm noch läuft bekommst, wäre TDosCommand.

jaenicke, kannst du mir das genauer erklären? Werde um diese Uhrzeit nochmal richtig wach bei diesem Thema.

[RWarnecke]

Zitat von aramintaros:

Wie genau wird diese Fuction über einen Buttonklich aufgerufen? bitte vertändlich, am besten mit dem Programm von "mediainfo.exe", vermutlich mache ich da nen Fehler, Sie läßt sich schon ohne Probs compilieren

So wie Sebastian es schon gesagt hat, Du erstellst zwei Stringlisten. Denn Wert für die Variable command setzt Du vorher in einer lokalen Variable zusammen. Dabei benutzt Du diese Funktion um die Systemvariablen aufzulösen. Damit sollte es dann klappen.

[jaenicke]

Zitat von aramintaros:

jaenicke, kannst du mir das genauer erklären? Werde um diese Uhrzeit nochmal richtig wach bei diesem Thema.

Ich meine das:
http://maxxdelphisite.free.fr/doscmd.htm
Da bekommst du jede Zeile direkt, wenn das Konsolenprogramm sie ausgibt.

Mit der oben geposteten Lösung bekommst du sie ja erst, wenn das Konsolenprogramm beendet ist.

[aramintaros]

Ist denn das kompatible mit delphi 2009?

[jaenicke]

Mit leichten Änderungen wegen Unicode ja. Im Anhang einmal eine entsprechend angepasste Version.

[aramintaros]

Hey hallo, diese Unit muss ja ertsmal eingebunden sein, bevor sie funzt, hier stoße ich an meine Grenzen, ich habe noch nie eine fremde Unit in meinen Progs benötigt, ist das kompliziert??

[aramintaros]

Habe im Eifer des Gefechtes nicht bemerkt, daß es auf ner anderen Seite weitergeht, sorry

[RWarnecke]

Die Unit über's Projekt hinzufügen und in der FormUnit in die Uses-Klausel einfügen. Dann kannste die Funktionen der eingebunden Unit verwenden.

[jaenicke]

Du öffnest das Package (.dpk) und klickst dann in der Projejtverwaltung mit rechts drauf und dann auf installieren. Dann ist die Komponente installiert. Jetzt kannst du die aufs Formular legen. Und dann mach einfach mal nen Memo und zwei Buttons dazu:

Delphi-Quellcode:

procedure TFormX.Button1Click(Sender: TObject);
begin
  DosCommand1.OutputLines := Memo1.Lines;
  DosCommand1.CommandLine := 'cmd';
  DosCommand1.Execute;
end;

procedure TFormX.Button2Click(Sender: TObject);
begin
  DosCommand1.SendLine('dir', True);
end;

Wenn du auf den ersten Knopf drückst, wird die Kommandozeile gestartet und du siehst direkt die Ausgabe im Memo. Und wenn du auf den zweiten Knopf drückst, wird an diese Kommandozeile der Befehl dir gesendet. Und auch dessen Ausgabe siehst du direkt.

[aramintaros]

Werde es sofort versuchen