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

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


 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

;
 

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com