Consolenausgaben LIVE abfangen

[nahpets]

Hallo,

probiere es bitte mal mit dem anhängenden Testprojekt.

In des Unit sbPipes ist eine Komponenten, die eigentlich die von Dir gewünschte Aufgabe erledigen sollte.

Für die Ausgabe kannst Du ihr ein TMemo zuweisen, dann übernimmt die Komponente die Ausgabe, eine Stringliste, auch dann übernimmt die Komponente die Ausgabe in die Stringliste oder Du nutzt das Ereignis OnOutput, dann musst Du selbst für die Ausgabe sorgen.

Im Ereignis OnNotify kannst Du Meldungen der Komponente ausgeben, den Exitcode Deines aufzurufenden Programmes und die Anzahl der gelesenen Bytes in der Ausgabe.

Hab's Beispielprogramm gerade mal getestet, unter Windows XP mit Delphi 7 läuft es.

[hathor]

CaptureConsoleOutput

Delphi-Quellcode:

procedure CaptureConsoleOutput(const ACommand, AParameters: String; AMemo: TMemo);
const CReadBuffer = 2400;
var
   saSecurity: TSecurityAttributes;
   hRead: THandle;
   hWrite: THandle;
   suiStartup: TStartupInfo;
   piProcess: TProcessInformation;
   pBuffer: array[0..CReadBuffer] of ANSIChar;
   dRead: DWord;
   dRunning: DWord;
begin
   saSecurity.nLength := SizeOf(TSecurityAttributes);
   saSecurity.bInheritHandle := True;
   saSecurity.lpSecurityDescriptor := nil;

   if CreatePipe(hRead, hWrite, @saSecurity, 0) then
   begin
     FillChar(suiStartup, SizeOf(TStartupInfo), #0);
     suiStartup.cb := SizeOf(TStartupInfo);
     suiStartup.hStdInput := hRead;
     suiStartup.hStdOutput := hWrite;
     suiStartup.hStdError := hWrite;
     suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
     suiStartup.wShowWindow := SW_HIDE;

     if CreateProcess(nil, PChar(ACommand + ' ' + AParameters), @saSecurity,
       @saSecurity, True, NORMAL_PRIORITY_CLASS, nil, nil, suiStartup, piProcess)
       then
     begin
       repeat
         dRunning  := WaitForSingleObject(piProcess.hProcess, 100);
         Application.ProcessMessages();
         repeat
           dRead := 0;
           ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil);
           pBuffer[dRead] := #0;
           OemToAnsi(pBuffer, pBuffer);
           AMemo.Lines.Add(String(pBuffer));
         until (dRead < CReadBuffer);
       until (dRunning <> WAIT_TIMEOUT);
       CloseHandle(piProcess.hProcess);
       CloseHandle(piProcess.hThread);
     end;
     CloseHandle(hRead);
     CloseHandle(hWrite);
   end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
CaptureConsoleOutput('cmd.exe', '/c dir c: /s', Memo1);
end;

[DelTurbo]

@nahpets, leider klappt es nicht. Beim laden kommt schon das er TTriggerPipe nicht findet. Ich habe es dann in Privat reingemacht und beim Button1Click erstellt. Dann kann ich es übersetzen und starten, aber leider kommt da nichts.

Das Programm, was in edKommandoZeile steht, wird nicht gestartet.

@hathor, das habe ich auch gefunden und probiert. Leider bleibt es wie alle anderen bei ReadFile stehen bis das aufgerufene Programm fertig ist.

Gruß und danke schonmal

[hathor]

Bei mir läuft's mit XE7 und WIN8.1.

Mach doch bitte ein COPY&PASTE und teste es!

Hast Du die vertikale Scrollbar beim Memo aktiviert?

Ich habe mal die EXE angefügt.

[nahpets]

Da TriggerPipe eine Komponente ist, solltest Du sie eventuell installieren, dann kann Delphi sie auch finden.

Wenn allerdings alle Routinen, die Du probiert hast, Dein Programm nicht starten, hast Du vermutlich kein Problem mit Delphi und der Verarbeitung von Pipes, sondern ein vollkommen anderes.
Wenn

Code:

cmd.exe /c dir c:\

nicht gestartet wird, erscheint mir das schon sehr seltsam.

Bei meiner Routine steht in der Caption des Formulares nach dem Aufruf auch der Exitcode. Was steht denn bei Dir dort?
Bei dem cmd von oben sollte der ExitCode 0 sein, sonst wurde der Prozess erst garnicht gefunden oder hat sich (aus welchen Gründen auch immer) verabschiedet.

Ändere bitte mal in meinem Teil die Routine TForm1.Button1Click ab:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  meOutput.Lines.Clear;
  // Das kann ein bisserl dauern...
  TriggerPipe.CommandLine := 'cmd.exe /c dir c:\ /s';
  if not TriggerPipe.Execute then begin
    ShowMessage(Format('Rückgabewert: %d',[TriggerPipe.ReturnCode]));
  end else begin
    ShowMessage('Eigentlich sollte das hier alles Ordnunggemäß funktioniert haben.');
  end;
end;

Was bekommst Du hier zu sehen?

Das über TriggerPipe gestartete Programm sollte im Taskmanager zu sehen sein, ist dem so?

Was ist das denn für ein Programm, das Du da aufrufen möchtest?

Steht es im gleichen Verzeichnis, wie das von Dir erstellte Programm?
Oder gibst Du den Programmname mit vollständigem Pfad an?
Oder ist das Programm über den Suchpfad von Windows zu erreichen?
Startet das Programm, wenn Du in dem Verzeichnis, in dem die von Dir erstellte Exe liegt, über die Konsole aufrufst?
Wenn nein, welche Meldung wird ausgegeben?
Was passiert, wenn Du eine Kommandozeile aufmachst, nach c:\ ins Hauptverzeichnis wechselst und das Programm dann dort aufrufst? Klappt das? Wenn ja, bitte Screenshot hier zur Verfügung stellen, eventuell kann man daran erkennen, ob das Programm überhaupt StdIn und StdOut von Windows nutzt. Wenn nicht, hast Du mit den hier besprochenen Routinen keine Chance.