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)

[lorus]

habs ausprobiert

Delphi-Quellcode:

procedure TForm1.BtnWriteCmdClick(Sender: TObject);
begin
  FWriteToStdIn('ping google.de' + #13#10);
  FWriteToStdIn('ping google.de' + #13#10);
end;

Ergebnis:

google wird gepingt .. 4 antworten und anschließend wird google nochmal gepingt ..


edit: Es ist gleich noch eine Frage aufgekommen :)
Die Sonderzeichen die übergeleitet werden, werden in der Memobox nicht so wie im cmd
dargestellt. Wie könnte man es erreichen, das das Memo den selben Zeichensatz verwendet, wie
das cmd? :)

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "Windows API / MS.NET Framework API" verschoben.

[lorus]

Huhu zusammen,

ich konkretisiere meine Fragen nochmal:

1) Wie ist der Zeichensatz von der DOS-Eingabeaufforderung?
2) Wie bringe ich den Zeichensatz am besten einem Memo bei?

:)

Grüße,

Lorus

[Robert Marquardt]

Dazu gibt es die Win32 Funktionen OemToChar, OemToChar, CharToOem und CharToOemBuff. Sie konvertieren C Strings zwischen den beiden Zeichensaetzen.

[lorus]

Huhu,

erstmal danke für die Antwort :)

Hab jetzt folgendes probiert:

Delphi-Quellcode:

procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: String;
  OutputType: TOutputType);
begin
  DosCommand1.OutputLines := OemToChar(Memo1.Lines);
end;

bekomme nun aber Fehler das PAnsiChar und TString inkompatible Typen sind :-/
muss also jeder buchstabe einzeln umgewandelt werden? wie stelle ich das am besten an? :-)

P.S. ich verwende jetzt die TDosCommand-Komponente

[lorus]

Huhu zusammen,

hab mir noch mal den Code von SirThornberry hergenommen, der gefällt mir im Prinzip auch besser als die TDosCommand-Kompo.

Hab im Forum jetzt noch folgende Funktionen für Ascii --> Ansi Konvertierung gefunden und umgedreht.

Delphi-Quellcode:

function Ascii2Ansi(const s:AnsiString):AnsiString; 
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      OemToChar(Pchar(Result), Pchar(Result));
   end;
end;

function Ansi2Ascii(const s:AnsiString):AnsiString;
begin
   Result := s;
   if Result <> '' then
   begin
      UniqueString(Result);
      CharToOem(Pchar(Result), Pchar(Result));
   end;
end;

und hab das dann so in den Code eingebaut:

Delphi-Quellcode:

procedure TForm1.FClbProc(Sender: TObject; const ABuffer: String; ABufSize: Cardinal);
var LNew: String;
    LPos: Integer;
begin
  LNew := copy(ABuffer, 1, ABufSize);
  LPos := pos(#$C, LNew);
  if (LPos > 0) then
  begin
    MemoOutput.Text := '';
    LNew := copy(LNew, LPos + 1, Length(LNew));
  end;
  MemoOutput.Text := Ansi2Ascii(MemoOutput.Text + LNew);
  PostMessage(MemoOutput.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;

Die Veränderung in der Zeile:

Delphi-Quellcode:

MemoOutput.Text := Ansi2Ascii(MemoOutput.Text + LNew);

bringt aber leider nicht den gewünschten Erfolg :-/

Habt ihr eine Idee, wie ich es richtig hinbekommen könnte? :)

Grüße,

Lorus