Subversion Repositories fastphp

Rev

Rev 31 | Rev 40 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 31 Rev 36
Line 26... Line 26...
26 
    procedure Execute; override;
 26 
    procedure Execute; override;
27 
  end;
 27 
  end;
28 
 
 28 
 
29 
implementation
 29 
implementation
30 
 
 30 
 
- 
 
 31 
uses
- 
 
 32 
  CRC32;
- 
 
 33 
 
31 
procedure TRunCodeExplorer.Execute;
 34 
procedure TRunCodeExplorer.Execute;
32 
 
 35 
 
33 
  function ProcessRunning(PI: TProcessInformation): boolean; inline;
 36 
  function ProcessRunning(PI: TProcessInformation): boolean; inline;
34 
  var
 37 
  var
35 
    exitcode: Cardinal;
 38 
    exitcode: Cardinal;
Line 125... Line 128...
125 
          {$ENDREGION}
 128 
          {$ENDREGION}
126 
 
 129 
 
127 
          {$REGION 'Notify main thread about output'}
 130 
          {$REGION 'Notify main thread about output'}
128 
          if Assigned(FOutputNotifyCallback) and not Self.Terminated and ProcessRunning(PI) then
 131 
          if Assigned(FOutputNotifyCallback) and not Self.Terminated and ProcessRunning(PI) then
129 
          begin
 132 
          begin
130 
            FOutputWaiting := result;
 133 
            FOutputWaiting := IntToHex(CalculateCRC32String(result), 8) + result;
131 
            Synchronize(CallOutputNotifyCallback);
 134 
            Synchronize(CallOutputNotifyCallback);
132 
          end;
 135 
          end;
133 
          {$ENDREGION}
 136 
          {$ENDREGION}
134 
        end;
 137 
        end;
135 
 
 138