Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS