Não consigo pegar dados da Balança Toledo 9094

[hilton_menezes]

Oi pessoal,
Estou tentando pegar os dados pela porta serial o peso da balança Toledo 9094.
Pelo HyperTerminal consigo por exemplo em Delphi tbem, mas com o Xharbour nada.
Por favor algum tem algum exemplo em Xharbour para acessar esta balança ?

Abraço

[sygecom]

Como você está tentando buscar o peso ? quais comandos e qual lib está usando ?

[cezarvm]

Estou usando um codigo que achei aqui no forum que segue:

Código: Selecionar todos

function chamabal() 
 com_close(1) 
 com_open(1, 1024, 1024) 
 com_init(1, 9600, "n", 8, 1) 
 com_hard(.f.) 
 conta=0 
 cappeso=.f. 
 peso=0 
do while conta<50 
    cinput := com_read(1) 
    if empty(cinput) 
       inkey(.1) 
       conta++ 
    else 
       if substr(cinput,1,1)=chr(2) 
          peso=val(substr(cinput,2,6)) 
          cappeso=.t. 
          exit 
       endif 
       inkey(.1) 
       conta++ 
    endif 
 enddo 
 com_close(1) 
 itqtd=peso 
 if cappeso=.t. 
     return(.t.) 
 else 
    msg("falha na captura do peso !",1,2) 
    return(.f.) 
 endif 
 return(.t.) 

e a lib eh hbcomm...

[cezarvm]

Desculpe o mau jeito, acho que nao consegui formatar direito o codigo, e respondi com o meu outro login.

[sygecom]

Olá Cezar,
Esse código é para usar com Clipper, para usar com xHarbour você pode usar o exemplo do sistema em anexo que conecta com varias marcas e modelos de balança:
filebase.php?d=1&id=145&c_old=0&what=c&page=1

[DLZ]

outra alternativa bastante simples, já que vc está usando harbour, seria utilizar a DLL do fabricante.. Se quier tenho um exemplo de como fazer com a DLL tb..
Abraço

[cezarvm]

Se voce puder me postar um exemplo de como usar a dll, ficarei eternamente grato.


Abracos
Cezar Machado.

Nota de Moderação:
por Pablo César: Esta mensagem foi reditada, pois não é aceito neste fórum a prática de pedidos por email. As indicações não devem ser personalizadas e de preferência serem expostas a todo o publico. Esse é a melhor prática no fórum. Ver Regra Geral do Fórum - Leitura Obrigatória de todos, revisar itens 10, 11, 12 e 13

[DLZ]

Bom dia..
Segue anexo uma função exemplo .
Não pude anexar o pacote da P05.dll aqui, pois são permitidos apenas arquvios até 100kb. Vc pode fazer o download do pacote dessa dll no site do fabricante, caso não conseguir, solicite aqui que te passo por e-mail.
Espero que te ajude.
Um abraço.
Dércio Zanatta