Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Bruno Giovani Caltran

ACBR BAL - Balança rodoviária Lider LD2052

Recommended Posts

Boa tarde Pessoal!

Estou testando o exemplo do ACBR para ler o peso de uma balança Lider LD 2052 "Rodoviária" , mas o valor sempre é retornado como 0 ZERO no peso

Analisando o Log, acredito que o protocolo da balança lider esteja errado no projeto, ou não seja para balanças rodoviárias, alguém já fez essa integração ? Pode me ajudar ?

 

Vou listar aqui um trecho do log do componente: 

 


--------------------------------------------------------------------------------
ATIVAR - 08/11/19 14:06:56:492 - Modelo: Lider - Porta: COM12         Device: BAUD=2400 DATA=8 PARITY=N STOP=1 HANDSHAKE=XON/XOFF SOFTFLOW MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0
--------------------------------------------------------------------------------

 - 14:06:56:702 RX <- [NUL]P [240]
              UltimoPesoLido: 0 , Resposta: [NUL]P [240]
 - 14:06:57:112 RX <- P[BS][211]
              UltimoPesoLido: 0 , Resposta: P[BS][211]
 - 14:06:57:322 RX <-  [email protected]
              UltimoPesoLido: 0 , Resposta:  [email protected]
 - 14:06:57:512 RX <- [136][16]
              UltimoPesoLido: 0 , Resposta: [136][16]
 - 14:06:57:722 RX <- [4]
              UltimoPesoLido: 0 , Resposta: [4]
 - 14:06:57:922 RX <- [BS][NUL][20]4
              UltimoPesoLido: 0 , Resposta: [BS][NUL][20]4
 - 14:06:58:132 RX <- [18][BS]M5
              UltimoPesoLido: 0 , Resposta: [18][BS]M5
 - 14:06:58:532 RX <- 0QE
              UltimoPesoLido: 0 , Resposta: 0QE
 - 14:06:58:732 RX <- [136][SOH][184]
              UltimoPesoLido: 0 , Resposta: [136][SOH][184]
 - 14:06:59:142 RX <- [BS][BS]
              UltimoPesoLido: 0 , Resposta: [BS][BS]
 - 14:06:59:342 RX <- [16]B
              UltimoPesoLido: 0 , Resposta: [16]B
 - 14:06:59:742 RX <- [16]H[137]
              UltimoPesoLido: 0 , Resposta: [16]H[137]
 - 14:06:59:952 RX <- b[144]O[255]
              UltimoPesoLido: 0 , Resposta: b[144]O[255]
 - 14:07:00:152 RX <- @[4]
              UltimoPesoLido: 0 , Resposta: @[4]
 - 14:07:00:352 RX <- M[255][252]
              UltimoPesoLido: 0 , Resposta: M[255][252]
 - 14:07:00:562 RX <- P[BS]TP
              UltimoPesoLido: 0 , Resposta: P[BS]TP
 - 14:07:00:762 RX <- [BS]![24]
              UltimoPesoLido: 0 , Resposta: [BS]![24]
 - 14:07:01:162 RX <-  1[133]
              UltimoPesoLido: 0 , Resposta:  1[133]
 - 14:07:01:372 RX <- $`[194]
              UltimoPesoLido: 0 , Resposta: $`[194]
 - 14:07:01:772 RX <- [SOH][141]
              UltimoPesoLido: 0 , Resposta: [SOH][141]
 - 14:07:01:982 RX <- [130]I
              UltimoPesoLido: -1 , Resposta: [130]I
 - 14:07:02:182 RX <- [NUL]
              UltimoPesoLido: 0 , Resposta: [NUL]
 - 14:07:02:382 RX <- H[186][NUL]
              UltimoPesoLido: 0 , Resposta: H[186][NUL]
 - 14:07:02:582 RX <- [STX]`[236]
              UltimoPesoLido: 0 , Resposta: [STX]`[236]
 - 14:07:02:792 RX <- [BS][BS]
              UltimoPesoLido: 0 , Resposta: [BS][BS]
 - 14:07:02:992 RX <- (
              UltimoPesoLido: 0 , Resposta: (
 - 14:07:03:192 RX <- $[BS][BS][252]
              UltimoPesoLido: 0 , Resposta: $[BS][BS][252]
 - 14:07:03:392 RX <- [BS][226]
              UltimoPesoLido: 0 , Resposta: [BS][226]
 - 14:07:03:802 RX <- [BS][NUL][BS][7][255][255][254]
              UltimoPesoLido: 0 , Resposta: [BS][NUL][BS][7][255][255][254]
 - 14:07:04:002 RX <- [4]@[31]
              UltimoPesoLido: 0 , Resposta: [4]@[31]
 - 14:07:04:412 RX <- R(
              UltimoPesoLido: 0 , Resposta: R(
 - 14:07:04:622 RX <- [130][NUL].[228]
              UltimoPesoLido: 0 , Resposta: [130][NUL].[228]
 - 14:07:04:812 RX <- [128]
              UltimoPesoLido: 0 , Resposta: [128]
 - 14:07:05:022 RX <- [16][198]
              UltimoPesoLido: 0 , Resposta: [16][198]
 - 14:07:05:222 RX <- [144]A
              UltimoPesoLido: 0 , Resposta: [144]A
 - 14:07:05:422 RX <- [18]f[142]
              UltimoPesoLido: 0 , Resposta: [18]f[142]
 - 14:07:05:632 RX <- [252]
              UltimoPesoLido: 0 , Resposta: [252]
 - 14:07:05:832 RX <- [146]
              UltimoPesoLido: 0 , Resposta: [146]
 - 14:07:06:032 RX <- [248]
              UltimoPesoLido: 0 , Resposta: [248]
 - 14:07:06:442 RX <- 0[205]
              UltimoPesoLido: 0 , Resposta: 0[205]
 - 14:07:06:642 RX <- [144][195]
              UltimoPesoLido: 0 , Resposta: [144][195]
 - 14:07:07:052 RX <- [16]H[STX][255]
              UltimoPesoLido: 0 , Resposta: [16]H[STX][255]
 - 14:07:07:252 RX <- @[192]
              UltimoPesoLido: 0 , Resposta: @[192]
 - 14:07:07:452 RX <- [LF]
              UltimoPesoLido: 0 , Resposta: [LF]
 - 14:07:07:652 RX <- [252]
              UltimoPesoLido: 0 , Resposta: [252]
 - 14:07:07:862 RX <- `[22][11]
              UltimoPesoLido: 0 , Resposta: `[22][11]
 - 14:07:08:062 RX <- [255]
              UltimoPesoLido: 0 , Resposta: [255]
 - 14:07:08:272 RX <- [144]
              UltimoPesoLido: 0 , Resposta: [144]
 - 14:07:08:462 RX <- P[BS][FS]$
              UltimoPesoLido: 0 , Resposta: P[BS][FS]$
 - 14:07:08:672 RX <- [16][218]
              UltimoPesoLido: 0 , Resposta: [16][218]
 - 14:07:09:072 RX <- [176][FF]
              UltimoPesoLido: 0 , Resposta: [176][FF]
 - 14:07:09:282 RX <- [4][136][200]
              UltimoPesoLido: 0 , Resposta: [4][136][200]
 - 14:07:09:682 RX <- (a[255][22][193]
              UltimoPesoLido: 0 , Resposta: (a[255][22][193]
 - 14:07:09:892 RX <- [STX][ACK]%[148]
              UltimoPesoLido: 0 , Resposta: [STX][ACK]%[148]
 - 14:07:10:092 RX <- [email protected]
              UltimoPesoLido: 0 , Resposta: [email protected]
 - 14:07:10:292 RX <- h[20]
              UltimoPesoLido: 0 , Resposta: h[20]
 - 14:07:10:492 RX <- [168]Q
              UltimoPesoLido: 0 , Resposta: [168]Q
 - 14:07:10:902 RX <- [240]
              UltimoPesoLido: 0 , Resposta: [240]
 - 14:07:11:102 RX <- [16]L[212]
              UltimoPesoLido: 0 , Resposta: [16]L[212]
 - 14:07:11:302 RX <- 0[129] [254]
              UltimoPesoLido: 0 , Resposta: 0[129] [254]
 - 14:07:11:712 RX <- [NUL]p[224]
              UltimoPesoLido: 0 , Resposta: [NUL]p[224]
 - 14:07:11:922 RX <- [ENQ][226]
              UltimoPesoLido: 0 , Resposta: [ENQ][226]
 - 14:07:12:322 RX <- #[14]
              UltimoPesoLido: 0 , Resposta: #[14]
 - 14:07:12:522 RX <- [NAK]B[24][250]
              UltimoPesoLido: 0 , Resposta: [NAK]B[24][250]
 - 14:07:12:732 RX <-  [138]
              UltimoPesoLido: 0 , Resposta:  [138]
 - 14:07:12:932 RX <- "
              UltimoPesoLido: 0 , Resposta: "
 - 14:07:13:132 RX <- [BS]8
              UltimoPesoLido: 0 , Resposta: [BS]8
 - 14:07:13:332 RX <- [NUL][170][140]
              UltimoPesoLido: 0 , Resposta: [NUL][170][140]
 - 14:07:13:742 RX <- DBn
              UltimoPesoLido: 0 , Resposta: DBn
 - 14:07:13:942 RX <- [201]
              UltimoPesoLido: 0 , Resposta: [201]
 - 14:07:14:352 RX <- A
              UltimoPesoLido: 0 , Resposta: A
 - 14:07:14:552 RX <- [TAB]F[136]
              UltimoPesoLido: 0 , Resposta: [TAB]F[136]
 - 14:07:14:952 RX <- [NUL] )[166]
              UltimoPesoLido: 0 , Resposta: [NUL] )[166]
 - 14:07:15:162 RX <- [NUL][230]
              UltimoPesoLido: 0 , Resposta: [NUL][230]

 

 

Desde já agradeço a ajuda!

 

 

 

Share this post


Link to post
Share on other sites

Eu fiz usando a DLL assim:

function LerPesoLider(Porta, Baud: Integer): Double;
type
  // vamos declarar um tipo function
  TCapturaPeso = function(Porta, Velocidade: integer): Double; stdcall;// external 'BalancaLider.dll';
var
  CapturarPeso: TCapturaPeso; // uma variável que representará a função
  DLLHandle1: THandle; // este é o handle para a DLL
begin
  try
    //Verificações da existência da DLL no PC...
    DLLHandle1 := LoadLibrary('BalancaLider.dll');
    try
      // vamos obter o endereço da função na DLL
      CapturarPeso := GetProcAddress(DLLHandle1, 'CapturarPeso');

      // vamos chamar a função agora
      if Assigned(CapturarPeso) then
      begin
        Result := CapturarPeso(Porta, Baud);
      end;
    except
      Result := 0;
    end;
  finally

  end;
end;

  • Like 2

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...