Re: [DUG] Dot Matrix Printer

[Colin&Mina]

----- Original Message -----
From: "Rohit Gupta" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; "NZ Borland Developers Group - Delphi List"
<[EMAIL PROTECTED]>
Sent: Thursday, January 22, 2004 12:06 PM
Subject: [DUG] Dot Matrix Printer


> How do others write to a dot-matrix printer for logging applications ?
>
> I am trying to port a DOS proggy and I dont really want to use my
> old DOS code (usng interrupts, spooling etc).
>
> I can use the old style fileaccess (assignfile, rewrite,writeln) and that
> appears to work fine in the initial test.  But how do I find out if the
> printer is off-line ?
>
> Regards
>
> RohitRegards
>
> Rohit
>
> ====================================================
> ==================
> CFL - Computer Fanatics Ltd.  21 Barry's Point Road, AKL, New
> Zealand
> PH    (649) 489-2280
> FX    (649) 489-2290
> email [EMAIL PROTECTED]  or  [EMAIL PROTECTED]
> ====================================================
> ==================
>
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi

Sorry this took so long.

DOS Implementation - Copy attached.

{---------------------------------------------------------------------------
-}
{ PRNTRTPU.PAS                                   Printer Handlers etc}
{---------------------------------------------------------------------------
-}
UNIT PRNTRTPU;
{                  +------------------------------------------------+
                    |          Printer Handling Routines           |
                    |      (c)  Colmin Associates                     |
                    |        AUCKLAND NEW ZEALAND    |
                   +-------------------------------------------------+
                    |                       XX-XXX-00                      |
                    |                       Version 1.00
|
                    |                      24-Aug-1992
|
                   +-------------------------------------------------+

----------------------------------------------------------------------------
-------------}
INTERFACE

USES
     Dos, Crt;

Const
     ON = True;  OFF = False;

Var
    Error    : byte;                                { Reports Unit
Proc/Funct Errors}

{---------------------------------------------------------------------------
------------}
function Printer_Ready( Printer : byte) : Boolean;
function Printer_Paper_Out( Printer : byte) : Boolean;
{---------------------------------------------------------------------------
------------}
IMPLEMENTATION
{---------------------------------------------------------------------------
------------}
function Printer_Ready( Printer : byte) : Boolean;

var Regs : registers;

begin
  Regs.AH := $02;
  Regs.DX := Printer;            { 0 = LPT1, 1 = LPT2, 2 = LPT3}
  Intr($17,Regs);
  Printer_Ready := (Regs.AH and $80 = $80)  and        { test if Ready}
                   (Regs.AH and $10 = $10)  and                  { test if
Selected}
                   (Regs.AH and $08 = $00);                         { test
if I/O Error}
end;

{---------------------------------------------------------------------------
------------}
function Printer_Paper_Out( Printer : byte) : Boolean;

var Regs : registers;

begin
  Regs.AH := $02;
  Regs.DX := Printer;                          { 0 = LPT1, 1 = LPT2, 2 =
LPT3}
  Intr($17,Regs);
  Printer_Paper_Out := (Regs.AH and $20) = $20;
end;

{---------------------------------------------------------------------------
------------}
end. { PRNTRTPU }
{==================================================}



>

Prntrtpu.pas
Description: Binary data

_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi