Обработка PostScript в Delphi с использованием RedMon: решение проблемы с пропущенными байтами

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

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

Проблема

При использовании кода для чтения потока ввода (stdin) в файл для дальнейшей обработки, наблюдается, что данные не читаются полностью. В логе RedMon появляются сообщения о том, что было написано 65536 байт, но в то же время указывается, что процесс не работает и возвращается TRUE, игнорируя те же 65536 байт.

Контекст

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

Решение

Пользователь в Edit 1 указывает, что сообщения о 65536 байтах в логе RedMon являются "красным herrings" (заблуждением), и RedMon действительно закрывает вывод раньше времени, но продолжает отправлять дополнительный текст. Это подтверждается комментарием о необходимости базового отладки и анализа логов RedMon.

Подтвержденный ответ предлагает использовать условие BytesRead <= 0 как более надежный признак конца файла, поскольку функция ReadFile может возвращать меньшее количество байт, чем запрошено, особенно при работе с каналами (pipes).

Пример кода

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

var
  Stdin: THandleStream;
  FStream: TFileStream;
  BytesRead: Int64;
  Buffer: array[0..1023] of Byte;
begin
  Stdin := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  try
    tempps := GetTempFile('.ps');
    FStream := TFileStream.Create(tempps, fmCreate or fmOpenReadWrite);
    try
      Stdin.Seek(0, 0);
      repeat
        BytesRead := Stdin.Read(Buffer, 1024);
        if BytesRead > 0 then
          FStream.Write(Buffer, BytesRead);
      until BytesRead <= 0;
    finally
      InputSize := FStream.Size;
      FStream.Free;
    end;
  finally
    Stdin.Free;
  end;
end;

Заключение

Проблема, с которой столкнулся пользователь, заключалась в некорректном определении конца файла при использовании буфера фиксированного размера. Исправление кода с использованием условия BytesRead <= 0 позволит корректно обрабатывать данные, поступающие из RedMon, и избегать пропусков байт в потоке ввода.

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

Проблема с обработкой потока данных PostScript в Delphi через RedMon связана с неправильным определением конца входных данных и пропуском байт в буфере.

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

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

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