FiveTech Support Forums

   oPrn := TDosPrn():New("lpt1")

// Adaptado para funcionar con Harbour y FWH

#include "FiveWin.ch"

function Main()

   TestPrn()
   
return nil

#pragma BEGINDUMP   

/**************************************************/
/***                                            ***/
/*** Test2.c  -- test interface to inpout32.dll ***/
/***  ( <!-- m --><a class="postlink" href="http://www.logix4u.net/inpout32.htm">http://www.logix4u.net/inpout32.htm</a><!-- m --> )   ***/
/***                                            ***/
/*** Copyright (C) 2005, Douglas Beattie Jr.    ***/
/***                                            ***/
/***    <beattidp@ieee.org>                     ***/
/***    http://www.hytherion.com/beattidp/      ***/
/***                                            ***/
/**************************************************/
/*  Last Update: 2006.05.14
 */

/*******************************************************/
/*                                                     */
/*  Builds with Borland's Command-line C Compiler      */
/*    (free for public download from Borland.com, at   */
/*  http://www.borland.com/bcppbuilder/freecompiler )  */
/*                                                     */
/*   Compile with:                                     */
/*                                                     */
/*   BCC32 -IC:\BORLAND\BCC55\INCLUDE  TEST2.C         */
/*                                                     */
/*                                                     */
/*  Be sure to change PPORT_BASE (Port Base address)   */
/*  accordingly if your LPT port is addressed          */
/*  elsewhere.                                         */
/*                                                     */
/*******************************************************/


#include <stdio.h>
#include <conio.h>
#include <windows.h>


/* Definitions in the build of inpout32.dll are:            */
/*   short _stdcall Inp32(short PortAddress);               */
/*   void _stdcall Out32(short PortAddress, short data);    */

/* prototype (function typedef) for DLL function Inp32: */

     typedef short (_stdcall *inpfuncPtr)(short portaddr);
     typedef void (_stdcall *oupfuncPtr)(short portaddr, short datum);

#define PPORT_BASE 0x378


// Prototypes for Test functions
void test_read8(void);
void test_write(void);
void test_write_datum(short datum);


/* After successful initialization, these 2 variables
   will contain function pointers.
 */
     inpfuncPtr inp32fp;
     oupfuncPtr oup32fp;


/* Wrapper functions for the function pointers
    - call these functions to perform I/O.
 */
     short  Inp32 (short portaddr)
     {
          return (inp32fp)(portaddr);
     }

     void  Out32 (short portaddr, short datum)
     {
          (oup32fp)(portaddr,datum);
     } 


HB_FUNC( TESTPRN )
{
     HINSTANCE hLib;

     short x;
     int i;


     /* Load the library */
     hLib = LoadLibrary("inpout32.dll");

     if (hLib == NULL) {
          fprintf(stderr,"LoadLibrary Failed.\n");
          // return -1;
     }

     /* get the address of the function */

     inp32fp = (inpfuncPtr) GetProcAddress(hLib, "Inp32");

     if (inp32fp == NULL) {
          fprintf(stderr,"GetProcAddress for Inp32 Failed.\n");
          // return -1;
     }


     oup32fp = (oupfuncPtr) GetProcAddress(hLib, "Out32");

     if (oup32fp == NULL) {
          fprintf(stderr,"GetProcAddress for Oup32 Failed.\n");
          // return -1;
     }


/*******************************************************/
/** IF WE REACHED HERE, INITIALIZED SUCCESSFUL    ******/
/*******************************************************/

     /* now test the functions */


     /***** Read 8 bytes at I/O base address */
     test_read8();


     /*****  Write 0x75 to data register and verify */
     test_write();



     /*****  One more time, different value */
     test_write_datum(0xAA);


     /* finished - unload library and exit */
     FreeLibrary(hLib);
     // return 0;
}

/*
   TEST:  Read inputs of 8 registers from PORT_BASE address
 */
void test_read8(void) {

     short x;
     int i;
     char buffer[ 100 ];

     /* Try to read 0x378..0x37F, LPT1:  */

     for (i=PPORT_BASE; (i<(PPORT_BASE+8)); i++) {

          x = Inp32(i);

          sprintf( buffer, "Port read (%04X)= %04X\n",i,x);
          MessageBox( 0, buffer, "OK", 0 );
     }

}

/*
   TEST:  Write constant 0x77 to PORT_BASE (Data register)
 */
void test_write(void) {
     short x;
     int i;
     char buffer[ 100 ];

     /*****  Write the data register */

     i=PPORT_BASE;
     x=0x75;

     /*****  Write the data register */
     Out32(i,x);

     sprintf(buffer, "Port write to 0x%X, datum=0x%2X\n" ,i ,x);
     MessageBox( 0, buffer, "OK", 0 );

     /***** And read back to verify  */
     x = Inp32(i);
     sprintf(buffer, "Port read (%04X)= %04X\n",i,x);
     MessageBox( 0, buffer, "OK", 0 );

     /*****  Set all bits high */
     x=0xFF;
     Out32(i,x);

     /*****  Now, set bi-directional and read again */
     Out32(PPORT_BASE+2,0x20);     // Activate bi-directional
     x = Inp32(i);
     sprintf(buffer, "Set Input, read (%04X)= %04X\n",i,x);
     MessageBox( 0, buffer, "OK", 0 );

     Out32(PPORT_BASE+2,0x00);     // Set Output-only again
     x = Inp32(i);
     sprintf(buffer, "Reset Ouput, read (%04X)= %04X\n",i,x);
     MessageBox( 0, buffer, "OK", 0 );


}

/*
   TEST:  Write data from parameter
 */
void test_write_datum(short datum) {
     short x;
     int i;
     char buffer[ 100 ];

     i=PPORT_BASE;
     x = datum;

     /*****  Write the data register */
     Out32(i,x);

     sprintf(buffer, "Port write to 0x%X, datum=0x%2X\n" ,i ,x);
     MessageBox( 0, buffer, "OK", 0 );

     /***** And read back to verify  */
     x = Inp32(i);
     sprintf(buffer, "Port read (%04X)= %04X\n",i,x);
     MessageBox( 0, buffer, "OK", 0 );
}

#pragma ENDDUMP