///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function MandaPaq( nHandle, cBuffer ) // Debe llamar a
MandaPaqueteFiscal()
// cBuffer pasa por referencia
return MandaPaqueteFiscal( nHandle, @cBuffer )
function Respuesta( nHandle ) // Debe llamar a UltimaRespuesta()
local cBuffer := space( 512 )
UltimaRespuesta( nHandle, @cBuffer )
return cBuffer
function OpenPort( nCom ) // Debe llamar a OpenComFiscal() y
tambien a ReOpenComFiscal()
return OpenComFiscal( nCom, 0 ) // 0 = ASCII mode, 1 = ANSI mode.
function SearchPr( nHandler ) // Debe llamar a SerachPrn()
return SearchPrn( nHandler )
//function InitFiscal( nHandler ) // Debe llamara a InitFiscal()
//return InitFiscal( nHandler )
procedure ClosePort( nHandler ) // Debe llamar a CloseComFiscal()
CloseComFiscal( nHandler )
return
DLL32 FUNCTION OpenComFiscal ( nCom AS _INT, nMode AS _INT ) AS _INT
PASCAL LIB "WINFIS32.DLL"
DLL32 FUNCTION MandaPaqueteFiscal ( nHandler AS _INT, cBuffer AS LPSTR )
AS _INT PASCAL LIB "WINFIS32.DLL"
DLL32 FUNCTION UltimaRespuesta ( nHandler AS _INT, cBuffer AS LPSTR )
AS _INT PASCAL LIB "WINFIS32.DLL"
DLL32 FUNCTION CloseComFiscal ( nHandler AS _INT ) AS VOID PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION ReOpenComFiscal ( nCom AS _INT ) AS _INT PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION InitFiscal ( nHandler AS _INT ) AS _INT PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION VersionDLLFiscal ( ) AS _INT PASCAL LIB "WINFIS32.DLL"
DLL32 FUNCTION BusyWaitingMode ( nMode AS _INT ) AS VOID PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION CambiarVelocidad ( nPortNumber AS _INT, nNewSpeed AS
LONG) AS VOID PASCAL LIB "WINFIS32.DLL"
DLL32 FUNCTION SearchPrn ( nHandler AS _INT ) AS LONG PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION ProtocolMode ( nMode AS _INT ) AS _INT PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION SetCommandRetries ( nRetries AS _INT ) AS _INT PASCAL LIB
"WINFIS32.DLL"
DLL32 FUNCTION Abort ( nPortNumber AS _INT ) AS VOID PASCAL LIB
"WINFIS32.DLL"
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
By Walter Negro
karinha wrote:FWH2.4 -> És 16 ó 32 bits? Se és 16 Bits, mira se no estais usando una classe de terceros incompatible con el FWH9.16.
FWH9.16 xHarbour, és el mismo que vién con la instalacíon que envió Antonio Liñares?
Saludos.
C:\FWH1612\lib\FiveHX.lib +
C:\FWH1612\lib\FiveHC.lib +
C:\XHB1612\lib\hbzip.Lib +
C:\XHB1612\lib\zlib.Lib +
C:\XHB1612\lib\rtl.Lib +
C:\XHB1612\lib\vm.Lib +
C:\XHB1612\lib\gtgui.Lib +
C:\XHB1612\lib\lang.Lib +
C:\XHB1612\lib\macro.Lib +
C:\XHB1612\lib\rdd.Lib +
C:\XHB1612\lib\dbfntx.Lib +
C:\XHB1612\lib\dbfcdx.Lib +
C:\XHB1612\lib\common.Lib +
C:\XHB1612\lib\tip.Lib +
C:\XHB1612\lib\pp.Lib +
C:\XHB1612\lib\dbffpt.Lib +
C:\XHB1612\lib\codepage.Lib +
C:\XHB1612\lib\HbSix.Lib +
C:\XHB1612\lib\PcRepos.Lib +
C:\XHB1612\Lib\ct.Lib +
C:\XHB1612\Lib\png.Lib +
C:\BCC7\lib\cw32.Lib +
c:\BCC7\lib\uuid.lib +
c:\BCC7\lib\ws2_32.lib +
C:\BCC7\lib\psdk\msimg32.Lib +
C:\BCC7\lib\psdk\odbc32.Lib +
C:\BCC7\lib\psdk\rasapi32.Lib +
C:\BCC7\lib\psdk\nddeapi.Lib +
C:\BCC7\lib\psdk\psapi.Lib +
c:\BCC7\lib\psdk\gdiplus.lib +
C:\BCC7\lib\psdk\iphlpapi.Lib +
c:\BCC7\lib\psdk\shell32.lib +
C:\BCC7\lib\import32.Lib
Set hdir=C:\XHB1612
Set bcdir=C:\bcc7
Set fwhdir=C:\FwH1612
karinha wrote:Mira los SET de compilacion:
- Code: Select all Expand view RUN
Set hdir=C:\XHB1612
Set bcdir=C:\bcc7
Set fwhdir=C:\FwH1612
Bién como, los *.CFG
Saludos.
Antonio Linares wrote:Hector,
Prueba a cambiar todos los _INT por LONG y DLL32 por DLL
nError := CallDll32 ( "InitFiscal", "WINFIS32.DLL", handler )
If nError==0
lRetorno:=.T.
Else
MsgInfo( Str( nError ) )
EndIf
Antonio Linares wrote:Hector,
Si me envias un sencillo PRG de prueba, lo construimos con FWH 17.09 y te lo envio para que lo pruebes
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 105 guests