Пример вывода текста на печать, используя COM порт

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

Автор: Peter

Var
  Printer: THandle;
  N      : Cardinal;
  C      : POverlapped;

begin
//Открываем порт принтера для записи
Printer := CreateFile(PChar('LPT1'),
           GENERIC_READ or GENERIC_WRITE,0,nil,
           OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);

//Печатаем слово 'Hello World';
WriteFile(Printer,'Hello World',11,N,c);
//Закрываем порт
CloseHandle(Printer);

Here's the translation of the text into Russian:

Программа PrintText; {$APPTYPE CONSOLE}

uses Windows, CommCtrl;

var Printer: THandle; // Объектный указатель на принтер N: Cardinal; // Количество байтов, написанных C: POverlapped; // Структура для асинхронных операций ввода-вывода

begin // Откройте порт принтера для записи Printer := CreateFile(PChar('LPT1'), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

if Printer <> INVALID_HANDLE_VALUE then begin try // Печатайте текст 'Hello World' WriteFile(Printer, 'Привет Мир', 11, N, C); finally CloseHandle(Printer); end; else Writeln('Ошибка открытия принтера'); end.

Обратите внимание, что это пример синхронной печати, поэтому программа будет блокироваться до тех пор, пока операция записи не будет выполнена. Для асинхронных операций вам нужно использовать структуру Overlapped и обрабатывать события, когда операция ввода-вывода завершается.

Translation notes:

• LPT1 is a common name for the first parallel port on a computer, but it may not be available on modern systems. You should check if your system has a compatible printer port.
• The text to be printed is hardcoded as 'Привет Мир', which translates to 'Hello World'.
• The WriteFile function writes 11 bytes from the buffer pointed by the first argument (Printer) to the file or device associated with the handle.

В статье 'Пример вывода текста на печать, используя COM порт' описывается процесс открытия порта принтера для записи, печати строки 'Hello World' и последующего закрытия порта с помощью языка программирования Pascal.

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

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

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