Buenas,
Equipo, este es el codigo que estoy utilizando pero no me funciona con la bascula DATALOGIC MAGELLAM 8300, alguien me puede colaborar.
Código Delphi
[-]procedure TFormTpv.TimerPesoTimer(Sender: TObject);
Var
Peso : String;
PesoNumero,eCantidad : Double;
Pesar : TComport;
liBanda:Cardinal;
begin
Try
Memo1.Lines.Add('INICIO'); Pesar.Connected:=False;
Pesar.Port:=ComPort1.Port;
Pesar.BaudRate:=ComPort1.BaudRate;
Pesar.DataBits:=ComPort1.DataBits;
Pesar.StopBits:=ComPort1.StopBits;
Pesar.Parity:= ComPort1.Parity;
Pesar.Connected:=True;
Memo1.Lines.Add('CONECTADO'); Sleep(250);
Pesar.ReadStr(Peso,15);
Edit1.Text:=Peso;
Pesar.Close;
Edit2.Text:=Copy(Edit1.Text,3,8);
eCantidad:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('LECTURA'); TimerPeso.Enabled:=False; Memo1.Lines.Add('FIN');
Except
on E: exception do
begin
Memo1.Lines.Add('ERROR...'); Memo1.Lines.Add(e.message);
eCantidad:=0;
end;
End;
end;
procedure TFormTpv.Button1Click(Sender: TObject);
begin
TimerPeso.Enabled:= false;
ComPort1.ShowSetupDialog;
TimerPeso.Enabled:= true;
end;
end.