Programação para Balança

unit UToledo; 

interface 

uses 
  Dialogs, SysUtils, Classes, Controls; 

  function AbrePorta(const Porta, BaudRate, DataBits, Paridade: Integer): Integer; StdCall; External 'P05.DLL'; 
  function PegaPeso(const OpcaoEscrita: Integer; Peso, Local: Pchar): Integer; StdCall; external 'P05.DLL'; 
  function FechaPorta: Integer; StdCall; External 'P05.dll'; 

type 
  TPorta = (prCOM1, prCOM2, prCOM3, prCOM4, prCOM5, prCOM6, prCOM7, prCOM8, prCOM9);
  TBaudRate = (br2400, br4800, br9600); 
  TDataBits = (db7Bits, db8Bits); 
  TParidade = (pdNenhuma, pdImpar, pdPar, pdEspaco); 

  TToledo = class(TComponent) 
  protected 
    function GetWeight: Real; 

  private 
    FPorta: TPorta; 
    FBaudRate: TBaudRate; 
    FDataBits: TDataBits; 
    FParidade: TParidade; 
    procedure SetPorta(const Value: TPorta); 
    procedure SetBaudRate(const Value: TBaudRate); 
    procedure SetDataBits(const Value: TDataBits); 
    procedure SetParidade(const Value: TParidade);
    function AbrirPorta: Boolean; overload;
    function AbrirPorta(FPorta:TPorta): Boolean; overload;
  public
    function PegarPeso: Real;
  published
    property Porta: TPorta read FPorta write SetPorta; 
    property DataBits: TDataBits read FDataBits write SetDataBits; 
    property Paridade: TParidade read FParidade write SetParidade; 
    property BaudRate: TBaudRate read FBaudRate write SetBaudRate; 
  end; 

procedure Register; 

implementation 

procedure Register; 
begin 
  RegisterComponents('BoechatSoft', [TToledo]); 
end; 

{ TToledo } 

function TToledo.AbrirPorta: Boolean;
begin
   AbrirPorta(prCOM1);
end;

function TToledo.AbrirPorta(FPorta:TPorta): Boolean;
var
  iPorta: Byte;
  iBaudRate: Byte;
  iDataBits: Byte;
  iParidade: Byte;
begin
   case FPorta of
      prCOM1 : iPorta := 1;
      prCOM2 : iPorta := 2;
      prCOM3 : iPorta := 3;
      prCOM4 : iPorta := 4;
      prCOM5 : iPorta := 5;
      prCOM6 : iPorta := 6;
      prCOM7 : iPorta := 7;
      prCOM8 : iPorta := 8;
      prCOM9 : iPorta := 9;
   else
      iPorta := 1;
      end;

   case BaudRate of
      br2400 : iBaudRate := 0;
      br4800 : iBaudRate := 1;
      br9600 : iBaudRate := 2;
   else
      iBaudRate := 2;
      end;

   case DataBits of
      db7Bits : iDataBits := 0;
      db8Bits : iDataBits := 1;
   else
      iDataBits := 0;
      end;

   case Paridade of
      pdNenhuma : iParidade := 0;
      pdImpar   : iParidade := 1;
      pdPar     : iParidade := 2;
      pdEspaco  : iParidade := 3;
   else
      iParidade := 3;
      end;

   Result := AbrePorta(iPorta, iBaudRate, iDataBits, iParidade ) = 1;

   if Result = False then
      begin
      iPorta:=1;

      while (Result = False) and (iPorta < 9) do
         begin
         Result := AbrePorta(iPorta, iBaudRate, iDataBits, iParidade ) = 1;
         iPorta:=iPorta + 1;
         end;
      end; 
end;

function TToledo.GetWeight: Real;
begin 
  Result := StrToFloatDef(InputBox('Peso na balança', 'Informe o peso','0'),0); 
end; 

function TToledo.PegarPeso: Real; 
var 
  Retorno: Boolean;
  Peso: array[0..5]of char;
  vResposta:Integer;

  function Mensagem():String;
  begin
     Result:='*** ERRO NA LEITURA DO PESO DA BALANÇA *** '             + #13 + #13 +
      'O Sistema não conseguiu ler o peso da Balança.'                 + #13 +
      'Você pode retirar o peso e colocar novamente para nova tenta-'  + #13 +
      'tiva de leitura do peso da balança. Caso não consiga ler o peso'+ #13 +
      'da balança, você poder  digitar o peso do produto.'             + #13 + #13 + #13 +
      '[SIM] -> Para digitar o peso do produto'                        + #13 +
      '[NÃO] -> Para nova tentativa de ler o peso na balança';
  end;

  function AuxAbrirPorta():Boolean;
  begin
     Result:=AbrirPorta;

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM1);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM2);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM3);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM4);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM5);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM6);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM7);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM8);

     if (Result) then
        exit;

     Result:=AbrirPorta(prCOM9);
  end;
begin
   repeat
      Retorno := AuxAbrirPorta();
      Result := 0;
      
      if (Retorno = False) then
         MessageDlg('Erro na abertura da porta COM da Balança!',mtError,[mbOk],0)
      else
         begin
         Retorno := PegaPeso( 1, Peso, '' ) = 1;
         if (Retorno) then
            begin
            Result  := StrToFloatDef(StrPas(Peso),0);
            Result  := Result/1000;
            end;
         FechaPorta();
         end;

      if (Result <= 0) or (Retorno <> True) then
         begin
         vResposta:=MessageDlg(Mensagem(), MtWarning,[mbYes,mbNo,mbCancel],0);

         if vResposta = MrYes then
            begin
            Result := GetWeight();
            Break;
            end
         else if vResposta = mrCancel then
            begin
            Result := 0.00;
            Break;
            end;
         end
      else
         Break;
   until False
end; 

procedure TToledo.SetBaudRate(const Value: TBaudRate); 
begin 
  FBaudRate := Value; 
end; 

procedure TToledo.SetDataBits(const Value: TDataBits); 
begin 
  FDataBits := Value; 
end; 

procedure TToledo.SetParidade(const Value: TParidade); 
begin 
  FParidade := Value; 
end; 

procedure TToledo.SetPorta(const Value: TPorta); 
begin 
  FPorta := Value; 
end; 

end.

procedure TVendaFrm.LeituraPeso;
var Toledo:TToledo;
begin
   Toledo:=TToledo.Create(Self);

   if (portaBalanca = '1') then
      Toledo.Porta:=prCOM1
   else if (portaBalanca = '2') then
      Toledo.Porta:=prCOM2
   else if (portaBalanca = '3') then
      Toledo.Porta:=prCOM3
   else if (portaBalanca = '4') then
      Toledo.Porta:=prCOM4
   else if (portaBalanca = '5') then
      Toledo.Porta:=prCOM5
   else if (portaBalanca = '6') then
      Toledo.Porta:=prCOM6
   else if (portaBalanca = '7') then
      Toledo.Porta:=prCOM7
   else if (portaBalanca = '8') then
      Toledo.Porta:=prCOM8
   else if (portaBalanca = '9') then
      Toledo.Porta:=prCOM9;
      
   Toledo.BaudRate:=br9600;
   Toledo.DataBits:=db8Bits;
   Toledo.Paridade:=pdNenhuma;
   EditQuantidade.Text:=FormatFloat('#0.000',Toledo.PegarPeso);
   EditQuantidadeExit(Self);
   Toledo.Free;
   Toledo:=nil;
end;