Почему на второй и последующих страницах отчетов QuickReport исчезают штрихкоды и QR-коды: проблема и возможные решения в Delphi приложениях.

Delphi , Компоненты и Классы , TQuickReport

Исчезающие штрихкоды и QR-коды в QuickReport: проблема и решения в Delphi приложениях

Недавно пользователи столкнулись с неприятной проблемой: штрихкоды и QR-коды в отчетах, создаваемых с помощью QuickReport (версия 5.x) в Delphi приложениях, перестали отображаться на второй и последующих страницах. Первая страница отображается корректно, но последующие страницы оказываются пустыми в отношении этих графических элементов. Проблема не наблюдается под Windows 10, но возникает на более новых версиях Windows, что наводит на мысль о влиянии обновлений системы.

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

Суть проблемы и наблюдения пользователя

Пользователь, столкнувшийся с проблемой, заметил следующие моменты:

• Проблема проявляется как в динамических, так и в статических QRImage компонентах.
• Отображение обычных изображений (например, логотипа PostgreSQL) в QRImage работает корректно, а вот штрихкоды и QR-коды пропадают.
• Прямая печать через TPrinter работает без проблем, и изображения корректно отображаются на всех страницах.
• Изменение PrinterSettings.MemoryLimit не оказывает влияния на проблему.
• Проблема воспроизводится не только с QuickReport, но и с другими PDF принтерами (Bullzip PDF Printer, MS PDF Printer) и реальными принтерами.
• На Windows 10 приложение работало корректно.

Предполагаемые причины

Изначально предполагалось, что проблема связана с устаревшей версией QuickReport, которая не корректно обрабатывает изменения в API Windows. Пользователь также рассматривал возможность влияния обновлений Windows, которые могли изменить поведение API. Однако, после тщательного анализа, выяснилось, что корень проблемы лежит в компоненте генерации штрихкодов, используемом в приложении (HanSoft).

Решение, предложенное пользователем и его анализ

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

1. Очистка существующего изображения: BC.Barcode := '';
2. Сохранение изображения: img := BC.Image;
3. Удаление ссылки на изображение: BC.Image := nil;
4. Проверка, что изображение не уничтожено: if Assigned(img) then img.Picture := nil;
5. Восстановление изображения: BC.Image := img;
6. Установка нового значения штрихкода: BC.Barcode := aNewBarCode;

Пример кода:

procedure TForm1.PrintBarcode;
var
  BC: TBarcode1D_Code128;
  img: TBitmap;
  aNewBarCode: string;
begin
  BC := TBarcode1D_Code128.Create(nil);
  try
    BC.Barcode := '';
    img := BC.Image;
    BC.Image := nil;
    if Assigned(img) then
      img.Picture := nil;
    BC.Image := img;
    BC.Barcode := '1234567890';
    // ... дальнейшая работа с компонентом BC ...
  finally
    BC.Free;
  end;
end;

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

Альтернативные решения и рекомендации

Предложенное пользователем решение, хотя и рабочее, может быть не самым оптимальным с точки зрения производительности, особенно при больших объемах данных. Рассмотрим альтернативные подходы:

1. Обновление компонентов: Если возможно, обновите компоненты QuickReport и HanSoft до последних версий. В новых версиях могут быть исправлены ошибки, связанные с совместимостью с новыми версиями Windows.
2. Использование альтернативных компонентов генерации штрихкодов: Рассмотрите возможность использования других компонентов для генерации штрихкодов, которые лучше поддерживаются современными операционными системами. Существует множество альтернативных библиотек для работы со штрихкодами в Delphi, например, ZXing.Net.
3. Генерация штрихкодов на стороне сервера: Если приложение использует серверную часть, можно перенести генерацию штрихкодов на сервер и передавать уже готовые изображения в QuickReport. Это позволит избежать проблем, связанных с API Windows на клиентской стороне.
4. Использование Metafile: Вместо использования Bitmap, попробуйте использовать Metafile для хранения штрихкодов. Metafile – это формат векторной графики, который может быть более устойчив к изменениям в масштабировании и отображении на разных устройствах.
5. Проверка настроек принтера: Убедитесь, что настройки принтера (или PDF принтера) корректно настроены и не влияют на отображение графических элементов. Попробуйте изменить параметры масштабирования и разрешения печати.
6. Проверка масштабирования Windows: Как было предложено в комментариях, убедитесь, что масштабирование Windows установлено на 100%. Некорректные значения масштабирования могут приводить к проблемам с отображением графики.

Заключение

Проблема исчезающих штрихкодов и QR-кодов в QuickReport отчетах на новых версиях Windows, скорее всего, связана с изменениями в API Windows и/или некорректной работой компонентов генерации штрихкодов. Предложенное пользователем решение, требующее обновления данных для штрихкода перед печатью каждой страницы, является рабочим, но не самым оптимальным. Рассмотрите альтернативные подходы, такие как обновление компонентов, использование других библиотек для генерации штрихкодов, генерация штрихкодов на стороне сервера, использование Metafile и проверку настроек принтера и масштабирования Windows. Тщательный анализ и тестирование различных решений помогут вам найти оптимальный способ устранения этой проблемы и обеспечить корректное отображение штрихкодов и QR-кодов в ваших Delphi приложениях.

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

Проблема с исчезающими штрихкодами и QR-кодами в QuickReport отчетах в Delphi приложениях на новых версиях Windows, связанная с изменениями в API Windows и некорректной работой компонентов генерации штрихкодов.

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

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

:: Главная :: TQuickReport ::