De *.C Para *.Obj en BCC74 no funciona más.

[leandro]

Excelente master Enrico muchas gracias, de nuestro lado tambien funcionó, lo de la lib curl

[Enrico Maria Giordano]

Great!

[jhnsnlb]

alguem poderia ajudar com este erro:
obs: BCC770 xharbour10276

[Enrico Maria Giordano]

Can I see the source TSCAN.PRG?

[jhnsnlb]

Code: Select all  Expand view

//  $Id: TSCAN.prg,v 1.1 2004/03/22 12:20:43 xthefull Exp $
// Example scanner, Class TSCAN32 and Wrappers for [x]Harbour
//    This program is free software; you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation; either version 2 of the License, or
//    (at your option) any later version.

//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.

//    You should have received a copy of the GNU General Public License
//    along with this software; see the file COPYING.  If not, write to
//    the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
//    Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).

//    The exception is that, if you link the class Tscan32 and Wrappers C with other
//    files to produce an executable, this does not by itself cause the
//    resulting executable to be covered by the GNU General Public License.
//    Your use of that executable is in no way restricted on account of
//    linking the Tscan32 and Wrappers library code into it.

// 2003(c)- Rafa Carmona( Thefull )
//
// interface to Dosadi EZTWAIN library by TheFull
// Interface para la libreria EZTWAIN de Dosadi por TheFull
// 32 bits

// ATENTION. THIS LICENSE NOT APLICATTE A EZTWAIN.
// YOUR VIEW LICENSE EZTW32.DLL IN WWW.DOSADI.COM

#INCLUDE "HBCLASS.CH"


// Returns the TWAIN Protocol State per the spec.
#define TWAIN_PRESESSION        1   // source manager not loaded
#define TWAIN_SM_LOADED         2   // source manager loaded
#define TWAIN_SM_OPEN           3   // source manager open
#define TWAIN_SOURCE_OPEN       4   // source open but not enabled
#define TWAIN_SOURCE_ENABLED    5   // source enabled to acquire
#define TWAIN_TRANSFER_READY    6   // image ready to transfer
#define TWAIN_TRANSFERRING      7   // image in transit

***************************************************************************
*
* CLASS TSCAN32
* 2003(c)- by Rafa Carmona ( TheFull )
* Beta 1.0
* Beta 2.0  New. Support Get ClipBoard to hDib.
*           New. ClipboardToFile( cFile ) -> Save File Jpg into Clipboard.
*
* Beta 3.0  New. ReWrite Method End, conflict GPFs  ;)
*
* Beta 4.0  Return parameters in format Logical. Change hb_retni() with hb_retl()
*
****************************************************************************

CLASS TSCAN32

      DATA hWnd
      DATA cFile
      DATA hDib
      DATA lError INIT .F.
      DATA nState
      DATA lBmp   INIT .F.

      METHOD New( cFile, hWnd ) CONSTRUCTOR
      METHOD End()
      METHOD Register()
      MESSAGE FreeNative METHOD End()
      MESSAGE Close      METHOD End()

      METHOD DigiToFile( cFile )
      METHOD DibToJpeg( cFile )  INLINE TW_DibWJpg( ::hDib, cFile )
      METHOD DibToBmp( cFile )   INLINE TW_DibWBmp( ::hDib, cFile )
      METHOD SetJpegQ( nQuality) INLINE TW_SetJpegQuality( nQuality )// 1..100 Default 75

      METHOD Acquire()           INLINE TW_Acquire( ::hWnd )
      METHOD AcquireClipBoard()  INLINE TW_AcquireToClipboard( ::hWnd , 0 )

      METHOD OpenDefault()
      METHOD OpenSource()
      METHOD EnableSource()     INLINE TW_EnableSource( ::hWnd )
      METHOD Choose()           INLINE TW_SelectImageSource()

      // **********    Basic TWAIN Inquiries **********************************
      METHOD IsAvailable()          INLINE TW_Avail()
      METHOD Version()              INLINE ( Str( TW_EasyVersion() / 100 ) )
      METHOD State()                INLINE (::nState := TW_State() )
      METHOD SourceName()           INLINE TW_SourceName()
      METHOD GetSourceName( cName ) INLINE TW_GetSourceName( cName )


      //************   Global Options *****************************************
      METHOD SetHide( lHide )     INLINE IIF( lHide , TW_SetHideUI(1), TW_SetHideUI(0) )


      //-*********** High-level Capability Negotiation Functions **************
      // These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)
      METHOD PixelType( nType ) INLINE ( ::State(),;
                                if( ::nState >= TWAIN_SOURCE_OPEN,;
                                                TW_SetCurrentPixelType( nType ),0 ) )
      METHOD SetRes( dRes )     INLINE ( ::State(),;
                                if( ::nState >= TWAIN_SOURCE_OPEN,;
                                                TW_SetCurrentResolution( dRes ),0) )
      METHOD SetXRes( dRes )            INLINE TW_SetXResolution( dRes )
      METHOD SetYRes( dRes )            INLINE TW_SetYResolution( dRes )
      METHOD SetUnits( nUnits )         INLINE TW_SETCURRENTUNITS( nUnits )
      METHOD SetContrats( dContrats)    INLINE TW_SETCONTRATS( dContrats  )
      METHOD SetBright( dBright )       INLINE TW_SETBRIGHTNESS( dBright )
      METHOD SetPaper( nPaper )         INLINE TW_SETPAPERSIZE( nPaper )
      METHOD GetResolution()            INLINE TW_GETCURRENTRESOLUTION()


      //******** Image Layout (Region of Interest) **********************
      METHOD RegionSet( nLeft,nTop, nRigth, nBottom )  INLINE TW_SetImageLayout( nLeft,nTop, nRigth, nBottom )
      METHOD RegionReset()                             INLINE TW_ResetImageLayout()
      METHOD RegionGet( L,T,R,B )                      INLINE TW_GetImageLayout(@L,@T,@R,@B)
      METHOD RegionGetDefault( L,T,R,B )               INLINE TW_GetDefaultImageLayout(@L,@T,@R,@B)

      METHOD ClipBoardToFile( cFile )
      METHOD DIB_GetFromClipboard() INLINE TW_DIB_GetFromClipboard()

      // feeader
      METHOD HasFeeder()    INLINE TW_HasFeeder()
      METHOD IsFeederLoad() INLINE TW_IsFeederLoaded()
      METHOD IsAutoFeedOn() INLINE TW_IsAutoFeedon()
      METHOD SetAutoFedd( lOnOff )  INLINE TW_SetAutoFedd( lOnOff )
      METHOD SelectFeeder( lOnOff )  INLINE TW_SelectFeeder( lOnOff )

ENDCLASS

***********************************************************
***********************************************************
METHOD New( cFile, hWnd ) CLASS TSCAN32

       IF Empty( hWnd )
          ::hWnd := GetActiveWindow()
       ENDIF

       IF Empty( cFile )
          ::cFile := "TestTscan32.jpg"
       ELSE
          ::cFile := cFile
       ENDIF


       IF !::IsAvailable()
          ::lError := .T.
         // MsgStop( "TWAIN no found","Attention!") // Only Fivewin
       ENDIF

       IF !::lError
          ::Register( 1,0,0,0,"1.0 Beta","by Rafa Carmona","Scan by Thefull","Scan For [x]Harbour" )
       ENDIF
       ::OpenSource()
       ::OpenDefault()

