Hola amigos, llevo una semana con algo que parece simple a la vista pero no lo es en los resultados
Les cuento, tengo una conexion serie con un aparato utilizando un componente ComPort, envio una cadena y el dispositivo me contesta con una cadena como esta:
:0103100003006400000000000000000000000086. Hasta aca todo bien, el codigo es el siguiente:
Código Delphi
[-]
procedure TFMain.Com_SerieRxChar(Sender: TObject; Count: Integer);
var
Str : String;
SubWord1 : String;
Word1 : Integer;
begin
Com_Serie.ReadStr(Str, Count);
Str := copy(Str, 10, 2);
SubWord1 := '$' + Str;
Word1 := strtoint(SubWord1 );;
Memo1.text := Memo1.Text + inttostr(Word1);
End;
Str es la cadena que obtengo del dispositivo, que si la mando directamente al memo aparece correctamente y completa.
Ahora solo necesito esta parte de la cadena
:0103100003006400000000000000000000000086, ya que esos dos caracteres representan un numero hexadecimal, por eso en SubWord1 le agrego el $ a la cadena y en Word1 lo paso de Str a Int para que me devuelva el valor, el hex va de 00 a ff por lo tanto voy a ir de 0 a 255 en el entero.
Cual es el problema? Que el
copy me devuelve cualquier cosa, por momentos bien por momentos cualquier valor y no solo dos digitos puede darme
2, 4, 6 y hasta 8 digitos, eso hace que cuando lo paso a entero me da cualquier cosa.
El
Memo1 solo esta para ver en tiempo real que esta diciendo, la app consulta cada segundo al dispositivo. Ya les digo que cuando muestro la cadena entera en el memo se ver perfecta y la comunicacion es correcta lo que no puedo hacer es extraer correctamente esos dos caracteres.
Un abrazo !
y gracias !!!
Muchos datos ? Mucha lata? Mucho Gre Gre para decir Gregorio? No sabia como explicarlo en menos palabras
Abrazos
Javier