Ler dados porta serial

Opa, preciso ler dados que são gerados através de um equipamento de leitura de grau de uva em uma porta serial do pc, tem como ler diretamente a porta serial? Alguém tem algum exemplo?

Obrigado.

Você tem as dlls ou ocx do leitor?
Para se conectar a porta você terá que ter algumas dlls.

Seu leitor vai ser mais ou menos como a balança (tópico abaixo), pois a balança nada mais é que uma leitora.
http://www.4each.com.br/viewtopic.php?f=5&t=2252&p=7344

O que vai ter ajudar também (que também está no tópico acima) é algum manual para desenvolvimento em cima do leitor...

Não tem dll para o equipamento, ele joga informação na porta serial e era isso, o manual diz apenas como interpretar o sinal, ja estou fazendo o programa, vamos ver se vai dar certo.
Obrigado.

Aqui na empresa lemos a porta serial de uma balanca para pegar o peso, por um programa feito em progress mesmo, nada de outra coisa no meio.

Interessados entrar em contato pelo e-mail: Paulo_Gomes_1@hotmail.com

Existe uma forma de fazer isso com o progress, mas nao tenho um exemplo pratico...porém já vi funcionando.

outra dica seria utilizar a ocx proprio windows MSComm, vc precisaria saber as propriedades BaudRate, Paridadem, etc... entre outras do dispositivo que vc irá conectar...ela é genérica opu seja, conecta balanças e outros equipamentos...o que mudam sao estas propridades...

http://msdn.microsoft.com/en-us/library ... 93(v=vs.60).aspx

quem precisar, o processo é muito simples:


def var nr-leituras as int no-undo.
def var c-leitura as char no-undo.

input from value('Com1').

repeat:

readkey pause 1.

assign nr-leituras = nr-leituras + 1.
assign c-leitura = c-leitura + CHR(LASTKEY).

if nr-leituras = 20
then leave.

end.

input close.

Esse exemplo concatena 20 caracteres que estão passando pela porta, ai conforme o equipamento tem que tratar o conteúdo e tal, mas é isso ai.