Funções Genéricas
Estas funções tem como objetivo possibilitar a comunicação com terminais de Sistemas via Ethernet. Elas devem trabalhar em parceria com as funções de acesso as Balanças - WFecha, WInicializa e WEncerra.
SAbreSistemas
Abre uma conexão TCP/IP entre um terminal de Sistemas e computador.
Sintaxe (Delphi):
function SAbreSistemas(const Conexao:Integer;EnderecoIp:pchar):Integer;stdcall; external
'PCLINK7.DLL';
Parâmetros:
Nome |
Tipo |
Tamanho |
Observação |
Conexao |
Inteiro |
0 a 99 |
Conexão que está sendo utilizada |
EnderecoIp |
Buffer |
15 bytes+NULO |
Endereço IP da conexão. Ex.: 192.168.211.39 |
Retornos:
0 |
falha na abertura |
1 |
sucesso na abertura |
2 |
conexão fechada |
3 |
máximo de conexões atingidas |
4 |
a conexão já está aberta |
SLeSistemas
Pega uma mensagem enviada automaticamente (não pedida) por um terminal de sistemas.
Sintaxe (Delphi):
function SLeSistemas(const Conexao:Integer; rdOpCode,rdMsg:pchar):Integer;stdcall; external
'PCLINK7.DLL';
Parâmetros:
Nome |
Tipo |
Tamanho |
Observação |
Conexao |
Inteiro |
0 a 99 |
Conexão que está sendo utilizada |
rdOpCode |
Buffer |
2 bytes+NULO |
Opcode recebido |
rdMsg |
Buffer |
255 bytes+NULO |
Dados Recebidos |
Retornos:
2 |
conexão fechada |
9 |
ainda não recebeu nenhuma mensagem desde conexão |
10 |
mensagem = mesma do ultimo acesso a esta função |
11 |
mensagem nova |
SPedeSistemas
Pede dados a um terminal de sistemas e pega resposta.
Sintaxe (Delphi):
function SPedeSistemas(const Conexao:Integer;rdOpCode,rdMsg,txMsg:pchar):Integer;stdcall;
external 'PCLINK7.DLL';
Parâmetros:
Nome |
Tipo |
Tamanho |
Observação |
Conexao |
Inteiro |
0 a 99 |
Conexão que está sendo utilizada |
rdOpCode |
Buffer |
2 bytes+NULO |
OpCode |
rdMsg |
Buffer |
255 bytes+NULO |
Dados Recebidos |
txMsg |
Buffer |
257 bytes+NULO |
OpCode do pedido (2 bytes) + Complemento |
|
|
|
|
Retorno da Função:
0 |
falha no retorno do pedido |
1 |
sucesso no retorno do pedido |
2 |
conexão fechada |
SEnviaSistemas
Envia dados à um terminal de sistemas.
Sintaxe (Delphi):
function SEnviaSistemas(const Conexao:Integer;txDadoSistemas:pchar):Integer;stdcall; external
'PCLINK7.DLL';
Parâmetros:
Nome |
Tipo |
Tamanho |
Observação |
Conexao |
Inteiro |
0 a 99 |
Conexão que está sendo utilizada |
txDadoSistemas |
Buffer |
257 bytes+NULO |
OpCode do pedido (2 bytes) + Complemento |
Retorno da Função:
0 |
falha no envio |
1 |
sucesso no envio |
2 |
conexão fechada |