Вывод текста на печать, используя com порт
Сели в машину, компьютерщик, новый русский и слесарь. Заводят - не заводится. Слесарь говорит: - Сейчас я гляну, что случилось, все сделаю - и поедем. Новый русский говорит: - Сиди, я сейчас по сотовому позвоню, приедет бригада мастеров и все быстро сделает. А компьютерщик говорит: - Может, все выйдем из машины и снова зайдём? |
var Printer: THandle; N : Cardinal; C : POverlapped; begin //Открываем порт принтера для записи Printer := CreateFile(PChar('LPT1'), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0); //Печатаем слово 'Hello World'; WriteFile(Printer, 'Hello World', 11, N, c); //Закрываем порт CloseHandle(Printer); |
Далее: Как программно установить конфигурацию COM-порта »»