unit consoleoutput;
interfaceuses
Controls, Windows, SysUtils, Forms;
function GetDosOutput(const CommandLine: string): string;
implementationfunction GetDosOutput(const CommandLine: string): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of Char;
BytesRead: Cardinal;
WorkDir, Line: string;
begin
Application.ProcessMessages;
with SA dobegin
nLength := SizeOf(SA);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
// созда¸м пайп для перенаправления стандартного вывода
CreatePipe(StdOutPipeRead, // дескриптор чтения
StdOutPipeWrite, // дескриптор записи
@SA, // аттрибуты безопасности
0 // количество байт принятых для пайпа - 0 по умолчанию
);
try// Созда¸м дочерний процесс, используя StdOutPipeWrite в качестве стандартного вывода,// а так же проверяем, чтобы он не показывался на экране.with SI dobegin
FillChar(SI, SizeOf(SI), 0);
cb := SizeOf(SI);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := SW_HIDE;
hStdInput := GetStdHandle(STD_INPUT_HANDLE); // стандартный ввод не перенаправляем
hStdOutput := StdOutPipeWrite;
hStdError := StdOutPipeWrite;
end;
// Запускаем компилятор из командной строки
WorkDir := ExtractFilePath(CommandLine);
WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
// Теперь, когда дескриптор получен, для безопасности закрываем запись.// Нам не нужно, чтобы произошло случайное чтение или запись.
CloseHandle(StdOutPipeWrite);
// если процесс может быть создан, то дескриптор, это его выводifnot WasOK thenraise Exception.Create('Could not execute command line!')
elsetry// получаем весь вывод до тех пор, пока DOS-приложение не будет завершено
Line := '';
repeat// читаем блок символов (могут содержать возвраты каретки и переводы строки)
WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
// есть ли что-нибудь ещ¸ для чтения?if BytesRead > 0 thenbegin// завершаем буфер PChar-ом
Buffer[BytesRead] := #0;
// добавляем буфер в общий вывод
Line := Line + Buffer;
end;
untilnot WasOK or (BytesRead = 0);
// жд¸м, пока завершится консольное приложение
WaitForSingleObject(PI.hProcess, INFINITE);
finally// Закрываем все оставшиеся дескрипторы
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
result := Line;
CloseHandle(StdOutPipeRead);
end;
end;
end.
Чтобы поймать весь вывод в консоли, вы можете использовать функцию GetDosOutput, предоставленную в коде, который вы опубликовали. Функция создает трубопровод для перенаправления стандартного вывода приложения DOS, запускает процесс с указанной командной строкой и затем читает из трубопровода до тех пор, пока процесс не будет окончен.
Вот пример использования этой функции:
varCommandLine:string;beginCommandLine:='dir';// указать командную строку для выполненияtryResult:=GetDosOutput(CommandLine);writeln(Result);// вывести результатexceptonE:Exceptiondowriteln(E.Message);end;end.
В этом примере функция GetDosOutput вызывается с командной строкой 'dir', которая выполняет команду dir в DOS-пrompt. Результат вывода хранится в переменной Result и затем выводится на консоль.
Обратите внимание, что это код предполагает, что функция GetDosOutput реализована так же, как показано в оригинальном коде, который вы опубликовали, включая обработку ошибок для случаев, когда процесс не может быть создан или есть проблемы с чтением из трубопровода.
В статье описывается функция GetDosOutput, которая позволяет захватить весь вывод в консоли при выполнении командной строки в дочернем процессе.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.