DLL Delphi
– Funções / Comandos DLL V.9 _ Delphi para terminais TED famílias TC e TX
1 – Host ( aplicação ) para os TED´s “saída” _
Lista de comandos / funções :
– Abrindo comunicação _
function TEDStart(port: integer): integer; external DLL_LOCATION;
– Enviando mensagem ao display TED _
function TEDDisplaySend(ip, data: string): integer; external DLL_LOCATION;
– Enviando alarmes de buzzer ( n beep´s ) ao TED _
function TEDBeep(ip: string; times: integer): integer; external DLL_LOCATION;
– Enviando dados à saída COM serial 1 do TED _
function TEDCom1Send(ip, data: string): integer; external DLL_LOCATION;
– Enviando dados à saída COM serial 2 do TED _
function TEDCom2Send(ip, data: string): integer; external DLL_LOCATION;
– Enviando comando de apagar display do TED _
function TEDDisplayClear(ip: string): integer; external DLL_LOCATION;
– Enviando comando de apagar lista de atalhos na paginação ( veja comando abaixo ) _
function TEDListClear(ip: string): integer; external DLL_LOCATION;
Os TED´s da família TX com visor ( display ) de 7 linhas, permitem paginação com 7 atalhos por página, até 4 páginas. Usando este comando, pode-se programar até 28 atalhos ( acionados pelas teclas Enter+seta ) estacionados a memória interna do TED
– Enviando lista de atalhos ( sequência ) para paginação _
function TEDListAdd(ip: string; data: string): integer; external DLL_LOCATION;
veja explo. a seguir:
function TEDListAdd(‘192.168.0.10’, ‘PRODUTO A|PRODUTO B|PRODUTO C|’ ……..
até 28 )
Os TED´s da família TX podem operar com ou sem preâmbulos ( headers ) indicando qual tarefa foi executada, se digitação, leitura cód. barras, entrada serial, sinais I/O, etc.
– Enviando comando para acionamento de “headers” – preâmbulos das tarefas _
function TEDHeaderOn(ip: string): integer; external DLL_LOCATION;
– Enviando comando para desacionamento de “headers” – preâmbulos das tarefas _
function TEDHeaderOff(ip: string): integer; external DLL_LOCATION;
– Enviando comando de “on” ( nível de saída = 1 – Vcc ) da saída digital _
function TEDDigitalOn(ip: string): integer; external DLL_LOCATION;
– Enviando comando de “off” ( nível de saída = 0 – gnd ) da saída digital _
function TEDDigitalOff(ip: string): integer; external DLL_LOCATION;
– Enviando comando de leitura do status ( nível 1 ou 0 ) da entrada digital _
function TEDDigitalRead(ip: string): integer; external DLL_LOCATION;
DLL_LOCATION _ ligação com as funções de mesmo nome que estão DENTRO
da DLL
2 – TED´s para o Host ( aplicação ) “entrada” _
A recepção do Host ( aplicação ) vinda do TED – teclado alfanumérico / teclas de atalho via paginação / leitor de cód. de barras externo – USB / leitor cód. de barras
interno (embutido) / leitor RFID interno (embutido) / porta serial 1 / porta serial 2 / entrada e saída digital I/O
procedure onTEDReceive(hnd: TTEDReceiveEvent); external DLL_LOCATION;
o que chega quando algo é recebido:
procedure recebido(ip, data: String; header: Integer);
begin
Form1.RunProgram(ip, data);
end;
A partir das funções descritas, realizar a ligação _
procedure onTEDConnect(hnd: TTEDConnectEvent); external DLL_LOCATION;
procedure onTEDReceive(hnd: TTEDReceiveEvent); external DLL_LOCATION;
onTedConnect informa o que chega na porta 55555 e o onTedReceive informa o que chega na porta 8 ( ou outra porta configurada antecipadamente no menu de
configuração do TED )
3 – TRATAMENTO DAS PORTAS SERIAIS
– HABILITAR LEITURA DA PORTA SERIAL COM1
Assinatura da função
function TEDCom1On(ip: string): integer; external DLL_LOCATION;
Exemplo de uso
TEDCom1On(‘192.168.10.1’);
– DESABILITAR LEITURA DA PORTA SERIAL COM1
Assinatura da função
function TEDCom1Off(ip: string): integer; external DLL_LOCATION;
Exemplo de uso
TEDCom1Off(‘192.168.10.1’);
– HABILITAR LEITURA DA PORTA SERIAL COM2
Assinatura da função
function TEDCom2On(ip: string): integer; external DLL_LOCATION;
Exemplo de uso
TEDCom2On(‘192.168.10.1’);
– DESABILITAR LEITURA DA PORTA SERIAL COM2
Assinatura da função
function TEDCom2Off(ip: string): integer; external DLL_LOCATION;
Exemplo de uso
TEDCom2Off(‘192.168.10.1’);
