Como usar das DLL´s com xharbour

[MARINI]

Já achei.
Obrigado

[MARINI]

Acrescentei a HBCOMM.LIB e ao compilar está acusando:

unresolved external ´_hb_stack`referenced from C:\XHARBOUR\LIB\HBCOMM.LIB|hbcomm

O que está faltando agora?
Grato.

[MARINI]

Inclui a linha

#include "hbstack.h"

e passou a dar o erro:

xHarbour Compiler build 0.99.70 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'A.PRG'...
hbole.h(62) Error F0026 Parse error in constant expression '\'

Procurei se tem esse hbole.h para ver a linha 62 mas não achei este arquivo.

E agora?

[Stanis Luksys]

Olá Marini,

Provavelmente você está com uma hbcomm compilada com uma versão mais antiga do xharbour...

Não estou no meu pc, mas se vc aguardar até umas 21:00hs posso te enviar os fontes, ou se der sorte a própria lib compilada.

Você pretende testar com ECF?


Falou!

[sygecom]

Inclui a linha

#include "hbstack.h"

e passou a dar o erro:

xHarbour Compiler build 0.99.70 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'A.PRG'...
hbole.h(62) Error F0026 Parse error in constant expression '\'

Procurei se tem esse hbole.h para ver a linha 62 mas não achei este arquivo.

E agora?

Compile a LIB para vc mesmo....ou baixa para a versão 0.99.70 no link abaixo:
http://www.sygecom.com.br/xharbour/hbcomm_09970.zip

Abraços
Leonardo Machado

[MARINI]

Deu certo.
Rodei o TLIB HBCOMM.LIB, texto.txt e vi as funções disponíveis.

Grato.

[Cezar]

Ola Stanis,

Como estou iniciando em ECF e lendo este topico voce comentou que é melhor usar comunicação direta do que DLL.

Da pra usar as DLL por exemplo da Bematech no xHarbour uma que elas sao em Delphi pu VB??

Poderia me dar uma ideia?

grato!!
cez_a@ubbi.com.br

[Stanis Luksys]

Da pra usar as DLL por exemplo da Bematech no xHarbour uma que elas sao em Delphi pu VB??

Sim, basta seguir os passos da minha primeira mensagem neste tópico.

No entanto, como eu já disse, comunicação direta é mais segura e confiável. também já dei um exemplo neste mesmo tópico.

Falou!

[Reginaldo]

Caro Stanis,

Estava procurando sobre dll bematech e encontrei este tópico e numa das mensagens vc diz " não use DLLs para ECF", comentando ainda que comunicação direta é melhor e mais rápida...

Bom, o problema é que eu uso os comandos da hbcomm e estou tendo problema de lentidão na comunicação, estava pensando em mudar tudo para a DLL... Mas, quando vi sua postagem, parei pra pensar...

Bom, se puder me ajudar, eu agradeceria muito, não entendo porque tenho problemas de velocidade, se tô usando comunicação direta... até que o problema não é mandar o comando, o problema é aguardar pelo retorno...

Faço um loop para aguardar o retorno e a cada passada dou um tempo de meio segundo, mas se o retorno não vier na primeira passada do loop, não adianta passar de novo, pois o retorno não vem mais e dá erro de comunicação.

Se puder me mandar um exemplo de como vc faz, eu ficaria muito agradecido...

Eu fiz a minha rotina de acordo com os exemplos de comunicação direta da Bematech... inclusive, já utilizo assim há tempos, mas, não tô tendo sucesso, no que diz respeito a velocidade...

Obrigado,

Reginaldo J. Silva

[prodasys]

Eu utilizo as DLL´s da Daruma e da Bematech e funciona muito bem.Ex:

Function Main()
public nHandle:=loadlibrary("Bemafi32.dll")
...
leituraX()
...
freelibrary(nHandle)
return nil

function LeituraX()
dllcall(nHandle,32,"Bematech_FI_LeituraX")
return nil

[marcos.gurupi]

E quando vc (prodasys) tiver q usar parametro do tipo memoria fiscal ou mesmo pegar o numero do ultimo coo como vc faz?

Marcos Roberto

[alaminojunior]

Código: Selecionar todos

Function Main() 
public nHandle:=loadlibrary("Bemafi32.dll") 
... 
leituraX() 
... 
freelibrary(nHandle) 
return nil 

function LeituraX() 
dllcall(nHandle,32,"Bematech_FI_LeituraX") 
return nil

Funcionou mesmo, belezinha.
Mas ao tentar "Bematech_FI_AbreCupom" não foi ...
então pergunto : como colocar os parametros que no caso deveria ser o cpf ou cgc ?

[prodasys]

Mas ao tentar "Bematech_FI_AbreCupom" não foi ...
então pergunto : como colocar os parametros que no caso deveria ser o cpf ou cgc ?

vNumCgc="01.001.0001/0001-01"
dllcall(nHandle,32,"Bematech_FI_AbreCupom",trim(wNumCgc)).O mesmo caso para funcoes da DLL com varios parametros.

Espero ter ajudado.

[alaminojunior]

Obrigado meu caro, tinha faltado o Trim(). )

[momente]

Stanis,

Uso minigui/xharbour 09970, pergunto: Devo usar a hbcomm da minigui ou neste caso o melhor seria usar a do xharbour? e a maneira de programar para as duas, são do mesmo jeito?

valeu!