RETURN Self

**********************************************************************
* Comprueba que esta disponible TWAIN y cargalo
**********************************************************************
METHOD OpenSource() CLASS TSCAN32
   Local nResult := TW_LoadSourceManager()

   DO CASE
      CASE nResult = -1
           ::lError := .T.
           // MsgStop("Error Driver TWAIN"," ¿ Insufficient Memory ?")
           Return Self
   ENDCASE

Return Self

***********************************************************************
*  Abre TWAIN el ultimo que fue seleccionado desde Select ..Dialog
* Si no puede cargarlo solicita seleccionar Source.
***********************************************************************
METHOD OpenDefault() CLASS TSCAN32
       Local nResult := TW_OpenDefaultSource()

       DO CASE
          CASE nResult = 0
               ::Choose()
          CASE nResult = -1
               ::lError := .T.
          OTHERWISE
               ::lError := .F.
       ENDCASE

Return Self

**************************************************************************
* Liberamos hDib y cerramos el dispositivo
**************************************************************************
METHOD End() CLASS TSCAN32

   if !Empty( ::hDib )
      TW_Free( ::hDib )
   endif

   TW_CloseSourceManager( ::hWnd ) // Close para evitar GPF

Return NIL

***************************************************************************
* Registra la aplicacion
***************************************************************************
METHOD Register( nMajor ,nMinor,nLanguage,nCountry,cVersion,cName,cFamily,cProduct ) CLASS TSCAN32

       TW_REGISTERAPP( nMajor ,nMinor,nLanguage,nCountry,;
                       cVersion,cName,cFamily,cProduct )

Return Self

***********************************************************
* Digitaliza hacia un fichero .jpg
***********************************************************
METHOD DigiToFile( cFile )

       if EMPTY( cFile )
          cFile := ::cFile
       endif

       IF !::lError
          ::hDib := ::Acquire()         // Importar
       ENDIF

       IF !Empty( ::hDib )
          IF ::lBmp                      // Format bmp
             ::DibToBmp( cFile )       // Si no hacemos uso de BMP
          ELSE
             IF TW_IsJpg()              // Si puede hacer uso del JPG
                ::DibToJpeg( cFile )
             ELSE
                ::DibToBmp( cFile )       // Si no hacemos uso de BMP
             ENDIF
          ENDIF
       ENDIF

Return Self


************************************************************************
* Save content clipboard into to file.jpg
************************************************************************
METHOD ClipBoardToFile( cFile ) CLASS TSCAN32
       Local hDib, nError

       IF Empty( cFile )
          ::cFile := "TestTscan32.jpg"
       ELSE
          ::cFile := cFile
       ENDIF

        hDib := ::DIB_GetFromClipboard()


       IF !Empty( hDib )

           IF ::lBmp
              TW_DibWBmp(  hDib, ::cFile )
           ELSE
              IF TW_IsJpg()              // Si puede hacer uso del JPG
                 TW_DibWJpg( hDib,  ::cFile )
              ELSE
                 TW_DibWBmp(  hDib, ::cFile )
              ENDIF
           ENDIF

           TW_Free( hDib )

       ENDIF

RETURN Self
/* -----------------------------------------------------------------
  Implementation Language C for [x]Harbour(WIN32)
  2003(c)- by Rafa Carmona ( TheFull )

  Wrappers for EZTW32.DLL the DosAdi.

-------------------------------------------------------------------- */
#pragma BEGINDUMP

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


/*--------- Top-Level Calls -------------------------------------*/

 HB_FUNC( TW_ACQUIRE )  // hWnd
 {
  hb_retnl( ( LONG )TWAIN_Acquire( ( HWND ) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_FREE )     // hDib
 {
  TWAIN_FreeNative( ( HANDLE ) hb_parnl( 1 ) );
  hb_ret();
 }

 HB_FUNC( TW_SELECTIMAGESOURCE )  // hWnd
 {
  hb_retni( TWAIN_SelectImageSource( ( HWND ) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_ACQUIRENATIVE )  // hWnd, nPixTypes
 {
  hb_retnl( ( LONG )TWAIN_AcquireNative( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );
 }

 HB_FUNC( TW_ACQUIRETOCLIPBOARD )  // hWnd, nPixTypes
 {
  hb_retl( TWAIN_AcquireToClipboard( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );
 }

 HB_FUNC( TW_ACQUIREMEMORY )  // hWnd
 {
  hb_retnl( ( LONG )TWAIN_AcquireMemory( ( HWND ) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_ACQUIRETOFILENAME )  // hWnd, cFileName
 {
  hb_retni( TWAIN_AcquireToFilename( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ) ) );
 }

 HB_FUNC( TW_ACQUIREFILE )  // hWnd, nFF, cFileName
 {
  hb_retni( TWAIN_AcquireFile( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ) ,hb_parc( 3 ) ) );
 }


//--------- Basic TWAIN Inquiries

 HB_FUNC( TW_AVAIL )
 {
  hb_retl( TWAIN_IsAvailable()  );
 }

 HB_FUNC( TW_EASYVERSION)
 {
  hb_retni( TWAIN_EasyVersion()  );
 }

 HB_FUNC( TW_STATE )
 {
  hb_retni( TWAIN_State() );
 }

 HB_FUNC( TW_SOURCENAME )
 {
  hb_retc( TWAIN_SourceName() );
 }

 HB_FUNC( TW_GETSOURCENAME )   // pzName
 {
  TWAIN_GetSourceName( (LPSTR) hb_parc( 1 ) );
  hb_ret();
 }


//--------- DIB handling utilities ---------

 HB_FUNC( TW_DIBWJPG ) // hDib, cName
 {
  hb_parni( DIB_WriteToJpeg( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );
 }

 HB_FUNC( TW_DIBWBMP ) // hDib, cName
 {
  hb_parni( DIB_WriteToBmp( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );
 }


//--------- File Read/Write

 HB_FUNC( TW_ISJPG )
 {
  hb_retl( TWAIN_IsJpegAvailable() );
 }

 HB_FUNC( TW_SETSAVEFORMAT )
 {
  hb_retni( TWAIN_SetSaveFormat( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_GETSAVEFORMAT )
 {
  hb_retni( TWAIN_GetSaveFormat() );
 }

 HB_FUNC( TW_SETJPEGQUALITY ) // nQuality 1...100
 {
  TWAIN_SetJpegQuality( hb_parni( 1 ) );
  hb_ret();
 }

 HB_FUNC( TW_GETJPEGQUALITY )
 {
  hb_retni( TWAIN_GetJpegQuality() );
 }

 HB_FUNC( TW_WRITENATIVETOFILENAME )
 {
  hb_retni( TWAIN_WriteNativeToFilename( (HANDLE) hb_parnl(1), hb_parc(2) ));
 }

 HB_FUNC( TW_LOADNATIVEFROMFILENAME )
 {
  hb_retnl( (LONG) TWAIN_LoadNativeFromFilename( hb_parc( 1 ) ) );
 }



//--------- Global Options ----------------------------------------------
 HB_FUNC( TW_SETMULTITRANSFER )
 {
  TWAIN_SetMultiTransfer( hb_parni( 1 ) );
  hb_ret();
 }

 HB_FUNC( TW_GETMULTITRANSFER )
 {
  hb_retni( TWAIN_GetMultiTransfer() );
 }

 HB_FUNC( TW_SETHIDEUI  ) // nHide
 {
  TWAIN_SetHideUI( hb_parni( 1) );
  hb_ret();
 }

 HB_FUNC( TW_GETHIDEUI  )
 {
  hb_retni( TWAIN_GetHideUI() );
 }


 HB_FUNC( TW_DISABLEPARENT )
 {
  TWAIN_DisableParent( hb_parni( 1 ) );
  hb_ret();
 }

 HB_FUNC( TW_GETDISABLEPARENT )
 {
  hb_retni( TWAIN_GetDisableParent() );
 }

 HB_FUNC( TW_REGISTERAPP )
 {

 TWAIN_RegisterApp( hb_parni(1),hb_parni(2),hb_parni(3),hb_parni(4),
                    hb_parc(5), hb_parc(6),
                    hb_parc(7), hb_parc(8) );
 hb_ret();
 }

 HB_FUNC( TW_SETAPPTITLE )
 {
  TWAIN_SetAppTitle( hb_parc( 1 ) );
  hb_ret();
 }




//--------- TWAIN State Control ---------------------------------------

 HB_FUNC( TW_LOADSOURCEMANAGER )
 {
  hb_retni( TWAIN_LoadSourceManager() );
 }

 HB_FUNC( TW_OPENSOURCEMANAGER )  // hWnd
 {
  hb_retni( TWAIN_OpenSourceManager( ( HWND ) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_OPENDEFAULTSOURCE )
 {
  hb_retni( TWAIN_OpenDefaultSource() );
 }

 HB_FUNC( TW_GETSOURCELIST )
 {
  hb_retni( TWAIN_GetSourceList() );
 }

 HB_FUNC( TW_GETNEXTSOURCENAME )
 {
  hb_retni( TWAIN_GetNextSourceName( hb_parc( 1 ) ) );
 }

 HB_FUNC( TW_GETDEFAULTSOURCENAME )
 {
  hb_retni( TWAIN_GetDefaultSourceName( hb_parc( 1 ) ));
 }

 HB_FUNC( TW_OPENSOURCE )
 {
  hb_retni( TWAIN_OpenSource( hb_parc( 1 ) ) );
 }

 HB_FUNC( TW_ENABLESOURCE )       // hWnd
 {
  hb_retni( TWAIN_EnableSource( ( HWND ) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_DISABLESOURCE )
 {
  hb_retni( TWAIN_DisableSource( ) );

 }

 HB_FUNC( TW_CLOSESOURCE )
 {
  hb_retni( TWAIN_CloseSource() );
 }

 HB_FUNC( TW_CLOSESOURCEMANAGER )
 {
  hb_retni( TWAIN_CloseSourceManager( (HWND) hb_parnl( 1 ) ) );
 }

 HB_FUNC( TW_UNLOADSOURCEMANEGER )
 {
  hb_retni( TWAIN_UnloadSourceManager() );
 }



//--------- High-level Capability Negotiation Functions --------------
// These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)

 HB_FUNC( TW_GETCURRENTUNITS )
 {
  hb_retni( TWAIN_GetCurrentUnits() );
 }

 HB_FUNC( TW_SETCURRENTUNITS ) // nUnits
 {
  hb_retni( TWAIN_SetCurrentUnits( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_GETBITDEPTH )
 {
  hb_retni( TWAIN_GetBitDepth() );
 }

 HB_FUNC( TW_SETBITDEPTH )
 {
  hb_retni( TWAIN_SetBitDepth( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_GETPIXELTYPE )
 {
  hb_retni( TWAIN_GetPixelType() );
 }

 HB_FUNC( TW_SETCURRENTPIXELTYPE )  // nBits
 {
  hb_retni( TWAIN_SetCurrentPixelType( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_GETCURRENTRESOLUTION )
 {
  hb_retnd( TWAIN_GetCurrentResolution());
 }

 HB_FUNC( TW_GETYRESOLUTION )
 {
  hb_retnd( TWAIN_GetYResolution());
 }

 HB_FUNC( TW_SETCURRENTRESOLUTION )  // dRes
 {
  hb_retni( TWAIN_SetCurrentResolution( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_SETXRESOLUTION )
 {
  hb_retni( TWAIN_SetXResolution( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_SETYRESOLUTION )
 {
  hb_retni( TWAIN_SetYResolution( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_SETCONTRATS ) //dCon
 {
  hb_retni( TWAIN_SetContrast( hb_parnd( 1 ) ) ); // -1000....+1000
 }

 HB_FUNC( TW_SETBRIGHTNESS ) //dBri
 {
  hb_retni( TWAIN_SetBrightness( hb_parnd( 1 ) ) ); // -1000....+1000
  }

 HB_FUNC( TW_SETTHRESHOLD )
 {
  hb_retni( TWAIN_SetThreshold( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_GETCURRENTTHRESHOLD )
 {
  hb_retnd( TWAIN_GetCurrentThreshold() );
 }

 HB_FUNC( TW_SETXFERMECH )
 {
  hb_retni( TWAIN_SetXferMech( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_XFERMECH )
 {
  hb_retni( TWAIN_XferMech() );
 }

 HB_FUNC( TW_SUPPORTSFILEXFER )
 {
  hb_retni( TWAIN_SupportsFileXfer() );
 }

 HB_FUNC( TW_SETPAPERSIZE ) // nTypePaper
 {
  hb_retni( TWAIN_SetPaperSize( hb_parni( 1 ) ) );
 }

//-------- Document Feeder ---------------------------------

 HB_FUNC( TW_HASFEEDER )
 {
  hb_retl( TWAIN_HasFeeder() );
 }

 HB_FUNC( TW_ISFEEDERSELECTED )
 {
  hb_retl( TWAIN_IsFeederSelected() );
 }

 HB_FUNC( TW_SELECTFEEDER )
 {
  hb_retl( TWAIN_SelectFeeder( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_ISAUTOFEEDON )
 {
  hb_retl( TWAIN_IsAutoFeedOn() );
 }

 HB_FUNC( TW_SETAUTOFEDD )
 {
  hb_retl( TWAIN_SetAutoFeed( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_ISFEEDERLOADED )
 {
  hb_retl( TWAIN_IsFeederLoaded() );
 }

//-------- Duplex Scanning ------------------------------------------
 HB_FUNC( TW_GETDUPLEXSUPPORT )
 {
  hb_retni( TWAIN_GetDuplexSupport() );
 }

 HB_FUNC( TW_ENABLEDUPLEX )
 {
  hb_retni( TWAIN_EnableDuplex( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_ISDUPLEXENABLED )
 {
  hb_retl( TWAIN_IsDuplexEnabled() );
 }

//--------- Other 'exotic' capabilities --------

 HB_FUNC( TW_HASCONTROLLABLEUI )
 {
  hb_retni( TWAIN_HasControllableUI() );
 }

 HB_FUNC( TW_SETINDICATORS )
 {
  hb_retni( TWAIN_SetIndicators( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_COMPRESSION )
 {
  hb_retni( TWAIN_Compression() );
 }

 HB_FUNC( TW_SETCOMPRESSION )
 {
  hb_retni( TWAIN_SetCompression( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_TILED )
 {
  hb_retl( TWAIN_Tiled() );
 }

 HB_FUNC( TW_SETTILED )
 {
  hb_retni( TWAIN_SetTiled( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_PLANARCHUNKY )
 {
  hb_retni( TWAIN_PlanarChunky() );
 }

 HB_FUNC( TW_SETPLANARCHUNKY )
 {
  hb_retni( TWAIN_SetPlanarChunky( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_PIXELFLAVOR )
 {
  hb_retni( TWAIN_PixelFlavor() );
 }

 HB_FUNC( TW_SETPIXELFLAVOR )
 {
  hb_retni( TWAIN_SetPixelFlavor( hb_parni( 1 ) ) );
 }

 HB_FUNC( TW_SETLIGHTPATH )
 {
  hb_retni( TWAIN_SetLightPath( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_SETAUTOBRIGHT )
 {
  hb_retni( TWAIN_SetAutoBright( hb_parl( 1 ) ) );
 }

 HB_FUNC( TW_SETGAMMA )
 {
  hb_retni( TWAIN_SetGamma( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_SETSHADOW )
 {
  hb_retni( TWAIN_SetShadow( hb_parnd( 1 ) ) );
 }

 HB_FUNC( TW_SETHIGHLIGHT )
 {
  hb_retni( TWAIN_SetHighlight( hb_parnd( 1 ) ) );
 }
//--------- Image Layout (Region of Interest) --------


 HB_FUNC( TW_SETIMAGELAYOUT )   // left, top, right, bottom
 {
  hb_retni( TWAIN_SetImageLayout( hb_parnd( 1 ),hb_parnd( 2 ),hb_parnd( 3 ),hb_parnd( 4 ) ) );
 }

 HB_FUNC( TW_RESETIMAGELAYOUT )
 {
  TWAIN_ResetImageLayout();
  hb_ret();
 }

 HB_FUNC( TW_GETIMAGELAYOUT )
 {
  double L,T,R,B;
  int nRet;

  nRet = TWAIN_GetImageLayout( &L,&T,&R,&B );

  hb_stornd( L, 1 );
  hb_stornd( T, 2 );
  hb_stornd( R, 3 );
  hb_stornd( B, 4 );
  hb_retni( nRet );
 }

 HB_FUNC( TW_GETDEFAULTIMAGELAYOUT )
 {
  double L,T,R,B;
  int nRet;

  nRet = TWAIN_GetDefaultImageLayout( &L, &T, &R, &B);

  hb_stornd( L, 1 );
  hb_stornd( T, 2 );
  hb_stornd( R, 3 );
  hb_stornd( B, 4 );
  hb_retni( nRet );
 }

//HANDLE EZTAPI DIB_GetFromClipboard(void);
HB_FUNC( TW_DIB_GETFROMCLIPBOARD )
{
 hb_retnl( (LONG) DIB_GetFromClipboard() );
}

// para no depender de Five, y harbour poder el solito trabajar ;)
 HB_FUNC ( GETACTIVEWINDOW )
 {
  hb_retnl( ( LONG ) GetActiveWindow() );
 }

#pragma ENDDUMP


/*
  TWAIN.
  Bajo estas siglas se esconde la tecnologica de adquisicion de imagen
  desde cualquier tipo de dispositivo que cumpla dicho standar, como
  puede ser el dispositivo mas comun, el scanner, a otros como las camaras
  WebCam.

  En este capitulo veremos las posibilidades qe tenemos nosotros , vil
  progrmador de Harbour&Fivewin, de aprovecharnos.

  He de decir que nosotros usaremos un 'atajo'. Dicho 'atajo' sera hacer
  uso de un par de DLL que a parte de cumplir nuestro requisito , que es
  ni mas ni menos que controlar un dispositivo que cumpla la norma TWAIN,
  nos hara la programacion muchisimo mas sencilla.

  La primera DLL a usar sera EZTW32.DLL, de la compañia dosadi.
  Dicha DLL nos brinda la posibilidad de conectar con el standard TWAIN
  de  una forma mucho mas simple.
  He de decir que es perfectamente posible programar el TWAIN directamente,
  ahora bien, no creo que el esfuerzo invertido merezca la pena teniendo
  dicha DLL a nuestro alcance.

  La segunda es ij11.dll de la casa Intel. Dicha libreria es usada por
  la dll EZTW32.DLL para guardar la imagen obtenido a un fichero JPEG.
  Si no tuvieramos dicha ij11.dll, simplemente se guardara en formato BMP.

  Teniendo en cuenta todo esto, empezaremos a explicar la clase de mi
  creacion: TSCAN32.

  El motivo principal a que me ha llevado a crear la interface con el
  driver TWAIN son dos:

   1.- La clase TScan de 16 bits que viene con Fivewin, en determinados
       momentos no funciona como deberia de funcionar.

   2.- La salida no era posible guardala como formato JPEG.

   Asi que os podeis imaginar las mejoras de la nueva clase con respecto
   a la de 16 bits:

   1.- 32 Bits
   2.- Interface en lenguaje C.
   3.- Graba en JPEGS o directamente al portapapeles!!!
   4.- Realmente funciona!!! ;-)

   Veamos pues todo el entramado en codigo fuente.

   Creacion de un objeto TScan y scaneando:

      oScan := TScan32():New( cFile )
      oScan:DigiToFile()

   Y esto es todo lo que tienes que escribir!!
   Realmente fantastico, no crees ?

   Ahora bien, como es logico de suponer , quizas nos interese escoger
   que tipo de salida queremos, dimensiones, etc..., como por ejemplo:

      oScan:PixelType( TWPT_GRAY  )  // TWPT_GRAY  = 1

   con esta simple instruccion estamos definiendo que el dispositivo
   capture en Escala de Grises!
   Realmente esto no podria ser mas simple!

   Teneis disponible un ejemplo donde vereis como podemos escanear y
   visualizar lo que hemos escaneado para que veais que con cuatro lineas
   de codigo podemos hacer cosas muy potente.

   Ahora bien, os preguntareis como funciona el chiringuito, pues pasemos
   a ver como esta construido y el porque.

   CLASE TSCAN32. Variables de Instancia y metodos.

   La clase TScan32 te encapsula todo el funcionamiento interno para que
   a la hora de escribir tu aplicacion , el coste de implementacion sea
   minimo, y ya lo creo que es minimo!!! 2 Lineas de programacion y
   tienes tu aplicacion disponible para escanner desde scanners,webcam,etc...

   Aqui detallare los metodos mas interesantes o mas comunes, aunque en
   la implementacion en C realice un largo y tedioso trabajo y esta el
   95% portada para que puedas hacer uso si ese es tu deseo.

   DATAs:
      DATA hWnd
           Handle de la ventana padre.
      DATA cFile
           Nombre del fichero resultante.
      DATA hDib
           Handle del DIB
      DATA lError INIT .F.
           Indica si se ha producido un error
      DATA nState
           Indica en que estado se encuentra el dispositivo TWAIN
      DATA lBmp   INIT .F.
           Indica qe quiero salida BMP si es .T.


   METHODs:

      New( cFile, hWnd ) CONSTRUCTOR
      Inicializa el dispositivo TWAIN.
         cFile := Nombre del Fichero resultante
          hWnd := Handle de la ventana padre

      End(), FreeNative , Close
      Cierra el dispositivo TWAIN y libera hDib.

      Register()
      Registra la aplicacion.

      DigiToFile( cFile )
      Digitaliza directamente a un fichero.
         cFile := Fichero resultante opcional.
                  Por defecto es ::cFile

      DibToJpeg( cFile )  y DibToBmp( cFile )
      Guarda el contenido del resultado de la adquisicion, hDib,
      en un fichero JPEG o BMP

      SetJpegQ( nQuality)
      Calidad del JPEG. Por defecto es 75.
      El baremo es entre 1...100 , siendo 100 maxima calidad.

      Acquire()
      Digilitaliza. Devuelve un DIB.

      AcquireClipBoard()
      Digilitaliza directamente al portapapeles.
      Devuelve .T. o .F. dependiendo si hay error o no.

      OpenDefault()
      Abre TWAIN el ultimo que fue seleccionado desde Select ..Dialog
      Si no puede cargarlo solicita seleccionar Source.

      OpenSource()
      Comprueba que esta disponible TWAIN y lo carga si no estuviera cargado

      Choose()
      Permite seleccionar la fuente desde donde vamos a adquirir.


      IsAvailable()
      Devuelve si esta o no disponible TWAIN en el sistema

      Version()
      Devuelve Version de la DLL de DosAdi.

      State()
      Devuelve el estado del dispositivo.


      SetHide( lHide )
      Oculta UI del escanner.


      Estos metodos solamente pueden ser llamados cuando el dispositvo TWAIN
      se encuentro en un Estado 4  (TWAIN_SOURCE_OPEN)

      PixelType( nType )
      Tipo de scaneo del dispositivo.
        #define TWPT_BW          0  Blanco/Negro
        #define TWPT_GRAY        1  Escala de Grises
        #define TWPT_RGB         2  Color Real
        #define TWPT_PALETTE     3  Color Paleta.


      SetRes( dRes )
      Prepara resolucion a capturar en el dispositivo.

      SetXRes( dRes )  y SetYRes( dRes )
      Prepara resolucion Horizontal y Vertical del dispositivo.

      SetUnits( nUnits )
      Sistema de Medida. Atencion, no todos los dispositivos admiten
      alguna medida de estas, pero todos si que admiten inches.
        #define TWUN_INCHES      0
        #define TWUN_CENTIMETERS 1
        #define TWUN_PICAS       2
        #define TWUN_POINTS      3
        #define TWUN_TWIPS       4
        #define TWUN_PIXELS      5

      SetContrats( dContrats)
      Contraste del dispositivo.

      SetBright( dBright )
      Brillo del dispositivo.

      SetPaper( nPaper )
      Seleccionar tipo de papel , tamaño, del dispositivo,
      Por poner unos pocos, si quieres mas tipo mirate  TWSS_* en TWAIN.H
         #define PAPER_A4LETTER    1
         #define PAPER_B5LETTER    2
         #define PAPER_USLETTER    3
         #define PAPER_USLEGAL     4
         #define PAPER_A5          5
         #define PAPER_B4          6
         #define PAPER_B6          7
         #define PAPER_USLEDGER    9
         #define PAPER_USEXECUTIVE 10
         #define PAPER_A3          11
         #define PAPER_B3          12
         #define PAPER_A6          13
         #define PAPER_C4          14
         #define PAPER_C5          15
         #define PAPER_C6          16

      GetResolution()
      Devuelve que resolucion actualmente tiene el dispositivo.


      Con estos metodos que acontinuacion veremos , podemos seleccionar
      una porcion de la region a adquirir.

      RegionSet( nLeft,nTop, nRigth, nBottom )
      Selecciona una region para adquirir.

      METHOD RegionReset()
      Restaura a la region que habia por defecto, toda la superficie.

      RegionGet( L,T,R,B )
      Devuelve en las variables la porciones de la region actualmente definidas.
      El uso es muy simple:

      Local L,T,R,B  // Left,Top,Rigth y Bottom, logicamente ;)
      oScan := oScan:New()
      oScan:RegionGet(@L,@T,@R,@B), obteniendo el resultado en las misma variables
      pasadas por referencia.

      RegionGetDefault( L,T,R,B )
      Devuelve los valores de la region por defecto. El mismo ejemplo del method
      RegionGet es aplicable a este.


      Y para finalizar , un par de metodos muy utiles:

      ClipBoardToFile( cFile )
      Guarda el contenido del portapapeles en un fichero.

      DIB_GetFromClipboard()
      Coge el contenido del portapapeles ,DIB., y lo asigna a hDib.

      Como podeis observar , esto es mas que suficiente para dotar a nuestras
      aplicaciones Fivewin&Harbour de capacidades de TWAIN.

      Otro aspecto a tener em cuenta son las funciones en C, pero que se
      escapan a la teoria de este libro.

      Quien realemente esta mas interesado en saber sobre TWAIN, vaya a
      internet y realice una busqueda.
      Creo que para nosotros , programadores de Fivewin, esto es mucho
      mas que suficiente y ya les gustaria a mas de uno de otros lenguajes
      de programacion tener esto a su alcance tan facil como aqui he explicado.

      Los wrappers en C los teneis disponibles junto en el fichero de la clase
      TSCAN32 para los que quieran ver el interior o modificarlo a su gusto.

      Teneis portadas 90 funciones desde C para que hagais uso desde harbour.

      Como comentario final, he de decir que a sido probado y con exito en
      scanners paralelos, usb y SCSI, asi como camaras WebCam.


   */








*/

 

[Enrico Maria Giordano]

Can I see the declarations of the functions

Code: Select all  Expand view

TWAIN_GetNextSourceName()
TWAIN_GetDefaultSourceName()

?

[jhnsnlb]

Bcc74 working fine

Code: Select all  Expand view

HBDIR=e:\xhrb77
BCDIR=e:\bcc77
FWDIR=.\..
SQLRDD=$(FWDIR)\sqlrdd

#change these paths as needed
.path.OBJ = .\obj
.path.PRG = .\;$(FWDIR)\MULTISQL\BARLIB;$(FWDIR)\MULTISQL\HBOLETO;$(FWDIR)\MULTISQL\QSCANNER\SOURCE
.path.CH  = $(FWDIR)\include;$(HBDIR)\include
.path.C   = .\
.path.rc  = .\

#important: Use Uppercase for filenames extensions, in the next two rules!
PRG =    \
SIAV.PRG    \
ACBREMAIL.PRG \
ACBRSAT.PRG \
ACBRNFE.PRG \
ACBRBOLETO.PRG \
ACBRMDFE.PRG \
ERRSYSW.PRG \
XBROWSE.PRG \
RPREVIEW.PRG \
REPORT.PRG  \
PRINTER.PRG \
TXTVIEW.PRG \
TDOSPRN.PRG \
TRCALC.PRG  \
FUNC01.PRG  \
TGRAPH.PRG  \
CRIDB1.PRG  \
CRIDB2.PRG  \
ABRI01.PRG  \
INDI01.PRG  \
ATOR01.PRG  \
CONF01.PRG  \
USUA01.PRG  \
PESQ01.PRG  \
CAXA01.PRG  \
CENT01.PRG  \
RCEN01.PRG  \
CTCX01.PRG  \
RCTC01.PRG  \
NATU01.PRG  \
RNAT01.PRG  \
AGEN01.PRG  \
RAGE01.PRG  \
FORN01.PRG  \
RFOR01.PRG  \
VEND01.PRG  \
RVEN01.PRG  \
TRAN01.PRG  \
RTRA01.PRG  \
COND01.PRG  \
RCON01.PRG  \
FAMI01.PRG  \
RFAM01.PRG  \
CLIE01.PRG  \
RCLI01.PRG  \
RCLI02.PRG  \
RCLI03.PRG  \
RCLI04.PRG  \
RCLI05.PRG  \
RCLI06.PRG  \
RCLI08.PRG  \
HIST01.PRG  \
RECI03.PRG  \
PROD01.PRG  \
RPRO01.PRG  \
RPRO02.PRG  \
RPRO03.PRG  \
RPRO04.PRG  \
RPRO05.PRG  \
RPRO07.PRG  \
RPRO08.PRG  \
RPRO09.PRG  \
RPRO10.PRG  \
RPRO11.PRG  \
RPRP01.PRG  \
RPRO06.PRG  \
FNCN01.PRG  \
FFNC01.PRG  \
RFNC01.PRG  \
RECE01.PRG  \
RCOR01.PRG  \
RCOR02.PRG  \
RCOR03.PRG  \
RCOR04.PRG  \
RCOR05.PRG  \
RCOR06.PRG  \
RCOR12.PRG  \
IMBR01.PRG  \
RECI01.PRG  \
DUPL01.PRG  \
RCOM01.PRG  \
RFLU01.PRG  \
RFLU02.PRG  \
GRAF01.PRG  \
GRAF02.PRG  \
GRAF03.PRG  \
GRAF04.PRG  \
GRAF05.PRG  \
CAIX01.PRG  \
RCAI01.PRG  \
RCAI02.PRG  \
RCAI03.PRG  \
RCAI04.PRG  \
CHEQ01.PRG  \
RCHE01.PRG  \
RCHE02.PRG  \
RCHE03.PRG  \
RCHE04.PRG  \
CHEQ02.PRG  \
RCH101.PRG  \
RCH102.PRG  \
PAGA01.PRG  \
RPAG01.PRG  \
RPAG02.PRG  \
RPAG03.PRG  \
RPAG04.PRG  \
RPAG05.PRG  \
ESTO01.PRG  \
REST01.PRG  \
REST02.PRG  \
RORP01.PRG  \
PEDI01.PRG  \
PEPR01.PRG  \
RPED01.PRG  \
RPED03.PRG  \
RPED05.PRG  \
RPED06.PRG  \
RPED08.PRG  \
RPED12.PRG  \
RPED14.PRG  \
RPED17.PRG  \
RPED18.PRG  \
RPED25.PRG  \
RPED38.PRG  \
RPED41.PRG  \
RECI02.PRG  \
RORP02.PRG  \
RROM01.PRG  \
RROM02.PRG  \
RROM03.PRG  \
RROM04.PRG  \
RROM05.PRG  \
RROM06.PRG  \
RROM07.PRG  \
RROM08.PRG  \
RROM09.PRG  \
RROM10.PRG  \
RROM11.PRG  \
RROM13.PRG  \
RCOM05.PRG  \
BALC01.PRG  \
RBAL01.PRG  \
RBAL02.PRG  \
RBAL03.PRG  \
RBAL04.PRG  \
RBAL05.PRG  \
RBAL06.PRG  \
RCOM03.PRG  \
COMP01.PRG  \
RCMP01.PRG  \
RCMP02.PRG  \
RCMP04.PRG  \
RCMP05.PRG  \
RCMP06.PRG  \
GRCM01.PRG  \
NFEE01.PRG  \
MDFE01.PRG  \
CTEE01.PRG  \
RNFE01.PRG  \
MANI01.PRG  \
COMB01.PRG  \
RCMB01.PRG  \
PECA01.PRG  \
RPEC01.PRG  \
MPVE01.PRG  \
RMPV01.PRG  \
ORSE01.PRG  \
RORS01.PRG  \
RORS02.PRG  \
RORS03.PRG  \
EMAIL.PRG   \
ZAP.PRG     \
VONFE2G_V4.PRG     \
VONFEUTIL2G_V4.PRG \
NFEFLEXUTIL.PRG \
VOIMPOSTO.PRG   \
GXML01.PRG      \
TINATIVO.PRG    \
CODABAR.PRG     \
CODE3DE9.PRG    \
CODE128.PRG     \
EAN13.PRG       \
GO_CODE.PRG     \
INT25.PRG       \
BARLIB.PRG      \
BOLE01.PRG      \
COBREBEM.PRG    \
ORETORNO.PRG    \
DISPLAY.PRG     \
WEBCAM.PRG      \
QSCANNER2.PRG   \
TSCAN.PRG       \
A_SCAN.PRG      \
TAQ_SELEAREA.PRG

PROJECT : siav.exe

siav.exe  : $(PRG:.PRG=.OBJ) siav.res
   echo $(BCDIR)\lib\c0w32.obj + > b32.bc
   echo obj\SIAV.OBJ  + >> b32.bc
   echo obj\ACBREMAIL.OBJ  + >> b32.bc
   echo obj\ACBRSAT.OBJ  + >> b32.bc
   echo obj\ACBRNFE.OBJ  + >> b32.bc
   echo obj\ACBRBOLETO.OBJ  + >> b32.bc
   echo obj\ACBRMDFE.OBJ  + >> b32.bc
   echo obj\ERRSYSW.OBJ  + >> b32.bc
   echo obj\XBROWSE.OBJ  + >> b32.bc
   echo obj\RPREVIEW.OBJ  + >> b32.bc
   echo obj\REPORT.OBJ  + >> b32.bc
   echo obj\PRINTER.OBJ  + >> b32.bc
   echo obj\TXTVIEW.OBJ  + >> b32.bc
   echo obj\TDOSPRN.OBJ  + >> b32.bc
   echo obj\TRCALC.OBJ  + >> b32.bc
   echo obj\FUNC01.OBJ  + >> b32.bc
   echo obj\TGRAPH.OBJ  + >> b32.bc
   echo obj\CRIDB1.OBJ  + >> b32.bc
   echo obj\CRIDB2.OBJ  + >> b32.bc
   echo obj\ABRI01.OBJ  + >> b32.bc
   echo obj\INDI01.OBJ  + >> b32.bc
   echo obj\ATOR01.OBJ  + >> b32.bc
   echo obj\CONF01.OBJ  + >> b32.bc
   echo obj\USUA01.OBJ  + >> b32.bc
   echo obj\PESQ01.OBJ  + >> b32.bc
   echo obj\CAXA01.OBJ  + >> b32.bc
   echo obj\CENT01.OBJ  + >> b32.bc
   echo obj\RCEN01.OBJ  + >> b32.bc
   echo obj\CTCX01.OBJ  + >> b32.bc
   echo obj\RCTC01.OBJ  + >> b32.bc
   echo obj\NATU01.OBJ  + >> b32.bc
   echo obj\RNAT01.OBJ  + >> b32.bc
   echo obj\AGEN01.OBJ  + >> b32.bc
   echo obj\RAGE01.OBJ  + >> b32.bc
   echo obj\FORN01.OBJ  + >> b32.bc
   echo obj\RFOR01.OBJ  + >> b32.bc
   echo obj\VEND01.OBJ  + >> b32.bc
   echo obj\RVEN01.OBJ  + >> b32.bc
   echo obj\TRAN01.OBJ  + >> b32.bc
   echo obj\RTRA01.OBJ  + >> b32.bc
   echo obj\COND01.OBJ  + >> b32.bc
   echo obj\RCON01.OBJ  + >> b32.bc
   echo obj\FAMI01.OBJ  + >> b32.bc
   echo obj\RFAM01.OBJ  + >> b32.bc
   echo obj\CLIE01.OBJ  + >> b32.bc
   echo obj\RCLI01.OBJ  + >> b32.bc
   echo obj\RCLI02.OBJ  + >> b32.bc
   echo obj\RCLI03.OBJ  + >> b32.bc
   echo obj\RCLI04.OBJ  + >> b32.bc
   echo obj\RCLI05.OBJ  + >> b32.bc
   echo obj\RCLI06.OBJ  + >> b32.bc
   echo obj\RCLI08.OBJ  + >> b32.bc
   echo obj\HIST01.OBJ  + >> b32.bc
   echo obj\RECI03.OBJ  + >> b32.bc
   echo obj\PROD01.OBJ  + >> b32.bc
   echo obj\RPRO01.OBJ  + >> b32.bc
   echo obj\RPRO02.OBJ  + >> b32.bc
   echo obj\RPRO03.OBJ  + >> b32.bc
   echo obj\RPRO04.OBJ  + >> b32.bc
   echo obj\RPRO05.OBJ  + >> b32.bc
   echo obj\RPRO07.OBJ  + >> b32.bc
   echo obj\RPRO08.OBJ  + >> b32.bc
   echo obj\RPRO09.OBJ  + >> b32.bc
   echo obj\RPRO10.OBJ  + >> b32.bc
   echo obj\RPRO11.OBJ  + >> b32.bc
   echo obj\RPRP01.OBJ  + >> b32.bc
   echo obj\RPRO06.OBJ  + >> b32.bc
   echo obj\FNCN01.OBJ  + >> b32.bc
   echo obj\FFNC01.OBJ  + >> b32.bc
   echo obj\RFNC01.OBJ  + >> b32.bc
   echo obj\RECE01.OBJ  + >> b32.bc
   echo obj\RCOR01.OBJ  + >> b32.bc
   echo obj\RCOR02.OBJ  + >> b32.bc
   echo obj\RCOR03.OBJ  + >> b32.bc
   echo obj\RCOR04.OBJ  + >> b32.bc
   echo obj\RCOR05.OBJ  + >> b32.bc
   echo obj\RCOR06.OBJ  + >> b32.bc
   echo obj\RCOR12.OBJ  + >> b32.bc
   echo obj\IMBR01.OBJ  + >> b32.bc
   echo obj\RECI01.OBJ  + >> b32.bc
   echo obj\DUPL01.OBJ  + >> b32.bc
   echo obj\RCOM01.OBJ  + >> b32.bc
   echo obj\RFLU01.OBJ  + >> b32.bc
   echo obj\RFLU02.OBJ  + >> b32.bc
   echo obj\GRAF01.OBJ  + >> b32.bc
   echo obj\GRAF02.OBJ  + >> b32.bc
   echo obj\GRAF03.OBJ  + >> b32.bc
   echo obj\GRAF04.OBJ  + >> b32.bc
   echo obj\GRAF05.OBJ  + >> b32.bc
   echo obj\CAIX01.OBJ  + >> b32.bc
   echo obj\RCAI01.OBJ  + >> b32.bc
   echo obj\RCAI02.OBJ  + >> b32.bc
   echo obj\RCAI03.OBJ  + >> b32.bc
   echo obj\RCAI04.OBJ  + >> b32.bc
   echo obj\CHEQ01.OBJ  + >> b32.bc
   echo obj\RCHE01.OBJ  + >> b32.bc
   echo obj\RCHE02.OBJ  + >> b32.bc
   echo obj\RCHE03.OBJ  + >> b32.bc
   echo obj\RCHE04.OBJ  + >> b32.bc
   echo obj\CHEQ02.OBJ  + >> b32.bc
   echo obj\RCH101.OBJ  + >> b32.bc
   echo obj\RCH102.OBJ  + >> b32.bc
   echo obj\PAGA01.OBJ  + >> b32.bc
   echo obj\RPAG01.OBJ  + >> b32.bc
   echo obj\RPAG02.OBJ  + >> b32.bc
   echo obj\RPAG03.OBJ  + >> b32.bc
   echo obj\RPAG04.OBJ  + >> b32.bc
   echo obj\RPAG05.OBJ  + >> b32.bc
   echo obj\ESTO01.OBJ  + >> b32.bc
   echo obj\REST01.OBJ  + >> b32.bc
   echo obj\REST02.OBJ  + >> b32.bc
   echo obj\RORP01.OBJ  + >> b32.bc
   echo obj\PEDI01.OBJ  + >> b32.bc
   echo obj\PEPR01.OBJ  + >> b32.bc
   echo obj\RPED01.OBJ  + >> b32.bc
   echo obj\RPED03.OBJ  + >> b32.bc
   echo obj\RPED05.OBJ  + >> b32.bc
   echo obj\RPED06.OBJ  + >> b32.bc
   echo obj\RPED08.OBJ  + >> b32.bc
   echo obj\RPED12.OBJ  + >> b32.bc
   echo obj\RPED14.OBJ  + >> b32.bc
   echo obj\RPED17.OBJ  + >> b32.bc
   echo obj\RPED18.OBJ  + >> b32.bc
   echo obj\RPED25.OBJ  + >> b32.bc
   echo obj\RPED38.OBJ  + >> b32.bc
   echo obj\RPED41.OBJ  + >> b32.bc
   echo obj\RECI02.OBJ  + >> b32.bc
   echo obj\RORP02.OBJ  + >> b32.bc
   echo obj\RROM01.OBJ  + >> b32.bc
   echo obj\RROM02.OBJ  + >> b32.bc
   echo obj\RROM03.OBJ  + >> b32.bc
   echo obj\RROM04.OBJ  + >> b32.bc
   echo obj\RROM05.OBJ  + >> b32.bc
   echo obj\RROM06.OBJ  + >> b32.bc
   echo obj\RROM07.OBJ  + >> b32.bc
   echo obj\RROM08.OBJ  + >> b32.bc
   echo obj\RROM09.OBJ  + >> b32.bc
   echo obj\RROM10.OBJ  + >> b32.bc
   echo obj\RROM11.OBJ  + >> b32.bc
   echo obj\RROM13.OBJ  + >> b32.bc
   echo obj\RCOM05.OBJ  + >> b32.bc
   echo obj\BALC01.OBJ  + >> b32.bc
   echo obj\RBAL01.OBJ  + >> b32.bc
   echo obj\RBAL02.OBJ  + >> b32.bc
   echo obj\RBAL03.OBJ  + >> b32.bc
   echo obj\RBAL04.OBJ  + >> b32.bc
   echo obj\RBAL05.OBJ  + >> b32.bc
   echo obj\RBAL06.OBJ  + >> b32.bc
   echo obj\RCOM03.OBJ  + >> b32.bc
   echo obj\COMP01.OBJ  + >> b32.bc
   echo obj\RCMP01.OBJ  + >> b32.bc
   echo obj\RCMP02.OBJ  + >> b32.bc
   echo obj\RCMP04.OBJ  + >> b32.bc
   echo obj\RCMP05.OBJ  + >> b32.bc
   echo obj\RCMP06.OBJ  + >> b32.bc
   echo obj\GRCM01.OBJ  + >> b32.bc
   echo obj\NFEE01.OBJ  + >> b32.bc
   echo obj\MDFE01.OBJ  + >> b32.bc
   echo obj\CTEE01.OBJ  + >> b32.bc
   echo obj\RNFE01.OBJ  + >> b32.bc
   echo obj\MANI01.OBJ  + >> b32.bc
   echo obj\COMB01.OBJ  + >> b32.bc
   echo obj\RCMB01.OBJ  + >> b32.bc
   echo obj\PECA01.OBJ  + >> b32.bc
   echo obj\RPEC01.OBJ  + >> b32.bc
   echo obj\MPVE01.OBJ  + >> b32.bc
   echo obj\RMPV01.OBJ  + >> b32.bc
   echo obj\ORSE01.OBJ  + >> b32.bc
   echo obj\RORS01.OBJ  + >> b32.bc
   echo obj\RORS02.OBJ  + >> b32.bc
   echo obj\RORS03.OBJ  + >> b32.bc
   echo obj\EMAIL.OBJ  + >> b32.bc
   echo obj\ZAP.OBJ  + >> b32.bc
   echo obj\VONFE2G_V4.OBJ  + >> b32.bc
   echo obj\VONFEUTIL2G_V4.OBJ  + >> b32.bc
   echo obj\NFEFLEXUTIL.OBJ  + >> b32.bc
   echo obj\VOIMPOSTO.OBJ  + >> b32.bc
   echo obj\GXML01.OBJ  + >> b32.bc
   echo obj\TINATIVO.OBJ  + >> b32.bc
   echo obj\CODABAR.OBJ  + >> b32.bc
   echo obj\CODE3DE9.OBJ  + >> b32.bc
   echo obj\CODE128.OBJ  + >> b32.bc
   echo obj\EAN13.OBJ  + >> b32.bc
   echo obj\GO_CODE.OBJ  + >> b32.bc
   echo obj\INT25.OBJ  + >> b32.bc
   echo obj\BARLIB.OBJ  + >> b32.bc
   echo obj\BOLE01.OBJ  + >> b32.bc
   echo obj\COBREBEM.OBJ  + >> b32.bc
   echo obj\ORETORNO.OBJ  + >> b32.bc
   echo obj\DISPLAY.OBJ  + >> b32.bc
   echo obj\WEBCAM.OBJ  + >> b32.bc
   echo obj\QSCANNER2.OBJ  + >> b32.bc
   echo obj\TSCAN.OBJ  + >> b32.bc
   echo obj\A_SCAN.OBJ  + >> b32.bc
   echo obj\TAQ_SELEAREA.OBJ,  + >> b32.bc
   echo siav.exe, + >> b32.bc
   echo siav.map, + >> b32.bc
   echo $(FWDIR)\lib\Fivehx.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
   echo $(HBDIR)\lib\rtl.lib + >> b32.bc
   echo $(HBDIR)\lib\vm.lib + >> b32.bc
   echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
   echo $(HBDIR)\lib\lang.lib + >> b32.bc
   echo $(HBDIR)\lib\macro.lib + >> b32.bc
   echo $(HBDIR)\lib\rdd.lib + >> b32.bc
   echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
   echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
   echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
   echo $(HBDIR)\lib\debug.lib + >> b32.bc
   echo $(HBDIR)\lib\common.lib + >> b32.bc
   echo $(HBDIR)\lib\pp.lib + >> b32.bc
   echo $(HBDIR)\lib\pcrepos.lib + >> b32.bc
   echo $(HBDIR)\lib\ct.lib + >> b32.bc
   echo $(HBDIR)\lib\zlib.lib + >> b32.bc
   echo $(HBDIR)\lib\hbzip.lib + >> b32.bc
   echo $(HBDIR)\lib\libmisc.lib + >> b32.bc
   echo $(HBDIR)\lib\tip.lib + >> b32.bc
   echo $(HBDIR)\lib\png.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcomm.lib + >> b32.bc
   echo $(HBDIR)\lib\cw32.lib + >> b32.bc
   echo $(HBDIR)\lib\import32.lib + >> b32.bc
   echo $(HBDIR)\lib\codepage.lib + >> b32.bc
   echo $(SQLRDD)\lib\sql.lib + >> b32.bc
   echo $(SQLRDD)\lib\libmysql.lib + >> b32.bc
   echo $(SQLRDD)\lib\oci.lib + >> b32.bc
   echo $(FWDIR)\multisql\qscanner\lib\twain.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\gdiplus.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\shell32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib, >> b32.bc
 
 IF EXIST siav.res echo siav.res >> b32.bc
   $(BCDIR)\bin\ilink32 /Gn /aa /Tpe /s @b32.bc
   upx siav.exe
   del siav.map
   del siav.tds
   siav.exe

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /n /m /w /gc1 /Oobj\ /I$(FWDIR)\include;$(SQLRDD)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc32 /c /O2 -I$(HBDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
  del tmp

siav.res : siav.rc
  $(BCDIR)\bin\brc32.exe -r siav.rc



 

[Enrico Maria Giordano]

Bcc74 working fine

The problem is not in BCC but in your code. Please, show me the declarations I requested and I will help you.

[jhnsnlb]

TWAIN_GetNextSourceName()
TWAIN_GetDefaultSourceName()

HB_FUNC( TW_GETNEXTSOURCENAME )
{
hb_retni( TWAIN_GetNextSourceName( hb_parc( 1 ) ) );
}

HB_FUNC( TW_GETDEFAULTSOURCENAME )
{
hb_retni( TWAIN_GetDefaultSourceName( hb_parc( 1 ) ));
}

TWAIN.LIB

[Enrico Maria Giordano]

I need the C declarations of these C functions:

Code: Select all  Expand view

TWAIN_GetNextSourceName()
TWAIN_GetDefaultSourceName()