Hola muli, espero estes bien y gracias por los códigos suministrados, te comunico que realice los ajustes necesarios y aplique las pruebas de lugar, sin embargo, no he obtenido resultados, te dejo aqui los codigos a ver que hice mal.
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.
Intente capturar el error presentado y me arrojo esto:
Access violation at address 0045CCAF in module 'Lector_Peso.exe'. Read of address 00000001