Советы по Delphi

       

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


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

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

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

While notTransmitCommChar( LPTHandle, CharToSend ) doApplication.ProcessMessages;

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

[000210]

Содержание раздела