delphi comunicação serial
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)
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
Curtidas 0
Respostas
Cirilo
23/05/2003
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]
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]
GOSTEI 0
Joao Moreira
23/05/2003
Tem para Delphi XE3 ?
GOSTEI 0