HBComm

[Hasse]

Alertado pela mensagem do Leonardo, tentei duas possíveis alternativas prevista em algumas rotinas de comunicação serial.

Vejam o código da 1ª tentativa, enviando um ACK antes do início da rotina de leitura:

Código: Selecionar todos

OutChr( nHandle, ACK )                           // Envia um Ack (06) para o COBAS.
DO WHILE InBufSize( nHandle ) > 0
   nRead := InBufSize(nHandle)
   cRead := Space(nRead)
   InChr( nHandle, nRead, @cRead)
   cRet += cRead
ENDDO
OutChr( nHandle, ACK )                           // Envia um Ack (06) para o COBAS.
FGravaTxt( cArqTmp, cLinha )

Outra tentativa, enviando um ACK antes de cada tentativa de leitura:

Código: Selecionar todos

DO WHILE InBufSize( nHandle ) > 0
   OutChr( nHandle, ACK )                           // Envia um Ack (06) para o COBAS.
   nRead := InBufSize(nHandle)
   cRead := Space(nRead)
   InChr( nHandle, nRead, @cRead)
   cRet += cRead
ENDDO
OutChr( nHandle, ACK )                           // Envia um Ack (06) para o COBAS.
FGravaTxt( cArqTmp, cLinha )

O resultado sempre foi igual....

[sygecom]

Olá Hasse,
O Hyper Terminal pode lhe auxiliar para saber como esta chegando na porta serial as informações, ou até mesmo para saber se realmente esta chegando algo usando a configuração que vc pré definiu.
Outra possibilidade é usar a LIB da Fivewin para comunicação serial, usando a fivewin tive otimos resultados, ela se comunica bem mais rapida e mais estavel que a HBCOMM.

[Hasse]

OK Leonardo.

Já me comuniquei com um colega, daqui da cidade, que pode me ajudar nos primeiros passos no uso do Hyper Terminal Windows.

Já marcamos para o início do próximo ano. Desta forma deixaremos o assunto suspenso até lá.

De qualquer forma, os meus melhores agradecimentos pela tua ajuda. Valeu, e muito.

[mhackervix]

Amigo,

Verifique o protocolo de Conexão. Vários aparelhos possuem protolos e configurações distintas. O mais comum é a diferença na configuração da Porta, caso você se comunique com a porta setada errado os dados que receber não farão sentido nenhum.

Exemplo (apenas para ilustrar):
ECF Bematech
Velocidade: 9600
Paridade: nenhuma
Start bit: 1
Stop bit: 1


ECF Interway
Velocidade: 11115
Paridade: Par
Start bit: 1
Stop bit: 1

ECF Schalter
Valocidade: 9600
Paridade: Par
Start bit: 1
Stop bit: 1


Atenciosamente,

[Hasse]

Boa tarde mhackervix.

Primeiramente, um Grande e Feliz Novo Ano para TODOS. Que ele ofereça 2009 oportunidades de sucesso, realizações positivas, muita saúde, Paz, Harmonia e Fraternidade.

Verifiquei todos os parâmetros de comunicação do aparelho:
COBAS MIRA PLUS, COBAS INTEGRA, COBAS KX e COBAS b121, todos equipamentos da ROCHE. Todos os 4 equipamentos possuem as mesmas características, como abaixo:
1-Velocidade: segundo o manual, válidos 70/110/150/300/600/1200/2400/4800 e 9600. Setado em 2400 nas 2 pontas;
2-DataBits: segundo o manual, somente 8
3-Paridade: segundo o manual, somente 0 (none)
4-StopBit: segundo o manual, somente 1.

Todos estes itens estão setados da mesma forma nas 2 pontas. Checado, Rechecado, Trechacado e outros bichos mais....

Estou quase acreditando que está me escapando algum pequeno detalhe, pois no caso do COBAS b121, sem querer, setei a transmissão em txt, e a recepção saiu perfeita, exatamente como aparece na impressão em fita térmica da impressora interna do aparelho.

O que está me ocorrendo no momento é que não testei velocidades menores. Poderia ser

[mhackervix]

Se você já conseguiu o retorno correto setando o equipamento para transmissão em TXT, a solução já foi encontrada !!!

att.

[Hasse]

Um Grande BOM DIA colegas.

Solução encontrada hoje pela manhã... Bastou configurar o aparelho remoto e dar um re-boot nele para que as configuração fossem ativadas...

Nas tentativas anteriores isto não foi feito com todos, somente naquele que funcionou em imagem TXT. Estávamos quebrando a cabeça para descobrir porque naquele funcionava e não nos outros... E um dos técnicos do laboratório lembrou que havíamos dado um re-boot naquele que funcionou. Bastou fazer isto em todos, e... SOLUCIONADO O O O O O O O O O O .................

Conseguimos a comunicação perfeita com todos eles.

Valeu pela colaboração de todos os colegas do Fórum.

Obrigado a todos.
) )

[Hasse]

Boa noite pessoal.

Hoje dei com um fato interessante no uso da HBComm():

Em:

Código: Selecionar todos

nHandle := Init_port(  "COM1",2400,8,0,1,8000   )

A variável nHandle, iniciada em uma função e NÃo declarada como pública (sem qualquer declaração explícita) ela é visível em todo o executável.

Há alguma explicação para isto ? Ela é de alguma classe especial ?

[sygecom]

Olá Hasse,
Tentou mudar essa variavel para outra diferente de "nHandle". Claro que a HBCOMM não deveria fazer isso que esta acontecendo. Inclusive quando se gera a LIB ela da uns warning(aviso).

[Hasse]

Boa noite Leonardo.

Conforme tua sugestão, troquei o nome da variável, e a visibilidade desapareceu.... ? Putz....

Desconfio que esta nHandle está declarada em algum outro lugar, não é ?

Ainda bem que isto é só um detalhe que me despertou a curiosidade, e que não me está atrapalhando...

[sygecom]

Segundo as má linguas, isso acontece na utilização da Minigui tmb. que utiliza varias variavies public.

[Hasse]

Hoje recebi uma mensagem privada do colega Sandro Luis a respeito do Interfaceamento tratado neste tópico. Eu sei que isto é irregular, mas como ele não colocou e-mail para resposta, estou fazendo isto via Fórum. Caso algum Moderador achar abusivo, autorizo de antemão o cancelamento desta mensagem.

Veja Sandro, este pessoal dos revendedores de equipamentos para análises automáticas "trancam" estas informações a sete-chaves. Também não tenho nada adicional ao manual. Informações técnicas de interfaceamento são muito raras. Então eu resolvi arregaçar as mangas e buscar as ditas no "braço".

Desenvolvi uma rotina de leitura genérica. Fazemos várias análises, anotamos os resultados, e comparamos eles com os dados do arquivo lido na interface. Despois que você pega a manha do aparelho, desenvolver o upload da Worklist fica bem mais fácil.

Já estão funcionando o interfaceamento do Celldyn 3000 e do KX-21. Do Cobas o projeto está parado a pedido do cliente, pois está pensando em trocar de aparelho. O Íntegra vai ser devolvido ao revendedor.

[Hasse]

Bom dia Roberto Sávio.

Recebi a tua mensagem a respeito do CellDyn 3700, via Fórum, mas não há indicação de como responder para ti. Espero que seja este o tópico que você consultou.
Entre em contato mais uma vez.