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