Envío de datos a balanza puerto serie

[espinete]

Ya lo he solucionado. Estaba calculando mal la suma lógica XOR de los números. Tenía primero que convertirlos a Integer, luego otra vez a HEX, luego el resultado a HEX y finalmente a ASCII, es decir, una vuelta de tuerca impresionante que no aparece en ningún manual.

Mañana intentaré postera el código exacto.

[espinete]

Aquí va el código que utilizo para calzular el checksum dichoso y enviar correctamente el resultado a la balanza.

En el ejemplo envío la siguiente cadena: 9 8 0 0 1 5 0 X Cr Lf

 
                  a:='30';
                  b:='30';
                  c:='31';
                  d:='35';
                  e:='30';
                  h:=inttohex(hextoint('39') xor hextoint('38'),1);
                  h:=inttohex(hextoint(h) xor hextoint(a),1);
                  h:=inttohex(hextoint(h) xor hextoint(b),1);
                  h:=inttohex(hextoint(h) xor hextoint(c),1);
                  h:=inttohex(hextoint(h) xor hextoint(d),1);
                  h:=inttohex(hextoint(h) xor hextoint(e),1);
 
                  //Cadena completa en HEX
                  edit21.text:='39'+'38'+a+b+c+d+e+h+'0D'+'0A';

                  //Cadena en ASCII (sin #13 ni #10)
                  edit19.text:=chr(hextoint('39'))+chr(hextoint('38'))+chr(hextoint(a))+chr(hextoint(b))+chr(hextoint(c))+chr(hextoint(d))+chr(hextoint(e))+chr(hextoint(h));

                  //Cadena ASCII completa (CON #13#10)
                  ApdComPort1.OutPut := edit19.text+#13+#10;

[krlox31416]

felicidades por que te quedo tu problema...

y si la verdad es que buscando ayuda o consultando en foros es como se hecha a andar nuestro codigo...

que bueno que fue un problema de conversion...

saludos!!!...