Página 2 de 2
Enviado: 18 Jul 2007 12:15
por MARINI
Já achei.
Obrigado
Enviado: 18 Jul 2007 12:16
por 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.
Enviado: 18 Jul 2007 15:20
por 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?
Enviado: 18 Jul 2007 15:26
por 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!
Enviado: 18 Jul 2007 16:25
por sygecom
MARINI escreveu: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
Enviado: 18 Jul 2007 17:11
por MARINI
Deu certo.
Rodei o TLIB HBCOMM.LIB, texto.txt e vi as funções disponíveis.
Grato.
Enviado: 21 Ago 2007 17:17
por 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
Enviado: 22 Ago 2007 09:02
por Stanis Luksys
Cezar escreveu: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!
Enviado: 25 Set 2007 11:22
por 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
Enviado: 25 Set 2007 11:55
por 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
Enviado: 27 Set 2007 10:28
por 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
Enviado: 01 Out 2007 10:40
por 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 ?
Enviado: 01 Out 2007 16:43
por 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.
Enviado: 01 Out 2007 17:11
por alaminojunior
Obrigado meu caro, tinha faltado o Trim().

)
Enviado: 02 Out 2007 11:43
por 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!