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