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

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

 
 
 

Советы по delphi \ Система \ Принтеры и Печать \ Распечатать файл через порт принтера

Распечатать файл через порт принтера


 procedure TForm1.Button1Click(Sender: TObject);
 var
   port, prnfile: file;
   buffer: array [1..128] of Char;
   Read: Integer;
 begin
   // Specify a file to print
  AssignFile(prnfile, 'filetoprint');
   Reset(prnfile, 1);
   // specify printer port
  AssignFile(port, 'LPT1');
   Rewrite(port, 1);
   repeat
     BlockRead(prnfile, buffer, SizeOf(buffer), Read);
     BlockWrite(port, buffer, Read);
     // Application.ProcessMessages;
  until EOF(prnfile) or (Read <> SizeOf(buffer));
   CloseFile(prnfile);
   CloseFile(port);
 end;
 

Название: Распечатать файл через порт принтера
Дата публикации: 2004-09-09 (2493 Прочтено)

 
 

 

Page generation 0.033 seconds