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

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

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

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

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

Категории

Статьи

Советы

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