Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

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

Пример вывода текста на печать, используя 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 порт
Дата публикации: 2004-09-09 (2499 Прочтено)

 
 

 

Page generation 0.033 seconds