delphi comunicação serial

23/05/2003

11

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)


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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira