Нужно получить значение из канала PIPE, но когда оно пустое, пишет ошибку Канал закрыт




если в Буфер что то приходит, и размер NumberOfBytesRead не равен 0, GetLastError = 0
если в Буфере пусто, и размер NumberOfBytesRead = 0, GetLastError = 109 - Канал закрыт

сам PipeRead имеет только номер процесса

как проверить перед выполнением Windows.ReadFile(PipeRead, Buffer, 16382, NumberOfBytesRead, nil) если результата не будет, то не выполнять вышеприведенный код

очень не красиво в finally end ставить SetLastError(0)

_Vasilisk_,

код достаточно стаднтартный, запись текста из консоли, взят из Интернета еще за долго до меня.
я пробежался и особо ни чего не придумал, разве только заменить чтение Pipe в поток через функцию.

и так по тексту

сначала
CreatePipe(PipeOutputRead, PipeOutputWrite, @SecurityAttr, 0);
CreatePipe(PipeErrorsRead, PipeErrorsWrite, @SecurityAttr, 0);

потом процесс

if CreateProcess( nil, CommandMem, nil, nil, True, CreationFlags, nil, nil, StartupInfo, ProcessInfo) then
begin


GetExitCodeProcess(ProcessInfo.hProcess, AProcessExitCode);
если процесс пошел,
while AProcessExitCode = STILL_ACTIVE do
begin

далее получение текста из консоли
Stream := TMemoryStream.Create;
try
while true do
begin
succeed := ReadFile(PipeOutputRead, Buffer, BufferSizeText, NumberOfBytesRead, nil);
if not succeed then break;
Stream.Write(Buffer, NumberOfBytesRead);
end;
Stream.Position := 0;
AOutput.LoadFromStream(Stream,TEncoding.GetEncoding(GetOEMCP));
finally
Stream.Free;
end;
Result := True;
end:

end else
begin
Result := False;
end;

в конце закрытие и выдача результатов

ALastOSError := GetLastError;
GetExitCodeProcess(ProcessInfo.hProcess, AProcessExitCode);
CloseHandle(ProcessInfo.hProcess);

Result false или true если файл выполнился то true
если файл выполнился то - GetExitCodeProcess(ProcessInfo.hProcess, AProcessExitCode) = 0
а вот GetLastError равен 0, пока не начинаю закрывать каналы, и притом возврат код сообщения, например 109 - канал закрыт. следующий шаг после 109 будет логично 87, так как параметры уже получиться нельзя, но это уже не интересно, так как результат из pipe получен AOutput и / или AError


проблема с тестировщиками, им не нравится,
мы протестировали, результат при наличии файлов и правильных команд даже с перенаправлением всегда есть.

Dimitry Sibiryakov,

ни фига не отмазка, код с 2014-го лежит, приписка автора есть, который когда то был до нас

но по сути, я сделал почти тоже самое, до его кода, есть какие то свежие решения?

джеди не пойдет,

WinExec32AndRedirectOutput - нет, ... "Герои не ищут легких путей",

хочу правильных решений и чем больше, тем лучше,
и так что сделать со Stream?

полностью согласен, но политика местной партии напрягает, и вынуждает начать все с квадратных колес, были решения проще и все рабочие. но примерно раз в год когото прёт, и приходится придумывать велосипеды, которые ездят боком

расскидал стандартный текст из интернета, о чем речь шла сначала по своему, протестировал сам, сделал кучу прерываний, убивал потоки и разрушал файлы, реакция есть.
до сих пор не понятно, почему когда нет ошибки и буфер пуст показывает что канал закрыт, номер 109, в итоге я его тупо ставлю в 0.
ошибки при процессах если не создавать нет.

короче отдал на тестирование, через пару дней будет ответ.