Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Пример вывода текста на печать, используя COM порт

Автор: Peter


 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);
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS