HBCOMM

[marcos.gurupi]

Caro, estou tentando comunicar com uma filizola usando a hbcomm mas sem sucesso, eu peguei o sistema da propria filizola e funcionou q eh uma blza, isso apenas comprova q a comunicacao pode ser feita, mas quando uso o comando INIT_PORT() ele retorna q nao consegue abrir a porta. Estou tentando assim:

Código: Selecionar todos

Local cPort:=Alltrim(Config->Por04)
Local cVel:=19200
Local cDatb:=8
Local cPari:=0
Local cStop:=0
Local cBuff:=8000

IF ( nHandle := Init_Port(cPort,cVel,cDatb,cPari,cStop,cBuff) ) > 0  

Jah mudei velocidade, Paridade, Buffer e etc. Mas nada... Alguem tem um exemplo simples de captura d peso?

Marcos Roberto.

[alxsts]

Olá!

Achei o tópico Extrair Codigo de Barra via Serial (COM1) através da busca do fórum.
Tem um código do Frazato que usa a HBComm. Veja se ajuda.

[marcos.gurupi]

Eu acho q o meu problema estah com a LIB pq o erro apresenta no momento q ele vai abrir a porta. Ou ele nao abre apresentando um erro de "Nao foi possivel abrir a porta" ou "ABDOMINAL PROGRAM TERMINATION" jah tentei usando varias velocidades. Com sistema da FILIZOLA tudo funciona normalmente.

Marcos Roberto.

[sygecom]

Veja se ajuda:
filebase.php?d=1&id=145&c_old=0&what=c&page=1

[marcos.gurupi]

Obrigado! Eh um exemplo bem completo por sinal. Mas nao foi possivel comunicar com a balanca em questao (filizola premium 30), consigo comunicar com ela somente atraves do Status Monitor (sistema da propria balanca), ou seja com esse sistema eu consigo comunicacao. Baseado no seu excelente exemplo vou continuar as minhas tentativas por aqui.

Marcos Roberto.

[sygecom]

Posta os Protocolo da Balança e como você está usando para se comunicar.

[marcos.gurupi]

Estou usando assim:

Código: Selecionar todos

*****************
Function OpenOk()  // abre a porta serial
*****************
Local cPort:=Alltrim(Config->Por04)
Local cVel:=9600 //Jah tentei diversas velocidades. Inclusive o fabricante me orientou a colocar 19200
Local cDatb:=8
Local cPari:=0
Local cStop:=0
Local cBuff:=1000

IF ( nHandle := Init_Port(cPort,cVel,cDatb,cPari,cStop,cBuff) ) > 0  // O erro eh apresentado aqui. Ele diz: ABDNOMINAL PROGRAM TERMINARION ou Erro ao abrir a porta
	OutBufClr( nHandle )   // limpa a porta
	Return IsWorking()     // retorna a leitura da porta      P
ENDIF
Return .F.

Marcos Roberto.

[sygecom]

Sem protocolo vai ser muito difícil adivinhar como deve ser...posta o protocolo que o fabricante disponibiliza.

[marcos.gurupi]

Nao sei se eh mais dificil falar no call center da filizola ou descobrir sozinho o protocolo.

Marcos Roberto.

[sygecom]

Olá Marcos,
Quando eu tive que pegar um protocolo de uma balança rodoviária foi bem rapido, acho que vale a pena tentar

[marcos.gurupi]

Tentar? Contando todas a vezes q liguei devo ter ficado umas 6 horas somente esperando e somente uma fez eu fui atendido as outras a ligacao caia antes de ser atendida. Mas vou continuar tentando. Sou brasileiro nao desisto nunca!!!!

Marcos Roberto.

[marcos.gurupi]

Caro Leonardo agora esta tudo explicado:

"A balança Platina é uma balança com interface de rede e é configurada através do software Smart, este modelo de balança não retorna peso pela serial, para este tipo de aplicação temos os modelos de balanças abaixo:

Recebi este email da assistencia tecnica da Filizola.

Marcos Roberto.

[sygecom]

O Importante que resolveu.

[Itamar M. Lins Jr.]

eu peguei o sistema da propria filizola e funcionou q eh uma blza

O erro está na hbcomm, é a do Harbour ? Não pode dar esse erro, mesmo que a balança não retorne nada.

Init_Port(cPort,cVel,cDatb,cPari,cStop,cBuff)

Caso seja o Harbour use a DLL da Filizola.

Saudações,
Itamar M. Lins Jr.