delphi comunicação serial

23/05/2003

0

Estou me comunicando pela primeira vez,

estou precisando de fazer comunicação pelo delphi com a serial

se alguem puder me ajudar, desde a agradeço


(micro com balança de pesagem)


Joseantoniohaeck

Joseantoniohaeck

Responder

Posts

23/05/2003

Cirilo

Você pode usar o Async32, que é um pacote de componentes para porta serial, modem e outros.
Neste pacote você encontrará o VACOMM para porta serial.

O estrutura de funcionamento do vaComm é a seguinte:
ABRIR A PORTA SERIAL:
Todo equipamento que será ligado a serial é internamente gravado os seguintes parâmetros: velocidade, paridade, databits, stopbits. Por sua vez estes parâmetros devem ser iguais na hora de configurar a porta serial do seu micro. Se sua balança estiver configurada para trabalhar na velocidade de 2400 e você colocou na VaComm.baudrate = 9600, então não irá fazer a comunicação. Em resumo você primeiro deverá saber qual a configuração da balança: velocidade,paridade,databits e stobits.
A propriedade que identifica a porta é PortNum: 1 (com1) , 2 (com2), etc
Um exemplo:
VaComm1.PortNum:=1
VaComm1.BaudRate:=9600
VaComm1.Parity:=N
VaComm1.Databits:=8
VaComm1.StopBits:=2

Uma vez sabendo a configuração da balança coloque os valores nas propriedades do VaComm antes de executar o comando vaComm1.open:
if not vaComm1.active then vaComm.open;

ENVIAR OU RECEBER COMANDOS
Para enviar é mais fácil:
Alguns modelos de balança precisam enviar os comandos:
ENQ + LF + CR.

Tabela ASCII
[url]sites.uol.com.br/rubens_sh/[/url]

Uma observação:
5 (corresponde ao ENQ )
10 (corresponde ao LF ou seja Line Feed)
13 (corresponde ao CR ou Enter)
então, (#10 + 13) o efeito será um ENTER (pular para próxima linha)

Então o comando será:
variavel:=5 + 10 + 13 (tipo string)
if vaComm1.active then
vaComm1.WriteText(variavel);

Para fazer a leitura:
variavel:=variavel + vaComm1.ReadText;

FECHAR A PORTA SERIAL
if vaComm1.active then Vacomm1.close;


OBS:
VOCÊ NÃO PRECISA DE UM COMPONENTE PARA ACESSAR A PORTA SERIAL NO DELPHI, TODAVIA COM O COMPONENTE É MAIS FÁCIL.
No meu site você encontrará exemplos com ou sem componente.

Os exemplos são para leitores de barras e cheques, porém o funcionameno é semelhante. (enviar e receber comandos)

Visite o site para baixar exemplos para Delphi:
[url]www.veloso.kit.net[/url]


Responder

30/08/2016

Joao Moreira

Tem para Delphi XE3 ?
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar