home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / printing.swg / 0024_Object printer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  3.2 KB  |  122 lines
  1. {
  2. Jack Wilson
  3.  
  4. The Objective is to intercept when the Printer is off-line, and give the
  5. user a reminder to turn the Printer on-line, and press any key to resume
  6. printing.
  7.  
  8. I Realize this is most certainly an FAQ, and I have found some source
  9. code on Timo's site For TP 5.5 that I have modified (see below), but
  10. there is not much talk anymore about TP 3.0.
  11.  
  12. Anyway, to avoid making a lot of changes to my source code, I thought I
  13. would reWrite the LstOut Procedure (which according to the manual, is
  14. called by routines accessing the LST: device) as shown at the end of
  15. the following listing.  This is inefficient, since it is being called
  16. for each Character that is output to the Printer.  Does anybody have a
  17. better suggestion?  I might add the way it is now, if an off-line
  18. signal is detected, the LstOut will only print the first Character
  19. ('t') in the Write(lst,'test') in the main Program, With the 'est'
  20. going to the screen.  if I remove the statements in the While loop of
  21. LstOut, then all of 'test' goes to the Printer, but it defeats my
  22. purpose of giving the user a message.
  23. }
  24.  
  25. {by David R. Conrad, For Turbo Pascal 5.5
  26.  
  27.    This code is not copyrighted, you may use it freely.
  28.    There are no guarantees, either expressed or implied,
  29.    as to either merchantability or fitness For a particular
  30.    purpose.  The author's liability is limited to the amount
  31.    you paid For it.
  32.    David R. Conrad, 17 Nov 92
  33.    David_Conrad@mts.cc.wayne.edu
  34.    dave@michigan.com
  35. }
  36.  
  37. Const
  38.   { For use With the Printer Functions }
  39.   PrnNotBusy = $80;
  40.   PrnAck     = $40;
  41.   PrnNoPaper = $20;
  42.   PrnSelect  = $10;
  43.   PrnIOError = $08;
  44.   PrnTimeout = $01;
  45.  
  46. Type
  47.   Word   = Integer;
  48.   AnyStr = String[255];
  49.  
  50. Var
  51.   PrinterNumber : Byte;
  52.  
  53. { all routines are documented in the Implementation section }
  54.  
  55. Procedure InitRegisters(Var Reg : Registers);
  56. { initialize Variable of Type Registers: slightly anal-retentive }
  57. begin
  58.   fillChar (Reg, sizeof(Reg), 0);
  59.   Reg.DS := DSeg;
  60.   Reg.ES := DSeg;
  61. end;
  62.  
  63. Function PrnOnline(Printernumber : Byte) : Boolean;
  64. { Is LPT(Printernumber) online? }
  65. Var
  66.   Reg : Registers;
  67. begin
  68.   InitRegisters(Reg);
  69.   Reg.AH := 2;
  70.   Reg.DX := Pred(Printernumber);
  71.   Intr($17, Reg);
  72.   PrnOnline := (Reg.AH and PrnSelect) = PrnSelect;
  73. end;
  74.  
  75. Procedure pause;
  76. Var
  77.   c : Char;
  78.  
  79. begin
  80.   c := #127;
  81.   Repeat
  82.     if KeyPressed then
  83.       c := ReadKey;
  84.    Until c in [#0..#126];
  85. end;
  86.  
  87.  
  88. {**************************************************************************}
  89. {THIS IS THE ROUTINE in QUESTION}
  90.  
  91. Procedure LstOut(ch : Char);
  92.  
  93. Var
  94.   Reg : Registers;
  95.  
  96. begin
  97.   While not (PrnOnline(PrinterNumber)) do
  98.   begin
  99.     {if I TAKE OUT THESE NEXT THREE LINES, then OUTPUT PaUses Until Printer
  100.      IS ON-LINE, and then ALL CharS PRINT to Printer}
  101.     GotoXY(1, 23);
  102.     ClrEol;
  103.     Write('Please check Printer, and press any key when ready...');
  104.     pause;
  105.   end;
  106.   initRegisters(Reg);
  107.   Reg.AH := 0;
  108.   Reg.DX := Pred(PrinterNumber);
  109.   Reg.AL := Byte(ch);
  110.   Intr($17, Reg);
  111.  
  112. end;
  113.  
  114. {**************************************************************************}
  115.  
  116. begin
  117.   PrinterNumber := 1;
  118.   LstOutPtr     := ofs(LstOut);
  119.   Writeln(lst, 'test');
  120. end.
  121.  
  122.