Comunicação com conversor toledo serial para rede.

[roberson.bill]

Bom dia a Todos.
Estou tendo uma dificuldade em buscar informações de uma balança 9091 antiga que atualmente esta conectada diretamente em um computador pela porta serial.
porem estou tentando conectar essa balança em um conversor serial para rede atraves do RJ45.
portando a dificuldade é usar o clipper para buscar o peso indicado atraves de um IP que esta senco capturado pelo conversor e enviando na rede.
aguardo alguma dica.

ATT.
Roberson Bill.

[sygecom]

Migre para xHarbour e uso Socket( INetConnectIP(), INetSend(), INetRecvAll() )
Boa sorte...

[rochinha]

Amiguinho,

As novas placas mãe podem não ter mais a saida serial DB9, mas podem sobrar no corpo da placa os jumpers de conecção do chicote serial

Tenha certeza que o conversor serial que esta usando é para permitir que voce tenha uma serial e não que tenha rede pela serial.

Com certeza o amigo SygeCOM não quis ser tão drástico quando disse: migre para xHarbour.... Mas sim que te posicionou sobre a possiblidade de usar recursos do xHarbour, talvez até contruindo um aplicativo somente para interagir com a automação e por consequencia com maior possibilidade de resultado.

[roberson.bill]

Bom dia a Todos.
muito obrigado bela ajuda mas acredito que migrar par Xharbor seria meio impossivel pois usamos clipper 5.3 em base de produção.
e a balnça 9091 é um antigo.
portanto essa balança noa comunica com o sistema win 7 e sim somente 95 por isso que estou tentando fazer essa comunicação com o conversor CSE-111 da Toledo mas irei estudar novas possibilidades e assim que achar uma solução irei postar aqui no forum.
Qualquer ajuda é bem vinda.
roberson_bill@hotmail.com

[fladimir]

Roberson, tenho um cliente q usa meu sistema em um Note com Windows 7 e um conversor USB para SERIAL RS-232 e funciona normalmente...

Basta o S.O. reconhecer uma COM e as rotinas tem q funcionar... eu usava no Clipper e depois migrei pro xHarbour/Harbour e mudei a lib, mas a lógica é a mesma...

Abaixo segue a rotina q uso em xHarbour, mas eu usava em Clipper tb algo do tipo, com a CT.LIB Neste tópico fala quais vc tem q usar...

Código: Selecionar todos

*****************************************************************
* Fun‡Æo Ler peso balan‡a....
*****************************************************************
Function LerBalanca(nPeso)
   LOCAL cPesoLido := 0
   LOCAL cPort, nBaudrate, nDatabits, nParity, nStopbits,  nBuffersize
   LOCAL cBalPorta, nBalVelocidade, nBalBits, nBalParidade, nBalStopBits
   LOCAL nHandle, cBytesToWrite, nCount
   LOCAL cBuff, nChar, nLidos
   LOCAL mQuant, cod, cIniFile

   *-- Colooquei para carregar valores nas variaveis
   cBalPorta      := "COM1" //cScan_Porta //'COM5 '
   nBalVelocidade := 9600   //nScan_Veloc //9600
   nBalBits       := 8          //nScan_Bists //8
   nBalParidade   := 0      //nScan_Parid //0
   nBalStopBits   := 1      //nScan_BStop // 1

   *-- Compatibilização dos Campos
   cPort          := cBalPorta
   nBaudrate      := nBalVelocidade
   nDatabits      := nBalBits
   nParity        := nBalParidade
   nStopbits      := nBalStopBits
   nBuffersize    := 1000

   //xHarbour / Harbour (com hbcomm.lib)
   nHandle:= Init_Port( cPort, nBaudrate, nDatabits, nParity, nStopbits, nBuffersize )

   //Harbour - Usar a linha de baixo qdo sem a hbcomm.lib
    //nHandle:= Win_Port():Init( cPort, nBaudrate, nParity, nDatabits, nStopbits)

   If nHandle <= 0
      msgalert("Erro ao iniciar a porta de comunicacao !")
      Return 0
   Endif

   If IsWorking( nHandle )== .F.
      Alert("Favor configurar a porta serial !")
      Return 0
   Endif
   OutBufClr( nHandle )

   //-- Enviar comando para iniciar a transmissao de dados para balanca MP
   cBytesToWrite := Chr(5)
   nCount        := 1
   OutChr( nHandle, cBytesToWrite, nCount )

   //-- Aguarda um tempinho
   Inkey(0.3)
   cBuff := Space(10)
   nChar := InBufSize( nHandle )
   nLidos:= InChr( nHandle,nChar,@cBuff )

   If nLidos > 0
      cPesoLido  := Substr(cBuff,RAt("+p", cBuff)+3,8) //-- Toledo Cabeça 9091 do corpo 2124
      cPesoLido := Val(cPesoLido)/1000
      Inkey(0.3)
      UnInt_Port( nHandle )
      Return cPesoLido
   Endif
   UnInt_Port( nHandle )
Return .f.

[]´s

[roberson.bill]

muito obrigado irei verificar se funciona.