Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Локальные Сети    >>    prque
   
 
 PrQue - Capture a Printer with NW311   Michael Fiel 03.11.1993

PRQue - is the BP7.0 source code of an object which opens a printque on novell netware 311 without using a LPT port. It can be run in REAL and PROTECTED modes.



7k 
 

------------------------------------------------------------------------------ This version runs in REAL and PROTECTED mode. If you use PROTECTED mode please download the file EZDPMI.PAS in the libary Borland-Pascal-Protectedmode. EZDPMI is Copyright (c) 1993 by Julian M. Bucknall Great work Julian. ------------------------------------------------------------------------------ This Version is only tested with NETWARE 3.11 and PSERVER.NLM . May not work with other PrintServers. ------------------------------------------------------------------------------ Sometimes I need more than 3 printers on a Netware 311 workstations, but the problem is, that you can only capture LPT1-LPT3 on this station. With the Object <TNWPrintQueue> in the file nw311.pas you can open a queue without the capture command, so you can open as many queues as you want and print to the queues no matter in wich order. The Queues will be printed the same order you opend them. The basic thing is that I don't use "Print Services" but "Queue Services". When initializing the TNWPrintQueue Object I do a "GetBinderyObjectID" sytem call. If you have more the one server you need to add a "SetPreferredConnectionID" call. Instad of a "Start LPT Capture" I use the "Create Queue Job and File" ($E3 ($68)) system call. The Requestbuffer for this call is created in the methode <TNWPrintQueue.Capture>. At position 111 in this buffer starts an area called "Client record Area". Please read the remarks at this point. To close the Queue I do a "Close File and Start Queue Job" ($E3 ($69)) system call. When doing a "Create Job and File" a dos file called "NETQ" is created (by netx i think). Just open this File like "LPT1" and write to it. The methode <TNWPrintQueue.Capture> opens this file (variable theQueue:Text) and closes it with the methode <TNWPrintQueue.EndCap>. If you want to write to this file, use the <TNWPrintQueue.Flush> or the <TNWPrintQueue.FlushLn> methodes. ------------------------------------------------------------------------------ Feel free to use it but usage is at your own risk. If problems send me an e-mail. Copyright (C) Michael Fiel, Vienna Austria, October 1993. CompuServe ID : 100041,2007 ------------------------------------------------------------------------------ included Files : nw311.txt <This file> nw311.pas <the object> demo.pas <demo for capturing 4 queues at the same time> tools.pas <tool functions for the object in nw311.pas> ------------------------------------------------------------------------------ NO WARRANTY IS GIVEN AS TO THE SUITABILITY OF THIS CODE FOR ITS GIVEN PURPOSE. THE AUTHOR WILL NOT BE LIABLE FOR ANY DIRECT, INDIRECT, CONSEQUENTIAL OR INCIDENTAL DAMAGES CAUSED AS A RESULT OF USING THIS CODE. ------------------------------------------------------------------------------