БОЛЬШОЙ FAQ ПО DELPHI



Сброс на печать текстового файла

Используйте CreateFile для получения дескриптора LPT1


 LPTHandle := CreateFile( 'LPT1',GENERIC_WRITE,
 0, PSecurityAttributes(nil),
 OPEN_EXISTING, FILE_FLAG_OVERLAPPED,
 0);
 

Затем используйте WriteFile для посылки строки символов или сделайте так:


 While not TransmitCommChar( LPTHandle, CharToSend ) do
   Application.ProcessMessages;
 

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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