Wie funktioniert DosCommand?

[Delphi Star]

Wie funktioniert die Komponente DosCommand (Torry.net)?
Hat vielleicht jemand ein Beispielprogramm oder kennt eine ähnliche Komponente, mit der man Informationen zwischen der Eingabeaufforderung und dem eigenen Programm austauschen kann?

[PRehders]

Hallo Delphi Star,

hast du dir den Quelltext aus dem ZIP mal angesehen? Dort ist der Gebrauch eigentlich sehr gut dokumentiert :wink:

Gruß

Peter

[MasterC]

Hi Delphi Star,

Dekleration:

Delphi-Quellcode:

procedure cmdNewLine(Sender: TObject; NewLine: string; OutputType: TOutputType);
procedure cmdTerminated(Sender: TObject; ExitCode: Cardinal);

var
  cmd: TDoscommand;

Bei OnCreate deines Forms:

Delphi-Quellcode:

cmd := TDoscommand.Create(self);
cmd.OnNewLine := cmdNewLine;
cmd.OnTerminated := cmdTerminated;

Anwendung von TDoscommand:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  cmd.CommandLine := 'c:\run.bat';
  cmd.Execute;
end;

procedure TForm1.cmdTerminated(Sender: TObject; ExitCode: Cardinal);
begin
  cmd.Stop;
end;

procedure TForm1.cmdNewLine(Sender: TObject; NewLine: string; OutputType: TOutputType);
begin
//Irgendwas mit NewLine machen.
end;

MFG Chris.

[taktaky]

Ich bekomme diese Meldung :
run.bat does not exist

was fehlt noch in dem Code ?

Oder da hier was fehlt ?

Delphi-Quellcode:

procedure TForm1.cmdNewLine(Sender: TObject; NewLine: string; OutputType: TOutputType);
begin
//Irgendwas mit NewLine machen.
end;

[Phoenix]

Was haben wir Dir zum Code kopieren gesagt?

Versuche zu verstehen was der Code macht, und Dir wird das Problem sofort wie Schuppen von den Augen fallen.

[DeddyH]

Und wieder einmal hat er es geschafft, gleich 3 Threads, die sich irgendwie mit seinem "Problem" beschäftigen, zu pushen.

[taktaky]

Zitat:

Zitat von DeddyH

gleich 3 Threads, die sich irgendwie mit seinem "Problem" beschäftigen, zu pushen.

Die sind nicht meine Threads :mrgreen:

[Hador]

Egal, ob es deine sind oder nicht. Es reicht doch, wenn du einmal die Frage stellst.

[Phoenix]

Zitat:

Zitat von taktaky

Die sind nicht meine Threads :mrgreen:

Was es noch schlimmer macht. Wir haben Dir eindeutig gesagt dass das Entführen fremder Threads nicht erwünscht ist. :warn:

[schöni]

Und in cmdNewLine könnte ein zweiter Prozess sein Ausgaben in eine Stringliste schreiben. Aber wie geht es danach mit der Auswertung eventueller Ausgaben weiter?

Wird cmdNewLine nach jedem CRLF neu ausgelöst oder wird die gesamte Ausgabe übergeben?

[Klaus01]

Zitat:

Zitat von schöni

Und in cmdNewLine könnte ein zweiter Prozess sein Ausgaben in eine Stringliste schreiben. Aber wie geht es danach mit der Auswertung eventueller Ausgaben weiter?

Wird cmdNewLine nach jedem CRLF neu ausgelöst oder wird die gesamte Ausgabe übergeben?

Im Ereignis onNewLine kann kannst Du den String in einen
Buffer, der von anderen Klassen nutzbar ist, schreiben und dort auswerten.
Oder direkt im Erignis auswerten.

Wie der Name des Ereignises onNewLine vermuten läßt wird es bei jeden
Carriage Return LineFeed ausgelöst.

Grüße
Klaus

[herik]

Hallo Gemeinde,



Ich beschäftige mich aktuell auch gerade mit DosCommand. Super finde ich die Möglichkeit live die Ausgaben der Console zu erhalten.

Meine Frage ist ob DosCommand auch mit einem anderem Comandozeilenprogramm genutzt werden kann.
Speziell geht es mir hier um die Datei TNCCMD.exe von Haidenhain.

In den Beispielen die ich bisher gefunden habe wird ja immer cmd von Windows genutzt.

Mein Versuch sieht bisher so aus:

Aufruf meiner Batchdatei:

Delphi-Quellcode:

  CMD.OutputLines := Memo1.Lines;
  cmd.CommandLine := 'run.bat';
  cmd.Execute;

meine Batchdatei:

Code:

TNCCMD.exe Connect I- 192.168.2.81
pause

und noch das was im Memo1 ausgegeben wird:
https://www.delphipraxis.net/attachm...1&d=1574676990


Nun ist halt die Frage ob ich die TNCCMD.exe anders angeben muss, bzw ob es überhaupt so funktioniert.
Seltsam kommt mir auch die doppelte Ausgabe der Zeilen vor.

Ich hoffe ich habe ausreichend Infos gegeben das Ihr mir Helfen könnt.

mfg Herik

[herik]

Kann mir keiner helfen?

[Uwe Raabe]

Anstatt einen fast 10 Jahre alten Thread wiederzubeleben, wäre es vielleicht besser einen neuen aufzumachen. Ich persönlich neige eher dazu, solche Zombies zu ignorieren. Abgesehen davon, könnte man den Titel auch besser an dein aktuelles Problem anpassen.

[herik]

Ok. Danke. Werde ich machen. :)