topic-5070

Posts: 38

Joined: Sat Dec 31, 2005 10:08 AM

Fwh 2.8 - erro com DLL
Posted: Fri Nov 24, 2006 07:15 PM

Antonio, anteriormente esta rotina funcionava corretamente com a versão FWH 2.6 + xHarbour 0.99.5

Porém, não esta funcionando com a versão FHW 2.8 (outubro/2006) + xHarbour 0.99.61

Code: Select all Collapse

#include "FiveWin.ch"
STATIC DLLDATAREGIS
***********
function main()
***********

  ABREDATAREGIS()

  IF (  nRet  := IF_Abre_Serial("COM1")  ) #  0    // <---- Antonio O ERRO ESTA DANDO AQUI !!!!!!!!!
      MsgStop("Nenhuma impressora fiscal foi detectada !","Atenção")
     RETURN .F.
  ENDIF

  CLOSEDATAREGIS()
return nil


********************
FUNCTION ABREDATAREGIS()
********************
DLLDATAREGIS  := LOADLIB32( "DTIF32.DLL" )
? DLLDATAREGIS

RETURN NIL

**********************
FUNCTION CLOSEDATAREGIS()
*************************
IF_Fecha_Serial()
RETURN NIL



DLL32 function IF_ParamIni()                                         AS LONG PASCAL LIB DLLDATAREGIS
DLL32 function IF_Abre_Serial(Porta AS STRING)                       AS LONG PASCAL LIB DLLDATAREGIS

Se puderes me ajudar, desde já agradeço...

toya
Ahora en la version 6.6
Consultoria e Desenvolvimento - NF-e/NFC-e
http://www.toyanet.com.br
https://www.facebook.com/profile.php?id=100009195956044
toyasis@gmail.com
FWH 10.8+PellesC+xHarbour.org 1.2.1

miragerr

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Fwh 2.8 - erro com DLL
Posted: Sat Nov 25, 2006 03:23 AM

Ola amigo

Já passei por um problema destes, o que esta acontecendo ??

Poste aki os parametros das funçoes da DLL

Pois o que aconteceu comigo é que estava eu colocar um parametro na função,mesmo que no manual informasse que o parametro era opcional

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

Julio Cesar

Posts: 1

Joined: Wed May 30, 2007 10:12 PM

Re: Fwh 2.8 - erro com DLL
Posted: Thu May 31, 2007 01:08 PM

Alguem tem uma resposta para isto?
Estou tendo o mesmo problema com FWH26 roda porem com o FWH27 ja nao roda?!?!?!!?

toya wrote:Antonio, anteriormente esta rotina funcionava corretamente com a versão FWH 2.6 + xHarbour 0.99.5

Porém, não esta funcionando com a versão FHW 2.8 (outubro/2006) + xHarbour 0.99.61

Code: Select all Collapse

#include "FiveWin.ch"
STATIC DLLDATAREGIS
***********
function main()
***********

  ABREDATAREGIS()

  IF (  nRet  := IF_Abre_Serial("COM1")  ) #  0    // <---- Antonio O ERRO ESTA DANDO AQUI !!!!!!!!!
      MsgStop("Nenhuma impressora fiscal foi detectada !","Atenção")
     RETURN .F.
  ENDIF

  CLOSEDATAREGIS()
return nil


********************
FUNCTION ABREDATAREGIS()
********************
DLLDATAREGIS  := LOADLIB32( "DTIF32.DLL" )
? DLLDATAREGIS

RETURN NIL

**********************
FUNCTION CLOSEDATAREGIS()
*************************
IF_Fecha_Serial()
RETURN NIL



DLL32 function IF_ParamIni()                                         AS LONG PASCAL LIB DLLDATAREGIS
DLL32 function IF_Abre_Serial(Porta AS STRING)                       AS LONG PASCAL LIB DLLDATAREGIS

Se puderes me ajudar, desde já agradeço...

Rossine

Posts: 344

Joined: Tue Oct 11, 2005 11:33 AM

Fwh 2.8 - erro com DLL
Posted: Thu May 31, 2007 04:08 PM

Olá Pessoal,

Tentem usar assim para ver se resolve:

DLLDATAREGIS := LoadLibrary( "DTIF32.DLL" )

e para descarregar:

FreeLibrary( DLLDATAREGIS )

Talvez possa ser isto

Abraços,

Rossine.

Obrigado, Regards, Saludos

Rossine.

Harbour and Harbour++

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Fwh 2.8 - erro com DLL
Posted: Thu May 31, 2007 08:09 PM

Es preciso hacer lo que indica Rossine, ya que algunas DLLs lo requieren y en versiones anteriores de FWH no hacia falta ya que habia un error y las DLLs no se descargaban de memoria

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Fwh 2.8 - erro com DLL
Posted: Thu May 31, 2007 11:02 PM

Julio,

En tu caso NO hay que usar PASCAL

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion