source: trunk/UExecute.pas

unit UExecute;

interface

uses
  Classes, SysUtils, Process;

type
  { TExecute }

  TExecute = class
  protected
    function GetExecutable: string; virtual;
  public
    PrintOutput: Boolean;
    PrintCommand: Boolean;
    StandardOutput: string;
    ErrorOutput: string;
    procedure Execute(Parameters: array of string); virtual;
    procedure ExecuteOutput(Parameters: array of string);
  end;


implementation


{ TExecute }

function TExecute.GetExecutable: string;
begin
  Result := '';
end;

procedure TExecute.Execute(Parameters: array of string);
var
  Process: TProcess;
  I: Integer;
  Buffer: string;
  Count: Integer;
begin
  StandardOutput := '';
  ErrorOutput := '';
  Buffer := '';
  try
    Process := TProcess.Create(nil);
    Process.Executable := GetExecutable;
    for I := 0 to Length(Parameters) - 1 do
      Process.Parameters.Add(Parameters[I]);
    Process.Options := [poUsePipes, poNoConsole];
    if PrintCommand then begin
      WriteLn(Process.Executable + ' ' + StringReplace(Process.Parameters.Text, LineEnding, ' ', [rfReplaceAll]));
    end;
    Process.Execute;
    while Process.Running or (Process.Output.NumBytesAvailable > 0) or
    (Process.Stderr.NumBytesAvailable > 0) do
    begin
      if Process.Output.NumBytesAvailable > 0 then begin
        SetLength(Buffer, 1000);
        Count := Process.Output.Read(Buffer[1], Length(Buffer));
        SetLength(Buffer, Count);
        StandardOutput := StandardOutput + Buffer;
        if PrintOutput then Write(Buffer);
      end;
      if Process.Stderr.NumBytesAvailable > 0 then begin
        SetLength(Buffer, 1000);
        Count := Process.Stderr.Read(Buffer[1], Length(Buffer));
        SetLength(Buffer, Count);
        ErrorOutput := ErrorOutput + Buffer;
        if PrintOutput then Write(Buffer);
      end;
      Sleep(1);
    end;
  finally
    Process.Free;
  end;
end;

procedure TExecute.ExecuteOutput(Parameters: array of string);
begin
  Execute(Parameters);
  if StandardOutput <> '' then Write(StandardOutput);
  if ErrorOutput <> '' then Write(ErrorOutput);
end;

end.