Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Используйте 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 © LSD Software 2006 - 2011