Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Используйте 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;

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





Похожие по теме исходники

Печать тетради

Разбиение файла на части

Текст внутри файла