Обработка ошибки 217 в Delphi XE2: правильное управление ресурсами TPrinter на Windows 10

Delphi , ОС и Железо , Принтеры и Печать

При работе с компонентом TPrinter в Delphi XE2 на операционной системе Windows 10 разработчики могут столкнуться с ошибкой 217, которая возникает при неправильном управлении ресурсами. В данной статье мы рассмотрим, как избежать этой ошибки и правильно использовать компонент TPrinter в своих приложениях.

Введение в проблему

Рассмотрим минималистичное приложение на Delphi XE2, которое содержит форму с двумя кнопками. При нажатии на первую кнопку (Button1Click) выполняется печать текста на стандартном принтере, и программа закрывается нормально. При нажатии на вторую кнопку (Button2Click) создается объект TPrinter, после чего также выполняется печать, но при закрытии программы возникает ошибка 217.

procedure TForm2.Button1Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(10, 10, 'Hello World');
  Printer.EndDoc;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  MyPrinter: TPrinter;
begin
  MyPrinter := Printer;
  MyPrinter.BeginDoc;
  MyPrinter.Canvas.TextOut(10, 10, 'Hello World');
  MyPrinter.EndDoc;
  MyPrinter.Free;
end;

Подробный разбор

В коде, представленном для кнопки Button2, создается локальная переменная MyPrinter, которая является ссылкой на глобальный объект TPrinter. После выполнения печати, разработчик пытается освободить ресурсы, вызвав MyPrinter.Free, что приводит к ошибке 217 при закрытии программы.

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

Глобальный объект TPrinter, возвращаемый функцией Printer, автоматически освобождается при закрытии приложения. Попытка освободить его вручную приведет к ошибке, так как объект был создан не вами, и вы не несете ответственности за его освобождение.

Документация и рекомендации

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

// Пример использования TPrinter для печати
procedure TForm2.Button1Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(10, 10, 'Hello World');
  Printer.EndDoc;
end;

Заключение

Используйте глобальный объект TPrinter для печати, не пытаясь освободить его вручную. Это позволит избежать ошибки 217 и гарантирует корректное управление ресурсами в вашем приложении на Delphi XE2.

Обратите внимание, что вы также можете управлять печатью на различных принтерах, изменяя свойство TPrinter.PrinterIndex.

Надеемся, что данная статья помогла вам разобраться с обработкой ошибки 217 и правильным использованием компонента TPrinter в Delphi.

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

При работе с компонентом `TPrinter` в Delphi XE2 на Windows 10 важно корректно управлять ресурсами, чтобы избежать ошибки 217, связанной с неправильным освобождением объектов.

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

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

:: Главная :: Принтеры и Печать ::