Вывод текста на печать, используя 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);
|
|
