Subversion Repositories fastphp

Rev

Rev 70 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70 Rev 91
Line 121... Line 121...
121 
          repeat
 121 
          repeat
122 
            WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
 122 
            WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
123 
            if BytesRead > 0 then
 123 
            if BytesRead > 0 then
124 
            begin
 124 
            begin
125 
              Buffer[BytesRead] := #0;
 125 
              Buffer[BytesRead] := #0;
126 
              Output := Output + Buffer;
 126 
              Output := Output + string(Buffer);
127 
              if Pos(SIGNAL_END_OF_TRANSMISSION, Output) >= 1 then
 127 
              if Pos(SIGNAL_END_OF_TRANSMISSION, Output) >= 1 then
128 
              begin
 128 
              begin
129 
                Output := StringReplace(Output, SIGNAL_END_OF_TRANSMISSION, '', []);
 129 
                Output := StringReplace(Output, SIGNAL_END_OF_TRANSMISSION, '', []);
130 
                break;
 130 
                break;
131 
              end;
 131 
              end;