Eu usei o cport-3.0.zip e deu certo. Qq coite te mando.
Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) -------o0Oo-(_)-oO0o------- Precisando de dicas? www.deephi.hpg.com.br --------------------------- Mais de 30000 downloads ---------ooO---Ooo--------- ----- Original Message ----- From: "Malomar Alex Seminotti" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, September 24, 2004 6:28 PM Subject: Re: [delphi-br] Balanças Toledo > Walter, > > Obrigado pela ajuda. Eu tenho um componente para ler porta serial. > Estou usando o programa TTY, que é um exemplo que vem junto com o > componente ComDrv32. > Esta balança é usada para caminhões e foram feitos testes com alguns > pesos sobre ela. Este retorno foi obtido com 9600 bauds e é o que mais > se aproxima do valor correto. Dá uma olhada no resultado: > > 920 kg = , 9²0ëç ?‚ 9²0ëç ?‚ 9²0ëç ? > 2280 kg = , ²²¸0ëç ?‚ ²²¸0ëç ?‚ ²²¸0ëç ? > 1360 kg = , ±360ëç ?‚ ±360ëç ?‚ ±360ëç ? > 10200 kg = ‚ ±0²00ëç ?‚ ±0²00ëç ?‚ ±0²00ëç ? > 6140 kg = ‚ 6±´0ëç ?‚ 6±´0ëç ?‚ 6±´0ëç ? > 5150 kg = ‚ 5±50ëç ?‚ 5±50ëç ?‚ 5±50ëç ? > 5170 kg = ‚ 5±·0ëç ?‚ 5±·0ëç ?‚ 5±·0ëç ? > > Eu não sei se a configuração da porta serial é que está errada ou se ele > me retorna apenas isso mesmo. > Vou baixar o Async32 e fazer alguns testes com ele também. > > -- > > []'s > Malomar Alex Seminotti > Erechim - RS > > > > Walter Chagas (Desenvolvimento) escreveu: > > >Eu já. > > > >Voce terá que colocar um componente de porta serial no seu programa que > >deverá ficar ativo esperando a chegada de dados da porta. quando a balança > >fizer a leitura, ela envia estes dados para a porta e eles devem chegar na > >seguinte forma: > > > >#2'4p(001530000000'#$D'\' > > > >Ai você terá que separar o lixo do valor exato que vem sem caracteres de > >formatação. Esta string acima corresponde ao valor 15,30 em uma balança de > >100K > > > >Em uma balança de 20K ela viria desta forma: > > > >#2'5ph001100000000'#$D'"' = 01,100 > >#2'5ph000250000000'#$D#$1D = 00,250 > >#2'5ph015292000000'#$D#$11 = 15,292 > >#2'5ph000052000000'#$D#$1D = 00,052 > >#2'5ph000002000000'#$D'"' = 00,002 > > > >Bom, no componente, você irá usar o evento de leitura da porta serial. Eu > >usei o Async32 da TMS Software, ele tem o evento onRxChar, que é o evendo > >que ler caracteres vindos da porta. > > > >A leitura é feita char por char, neste caso eu usei uma variável que leu > >todos os caracteres vindos da porta: > > > >VStream := VStream + VaComm1.ReadText; > > > >Em seguida, fiz uma função que remove o lixo dos valores numéricos da > >string: > > > >VStream1 := RetornaNumero(VStream1); // So ficam os numeros > > > >#2'5ph001100000000'#$D'"' = 25001100000000 > > > >Feito isto basta pegar a parte da string que te interessa: > > > >VAuxStream1 := copy(VStream1,4,6); > > > >Finalmente voce faz uma função para colocar a virgula no lugar certo e o > >valor ficaria assim: > > > >01,100 lidos em uma balança de 20K > > > > > > > >[]s > > > > > >Walter Alves Chagas Junior > >Projeto e desenvolvimento de sistemas > >CABTEC - Soluções em Código de Barras > >Belo Horizonte - MG > >Fone: (31) 2125-9019 - Fax: (31) 2125-9030 > >http://www.cabtec.com.br > >[EMAIL PROTECTED] > > > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html