|
Используйте 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; Этим вы перешлете в параллельный порт строчку символов. Для обработки код ждет последний символ, после чего немедленно посылает новый. Метод на поверку оказался весьма быстр. |