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

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

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);

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com