БОЛЬШОЙ 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/



Видеокурс ВЗЛОМ