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; |