Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011