InPortByte() function missing in FWH 2.7 FIVEHC.LIB

[RAMESHBABU]

I was trying to re-compile all my FWH 2.5 programs with FWH 2.7 and I am getting the following error.

Unresolved external "_HB_FUN_INPORTBYTE".

When I checked, I found that "InPortByte()" function and other funcitons of inout.c are missing in FIVEHC.LIB.

What to do ?

- Ramesh Babu P

[RAMESHBABU]

Hi Antonio

I found some posting from you regarding this problem in FWH spanish forum. But I can't understand what you said there.

Please help me to resolve these unresolved externals InPortByte() and ExportByte()

- Ramesh Babu P

[Antonio Linares]

Ramesh,

InPortByte() and OutPortByte() are not available in 32 bits. Win32 does not allow them.

What do you need to do with them ?

[RAMESHBABU]

Hi Antonio

Thank you for your reply.

These functions are used in TDosPrn() to check the status of the printer.


*******************************************************************************
*** METHOD PrinterStatus() CLASS TDosPrn to Find out the Printer Status ***
*******************************************************************************

METHOD PrinterStatus() CLASS TDosPrn

Local nStatus

If ::nLPTBase > 0
nStatus := InPortByte( ::nLPTBase + 1 )
::lPrnError := ! lIsBit( nStatus, 4 )
::lPrnSelect := lIsBit( nStatus, 5 )
::lPaperOut := lIsBit( nStatus, 6 )
::lDataAck := ! lIsBit( nStatus, 7 )
::lPrnBusy := ! lIsBit( nStatus, 8 )
Endif

Return Self

*********

Is there any way to implement the above method.

Regards

- Ramesh Babu P

[Antonio Linares]

Ramesh,

We may adapt this code:
http://support.microsoft.com/default.as ... -us;160129

[RAMESHBABU]

Hello Mr.Antonio

I have gone through the article and I do not know how to impliment the
sample code shown in the article.

Regards

- Ramesh Babu P

[Antonio Linares]

Ramesh,

We are going to adapt it asap.

[Antonio Linares]

Ramesh,

Please try this sample and let us know what values you get. Please replace "LPT1" with the value that you use with Class TDosPrn:

Code: Select all  Expand view

function Main()

   local nHandle := 0
   
   MsgInfo( OpenPrinter( "LPT1", @nHandle ) )
   MsgInfo( nHandle )
   MsgInfo( ClosePrinter( nHandle ) )
   
return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( OPENPRINTER )
{
   HANDLE hPrinter;
   
   hb_retl( OpenPrinter( hb_parc( 1 ), &hPrinter, NULL ) );
   hb_stornl( ( unsigned long ) hPrinter, 2 );
}   

HB_FUNC( CLOSEPRINTER )
{
   hb_retl( ClosePrinter( ( HANDLE ) hb_parnl( 1 ) ) );
}   

#pragma ENDDUMP


[Antonio Linares]

Ramesh,

Please try this code:

Code: Select all  Expand view

CLIPPER PRNSTATUS( PARAMS ) // cPrinter or cPrinterServer --> nStatus
{
    HANDLE hPrinter = NULL;
    DWORD cBytesNeeded = 0, cBytesUsed = 0, status = 0;
   PRINTER_INFO_2 * pPrinterInfo = NULL;      
   
   if( OpenPrinter( _parc( 1 ), &hPrinter, NULL ) )
   {
      GetPrinter( hPrinter, 2, NULL, 0, &cBytesNeeded );
      pPrinterInfo = ( PRINTER_INFO_2 * ) _xgrab( cBytesNeeded );         
        GetPrinter( hPrinter, 2, ( unsigned char * ) pPrinterInfo, cBytesNeeded, &cBytesUsed );
        _retnl( pPrinterInfo->Status );
        _xfree( pPrinterInfo );
      ClosePrinter( hPrinter );
   }
   else
      _retnl( PRINTER_STATUS_NOT_AVAILABLE );
}             


Este es un ejemplo de uso:

Code: Select all  Expand view

#define PRINTER_STATUS_OK                       0
#define PRINTER_STATUS_PAUSED                   1
#define PRINTER_STATUS_ERROR                    2
#define PRINTER_STATUS_PENDING_DELETION         4
#define PRINTER_STATUS_PAPER_JAM                8
#define PRINTER_STATUS_PAPER_OUT               16
#define PRINTER_STATUS_MANUAL_FEED             32
#define PRINTER_STATUS_PAPER_PROBLEM           64
#define PRINTER_STATUS_OFFLINE                128
#define PRINTER_STATUS_IO_ACTIVE              256
#define PRINTER_STATUS_BUSY                   512
#define PRINTER_STATUS_PRINTING              1024
#define PRINTER_STATUS_OUTPUT_BIN_FULL       2048
#define PRINTER_STATUS_NOT_AVAILABLE         4096
#define PRINTER_STATUS_WAITING               8192
#define PRINTER_STATUS_PROCESSING           16384
#define PRINTER_STATUS_INITIALIZING         32768
#define PRINTER_STATUS_WARMING_UP           65536
#define PRINTER_STATUS_TONER_LOW           131072
#define PRINTER_STATUS_NO_TONER            262144
#define PRINTER_STATUS_PAGE_PUNT           524288
#define PRINTER_STATUS_USER_INTERVENTION  1048576
#define PRINTER_STATUS_OUT_OF_MEMORY      2097152
#define PRINTER_STATUS_DOOR_OPEN          4194304
#define PRINTER_STATUS_SERVER_UNKNOWN     8388608
#define PRINTER_STATUS_POWER_SAVE        16777216

function Main()

   local nStatus := PrnStatus( "LPT1:" )

   MsgInfo( nStatus )

return nil


http://hyperupload.com/download/01b93ba ... C.obj.html

[RAMESHBABU]

Hello Mr.Antonio

Thank you for your reply.

I have tested the above code. I felt that this code is useful only when
we use windows printers but not for dos printers.

I have replaced the code in TDosPrn and I found that even though the
printer is not switched off, PrnStatus("LPT1:") is always returning 0.
It might be due to windows printing is routed through the spooler and we
always get the PrnStatus("LPT1::") as 0 unlike Clipper's ISPRINTER().

But the code you have given is very useful when we use Windows printers.

I have gone through so many articles in our forum and on the net. But
I did not find any replacement function/method or at least a workaround
way to replace Clipper's ISPRINTER() functionality for Windows Printers.

I use only TDosPrn() to print outputs in most my applications. Most of my
application users have used my clipper applications earlier and now using
windows application. They are normally not interested to know our
technical issues. They always take it granted that every thing is possible
to do in computers.

If you can suggest me any way out to test whether the printer is in it ON
state or OFF state before I issue a print command, I will be very happy.

Regards,

- Ramesh Babu P