ACBRBAL LePeso

[netsoftclaudio]

Bom dia a todos,

Atualizei hoje os componentes do ACBR e me deparei com o seguinte erro após a atualização:

The ACBrBAL1LePeso method referenced by ACBrBAL1.OnLePeso has an incompatible parameter list.

Remove the reference?

Se eu remover ele retira a seguinte programação:

procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: String);
var valid : integer;
begin
   sttPeso.Caption     := formatFloat('##0.000', Peso );
   sttResposta.Caption := Converte( Resposta ) ;

   if Peso > 0 then
      Memo1.Lines.Text := 'Leitura OK !'
   else
    begin
      valid := Trunc(ACBrBAL1.UltimoPesoLido);
      case valid of
         0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+
                                 'Coloque o produto sobre a Balança!' ;
        -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
                                 'Tente Nova Leitura' ;
        -2 : Memo1.Lines.Text := 'Peso Negativo !' ;
       -10 : Memo1.Lines.Text := 'Sobrepeso !' ;
      end;
    end ;
end;

[BigWings]

A assinatura desse método muda conforme a versão do Delphi.

Se você implementou numa versão e está abrindo em outra pode ter esse erro, mas basta atribuir novamente.

Ou usar IFDEFS, por exemplo:

{$IFDEF DELPHI2009_UP}
procedure TFTelaPrinc.BalancaLePeso(Peso: Double; Resposta: AnsiString);
{$ELSE}
procedure TFTelaPrinc.BalancaLePeso(Peso: Double; Resposta: string);
{$ENDIF}
begin
  [...]
end;

Insira a diretiva {$I ACBr.inc} pra usar o IFDEF.

[netsoftclaudio]

Estou usando Delphi 10.3 Rio

[netsoftclaudio]

Ele continua dizendo a mesma coisa

[BigWings]

10 minutos atrás, netsoftclaudio disse:

Estou usando Delphi 10.3 Rio

Usa apenas essa versão?

4 minutos atrás, netsoftclaudio disse:

Ele continua dizendo a mesma coisa

Você notou que eu passei duas formas de resolver? Qual delas você usou?

[netsoftclaudio]

Coloquei {$I ACBr.inc} no Inicio do Form e coloquei assim:

{$IFDEF DELPHI2009_UP}
procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: AnsiString);
{$ELSE}
procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: string);
{$ENDIF}
var valid : integer;
begin
   sttPeso.Caption     := formatFloat('##0.000', Peso );
   sttResposta.Caption := Converte( Resposta ) ;

   if Peso > 0 then
      Memo1.Lines.Text := 'Leitura OK !'
   else
    begin
      valid := Trunc(ACBrBAL1.UltimoPesoLido);
      case valid of
         0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+
                                 'Coloque o produto sobre a Balança!' ;
        -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
                                 'Tente Nova Leitura' ;
        -2 : Memo1.Lines.Text := 'Peso Negativo !' ;
       -10 : Memo1.Lines.Text := 'Sobrepeso !' ;
      end;
    end ;
end;

[BigWings]

Certo, mas lembre de colocar o IFDEF na declaração do método na seção interface também.

[netsoftclaudio]

deu certo, muito obrigado amigo!!!

[netsoftclaudio]

Fiz tudo isso, mas quando altero alguma coisa no form ele faz a pergunta novamente, que estranho.