Capture Console Output Realtime Delphi

Aplikasi ini berfungsi mengcapture output dari console. Seperti kita menjalankan perintah dari cmd, nah ini dibuat dengan delphi. Pada aplikasi yang sederhana ini sudah menggunakan teknik threading, jadi pada saat proses berjalaan bersamaan tidak saling mengganggu satu sama lain. Terdapat 2 contoh pada aplikasi, yang satu pake threading dan yang satu tidak pake, supaya kita bisa membedakan dan paham cara kerja threading itu seperti apa..

Oke langsung saja gak usah pake lama...nih full source code nya... :D

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls, ExtCtrls;<br /><br />type<br />  TmyThread = class(TThread)<br />  private<br />    { Private declarations }<br />    fCommand   : String;<br />    fParameter : String;<br />  protected<br />    procedure Execute; override;<br />  public<br />     constructor Create(Suspended: Boolean);//add thread constructor<br />     property Command: String read fCommand write fCommand;<br />     property Parameter: String read fParameter write fParameter;<br />  end;<br /><br />type<br />  TForm1 = class(TForm)<br />    ed1: TEdit;<br />    ed2: TEdit;<br />    mmo1: TMemo;<br />    b1: TButton;<br />    lbl1: TLabel;<br />    lbl2: TLabel;<br />    tmr1: TTimer;<br />    Label1: TLabel;<br />    b2: TButton;<br />    procedure tmr1Timer(Sender: TObject);<br />    procedure b1Click(Sender: TObject);<br />    procedure b2Click(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure CaptureConsoleOutput(const ACommand, AParameters: String; AMemo: TMemo);<br /> const<br />   CReadBuffer = 2400;<br /> var<br />   saSecurity: TSecurityAttributes;<br />   hRead: THandle;<br />   hWrite: THandle;<br />   suiStartup: TStartupInfo;<br />   piProcess: TProcessInformation;<br />   pBuffer: array[0..CReadBuffer] of Char;<br />   dRead: DWord;<br />   dRunning: DWord;<br /> begin<br />   saSecurity.nLength := SizeOf(TSecurityAttributes);<br />   saSecurity.bInheritHandle := True;<br />   saSecurity.lpSecurityDescriptor := nil;<br /><br />   if CreatePipe(hRead, hWrite, @saSecurity, 0) then<br />   begin<br />     FillChar(suiStartup, SizeOf(TStartupInfo), #0);<br />     suiStartup.cb := SizeOf(TStartupInfo);<br />     suiStartup.hStdInput := hRead;<br />     suiStartup.hStdOutput := hWrite;<br />     suiStartup.hStdError := hWrite;<br />     suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;    <br />     suiStartup.wShowWindow := SW_HIDE; <br /><br />     if CreateProcess(nil, PChar(ACommand + ' ' + AParameters), @saSecurity,<br />       @saSecurity, True, NORMAL_PRIORITY_CLASS, nil, nil, suiStartup, piProcess)<br />       then<br />     begin<br />       repeat<br />         dRunning  := WaitForSingleObject(piProcess.hProcess, 100);        <br />         Application.ProcessMessages();<br />         repeat<br />           dRead := 0;<br />           ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil);          <br />           pBuffer[dRead] := #0;<br /><br />           OemToAnsi(pBuffer, pBuffer);<br />           AMemo.Lines.Add(String(pBuffer));<br />         until (dRead < CReadBuffer);<br />       until (dRunning <> WAIT_TIMEOUT);<br />       CloseHandle(piProcess.hProcess);<br />       CloseHandle(piProcess.hThread);<br />     end; <br /><br />     CloseHandle(hRead);<br />     CloseHandle(hWrite);<br />   end;<br />end;<br /><br />procedure TForm1.tmr1Timer(Sender: TObject);<br />begin<br />  if Label1.Visible = True then Label1.Visible := False<br />  else Label1.Visible := True;<br />end;<br /><br />{ TmyThread }<br /><br />constructor TmyThread.Create(Suspended: Boolean);<br />begin<br />  inherited;<br />  FreeOnTerminate := True;<br />  fCommand    := '';<br />  fParameter  := '';<br />end;<br /><br />procedure TmyThread.Execute;<br />begin<br />  inherited;<br />  CaptureConsoleOutput(Self.fCommand,Self.fParameter,Form1.mmo1);<br />end;<br /><br />procedure TForm1.b1Click(Sender: TObject);<br />var<br />  Capture : TmyThread;<br />begin<br />  mmo1.Clear;<br /><br />  Capture := TmyThread.Create(False);<br />  try<br />    Capture.fCommand  := ed1.Text;<br />    Capture.fParameter  := ed2.Text;<br />    Capture.Resume;<br />  finally<br /><br />  end;<br />end;<br /><br />procedure TForm1.b2Click(Sender: TObject);<br />begin<br />  mmo1.Clear;<br />  CaptureConsoleOutput(ed1.Text,ed2.Text,mmo1);<br />end;<br /><br />end.

 

Download program full source DISINI