source: trunk/Forms/UOperationProgress.pas

unit UOperationProgress;

{$mode Delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Process;

type

  { TOperationProgressForm }

  TOperationProgressForm = class(TForm)
    ButtonAbort: TButton;
    ButtonClose: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure ButtonAbortClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Process: TProcess;
  public
    CommandLine: string;
    Path: string;
    Environment: string;
    procedure Perform;
  end; 

var
  OperationProgressForm: TOperationProgressForm;

implementation

{$R *.lfm}

{ TOperationProgressForm }

procedure TOperationProgressForm.ButtonAbortClick(Sender: TObject);
begin
  if Assigned(Process) then
    Process.Terminate(0);
end;

procedure TOperationProgressForm.ButtonCloseClick(Sender: TObject);
begin

end;

procedure TOperationProgressForm.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  Memo1.Clear;
end;

procedure TOperationProgressForm.FormShow(Sender: TObject);
begin
  Memo1.Clear;
  ButtonAbort.Enabled := False;
  ButtonClose.Enabled := False;
  Timer1.Enabled := True;
end;

procedure TOperationProgressForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ButtonAbort.Enabled := True;
  Perform;
end;

procedure TOperationProgressForm.Perform;
var
  Buffer: string;
  Count: Integer;
  Text: string;
  Line: string;
begin
  Text := '';
  try
    Process := TProcess.Create(nil);
    if Path <> '' then
      Process.CurrentDirectory := Path;
    Path := '';
    if Environment <> '' then
      Process.Environment.Text := Environment;
    Environment := '';
    Process.CommandLine := CommandLine;
    Edit1.Text := CommandLine;
    Process.Options := [poUsePipes, poNoConsole];
    Process.Execute;
    Application.ProcessMessages;
    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);
        Text := Text + Buffer;
        while Pos(LineEnding, Text) > 0 do begin
          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
          Delete(Text, 1, Length(Line) + Length(LineEnding));
          Memo1.Lines.Add(Line);
        end;
      end;

      if Process.Stderr.NumBytesAvailable > 0 then begin
        SetLength(Buffer, 1000);
        Count := Process.Stderr.Read(Buffer[1], Length(Buffer));
        SetLength(Buffer, Count);
        Text := Text + Buffer;
        while Pos(LineEnding, Text) > 0 do begin
          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
          Delete(Text, 1, Length(Line) + Length(LineEnding));
          Memo1.Lines.Add(Line);
        end;
      end;
      Sleep(10);
      Application.ProcessMessages;
    end;
  finally
    Memo1.Lines.Add(Text);
    FreeAndNil(Process);
  end;
  ButtonAbort.Enabled := False;
  ButtonClose.Enabled := True;
  ButtonAbort.ModalResult := mrOK;
end;

end.