Leer Scanner y Peso de Balanza Datologic Magellan 8300/ 8400

[muli]

Yo tengo esto funcionando, las caracteristicas del puerto tendrás que adaptarlas a la balanza (velocidad, etc).

Código Delphi [-]
Uses CPort;  // es la unidad del componente que nombras.

procedure TFormTpv.Timer2Timer(Sender: TObject);   // Lo tengo a 300 de interval

Var Peso : String;
     PesoNumero : Double;
     Pesar : TComport;

begin
  Try
    Pesar.Connected:=False;
    Pesar.Port:=Datos.PuertoBalanza;   // Le asigno el puerto COM donde está conectada la balanza.
    Pesar.Connected:=True;
    Sleep(250);
    Pesar.ReadStr(Peso,15);
    Edit4.Text:=Peso;
    Pesar.Close;
    Edit2.Text:=Copy(Edit4.Text,3,8);
    Edit2.Text:=CambiaEn(Edit2.Text,'.',',');
    eCantidad.Value:=StrToFloat(Edit2.Text);
    Timer2.Enabled:=False;
  Except
    eCantidad.Value:=0;
    Timer2.Enabled:=False;
  End;
end;

Saludos.