Работа с Бинарными Данными в Delphi: Запись в Стандартный Вывод

Delphi , ОС и Железо , DOS и Консоль

Вопрос, поднятый в данной статье, касается записи бинарных данных в стандартный вывод (stdout) из консольного приложения на Delphi. Стандартный вывод – это поток данных, который по умолчанию направлен в консоль, но может быть перенаправлен в файл или другое приложение.

Проблема

Пользователь столкнулся с проблемой при попытке записи бинарных данных в stdout. В коде использовался TMemoryStream для чтения файла и THandleStream для записи в stdout. Однако, несмотря на кажущуюся корректность подхода, запись данных не происходила, и переменная i, содержащая количество записанных байт, оставалась равной нулю.

Пример кода

program ConsoleOut;
{$APPTYPE CONSOLE}
uses
  Classes, Windows, SysUtils;

var
  S: TMemoryStream;
  OutputStream: THandleStream;
  Buffer: PByte;
  i: Integer;
begin
  S := TMemoryStream.Create;
  S.LoadFromFile('1.jpg');
  S.Seek(0, soFromBeginning);
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));
  GetMem(Buffer, S.Size);
  S.ReadBuffer(Buffer^, S.Size);
  i := OutputStream.Write(Buffer^, S.Size); //i = 0 здесь по какой-то причине
  FreeMem(Buffer, S.Size);
  Writeln(i, ' byte written to output');
  Readln; //Дожидаемся ввода пользователя перед выходом
  S.Free;
end.

Подтвержденный ответ

Проблема заключается в том, что если stdout привязан к консоли, то код не будет работать корректно. Это связано с ошибкой ERROR_NOT_ENOUGH_MEMORY. Если stdout перенаправлен в файл, то запись данных будет успешной. Также важно отметить, что вывод бинарных данных в консоль обычно не является хорошей практикой, так как это может привести к нечитаемому содержимому и раздражающим звуковым сигналам.

Для записи в консоль необходимо учитывать размер буфера устройства и писать данные порциями соответствующего размера. В документации по функции WriteConsole указано, что максимальный размер – 64 КБ. Однако при попытке записи бинарных данных, например, JPEG, ошибка может возникнуть раньше. Поэтому не рекомендуется напрямую выводить бинарные данные в консоль.

Также стоит отметить, что при чтении содержимого файла в TMemoryStream, нет необходимости выделять промежуточный буфер. Можно записать S.Memory^ напрямую.

Альтернативный подход

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

Заключение

Для корректной работы с бинарными данными в Delphi, важно учитывать особенности работы с stdout и консолью. Рекомендуется использовать подходящие инструменты и подходы, например, Named Pipes, для передачи данных между программами.

Создано по материалам из источника по ссылке.

Вопрос касается записи бинарных данных в стандартный вывод (stdout) из консольного приложения на Delphi и связанных с этим проблем и решений.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: DOS и Консоль ::